{评语编辑室 v5.0 注册机,delhpi5.0编译通过；
以下为key.pas代码，你需要自己构造key.frm文件}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;{其中输入用户名}
    Edit2: TEdit;{其中输入待注册码}
    Edit3: TEdit;{显示生成的注册码}   
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;{caption:='GetCode'}
    Button2: TButton;{caption:='exit'}
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:string;
  sum,i,b,len:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if length(edit1.text)<6 then edit1.text:='用户名至少6个字符！'
else
    begin
    i:=1;  sum:=0;
    a:=edit1.text + edit2.text;
    len:=length(a);
    while i<=len do
                  begin
                  b:=ord(a[i])*i;
                  sum:=b+sum;
                  i:=i+1;
                  end;
    sum:=sum*$2A1F3+$1DACA0F;
    edit3.text:=inttostr(sum);
    sum:=0;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

#include "stdio.h"
main()
{
unsigned char string[81];
char sn[10];
long d=0;
int i,c;
end:printf("******pyEDITOR 5.0********\nThis keygen is made by Pretender\nPlease input your name  : ");
gets(string);
d=strlen(string);
if(d<6) {printf("Sorry,your username must longer than 5 letters!\n"); goto end;}
printf("Please input your ID    : ");
gets(sn);
strcat(string,sn);
d=0;
for(i=0;(c=string[i])!='\0';i++)
{c*=(i+1);d+=c;}
d*=0x2a1f3;d+=0x1daca0f;
/*printf("Your name is            : ");
puts(string);*/
printf("Your Register code is  : %ld\n",d);
printf(" *****************************      ---    ---    ---\n *Welcome to WWW.CRACKNOW.COM*      /      /      / --\n *****************************      ---    ---    --/\n");}