评语编辑室 v5.0 delphi注册机 (1千字)

{评语编辑室 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.