贴个delphi注册机源码：） (1千字)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    GroupBox3: TGroupBox;
    Edit3: TEdit;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    Panel2: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
form1.Close ;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  name:string;
  namelen:byte;
  code:string;
  codehex:int64;
  coder5:integer;
  r1,r2,r3,r4:int64;
  regcode:string;
  position:pchar;
  i:byte;
begin
  name:=edit1.Text ;
  namelen:=strlen(pchar(name));
  if namelen=0 then
  begin
    messagedlg('请输入你的用户名！',mterror,[mbok],0);
    exit;
  end;
  code:=edit2.Text ;
  if strlen(pchar(edit2.Text))=0 then
  begin
      messagedlg('请输入你的注册申请码！',mterror,[mbok],0);
    exit;
  end;
  codehex:= strtoint(code);
  coder5:= strtoint(copy(code,6,5));
  r1:=codehex+coder5;
  r2:=r1+1981813;
  r3:=r2+namelen;
  coder5:=strtoint(copy(inttostr(r3),6,5));
  r4:=r3+coder5;
    regcode:=inttohex(r4,16);
    i:=1;
    while  (regcode[1]='0') and (i<17)  do
    begin
    delete(regcode,1,1);
    i:=i+1;
    end;
    edit3.Text :=regcode;
end;
end.