动易2005 算号器的源代码
这个代码网上也有别的版本公开过，我这个版本只少量流传，当然是我自己跟踪出来的，2006早出来了，先公布2005的代码，等2007出来再公开2006的代码。

以下是引用片段： unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,MD5,BASE64,CLIPBRD, Mask; type  TForm1 = class(TForm)  Label1: TLabel;  Label2: TLabel;  Label3: TLabel;  Label4: TLabel;  Edit1: TEdit;  Edit2: TEdit;  Label5: TLabel;  ComboBox1: TComboBox;  ComboBox2: TComboBox;  Label6: TLabel;  Label7: TLabel;  Edit3: TEdit;  Memo1: TMemo;  Button1: TButton;  MaskEdit1: TMaskEdit;  procedure Button1Click(Sender: TObject);  private  { Private declarations }  public  { Public declarations }  procedure GenerateSN;  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  GenerateSN; end; procedure TForm1.GenerateSN; const  sBase=’123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+=’; var  sDomain,sRandom1,sRandom2,sMD5,sSN,sYear :string;  cVersion,cDatabase:Char;  iRandom,i:integer;  sSN1 : string;  sSN2 : string; begin  sDomain:=Trim(Edit1.Text) ;  sRandom1:=Trim(Edit2.Text) ;  iRandom := strToint(sRandom1);  Memo1.Lines.Clear ;    { 加上版本号 }  case Combobox1.ItemIndex of  0: cVersion :=’0’;  1: cVersion :=’1’;  2: cVersion :=’2’;  3: cVersion :=’3’;  4: cVersion :=’4’;  5: cVersion :=’5’;  6: cVersion :=’9’;  end;  { 加上数据库类型 }  case Combobox2.ItemIndex of  0: cDatabase :=’a’;  1: cDatabase :=’S’;  end;  { 随机数 }  sRandom2:= cVersion + cDatabase + Trim(Edit3.Text) ;  { 计算MD5的值 }  sMD5:=cMD5.MD5(sDomain+sRandom2,true );  Memo1.Lines.Add(sMD5);  { 转换成大写 }  sMD5:=UpperCase(sMD5);  { 加上年限 }  //sYear:=’2MjAxNS00LTE5E933D59’; { 10年 }  //sYear:=’2MjA4Ni0xLTIx3426FB1’; { 70年 }  sYear:=cBase64.StrToBase64(StringReplace(Trim(MaskEdit1.Text),’ ’,’’,[rfReplaceAll]));  sYear:=intTostr(Length(sYear)-10)+sYear;  sSN1:=sMD5+sRandom2+sYear+’3426FB1’;  Memo1.Lines.Add(sSN1);  { 填充散列 }  SetLength(sSN2,1024);  Randomize;  for i:=1 to 1024 do  begin  sSN2[i]:=sBase[Random(63)+1];  end;  { 填充随机因子 }  sSN2[121]:=sRandom1[1];  { 填充加密信息 }  for i:=1 to 60 do  begin  sSN2[(iRandom+1)*i+121]:=sSN1[i];  end;  Memo1.Lines.Add(’’);  Memo1.Lines.Add(sSN2);  Clipboard.Astext := sSN2 + sSN2 + sSN2 + sSN2 ; end; end.

 

[1] [2] 下一页