Windows优化大师x.xx注册机源码

DELPHI

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Registry, StdCtrls, Buttons;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Edit1: TEdit;Edit2: TEdit;Label3: TLabel;Edit3: TEdit;GetKeySpeedButton: TSpeedButton;CheckBox1: TCheckBox;Label4: TLabel;procedure GetKeySpeedButtonClick(Sender: TObject);procedure CheckBox1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;Family, Model, Stepping: Byte;implementation{$R *.dfm}//获得CPU信息的过程，用汇编代码写的procedure GetCpuID;asmPUSH EAXMOV EAX, 1DW $A20F //汇编指令CPUID的机器代码MOV Stepping, ALAND Stepping, 0FH //取得CPU STEPPING数送入到变量Stepping中AND AL, 0F0HSHR AL, 4MOV Model, AL //取得CPU MODEL数送入到变量Model中SHR AX, 8AND AL, 0FHMOV Family, AL //取得CPU FAMILYG数送入到变量Family中POP EAXend;//RSA的加密和解密函数，等价于(m^e) mod n（即m的e次幂对n求余）function Encrypt_Decrypt(m: Int64; e: Int64=$2C86F9; n: Int64=$69AAA0E3): Int64;vara, b, c: Int64;begina:=m;b:=e;c:=1;while b<>0 doif (b mod 2)=0then beginb:=b div 2;a:=(a * a) mod n;endelse beginb:=b - 1;c:=(a * c) mod n;end;Result:=c;end;procedure TForm1.GetKeySpeedButtonClick(Sender: TObject);varID, UserName, CpuVer: String;s: Array [1..4] of Cardinal;temp, Num1, Num2: Cardinal;Code1, Code2: Int64;i, ascii: Byte;Reg: TRegistry;beginif (Edit1.Text='') and (CheckBox1.Checked=False)then Application.MessageBox('请输入注册申请码！', '警告', MB_OK);if (Edit1.Text='') and (CheckBox1.Checked=True)then Application.MessageBox('请输入注册者姓名！', '警告', MB_OK);if (CheckBox1.Checked=true) and (Edit1.Text<>'')then beginUserName:=Edit1.Text; //从Edit1.Text中取得用户名GetCpuID; //调用过程GetCpuIDCpuVer:='Level '+IntToStr(Family)+' Rev. '+IntToStr(Model)+'.'+IntToStr(Stepping);temp:=1;i:=1;while UserName<>#0 do beginascii:=ord(UserName); //函数ord()的作用为取得字符的ASCII码temp:=(temp*ascii+$D0878) mod $F4240;inc(i);end;i:=1;while CpuVer<>#0 do beginascii:=ord(CpuVer);temp:=(temp*ascii+$2597D) mod $F4240;inc(i);end;ID:=IntToStr(temp);end;if (CheckBox1.Checked=false) and (Edit1.Text<>'')then ID:=Edit1.Text;ID:=ID+'1234567';SetLength(ID, 8); //把字符串ID长度变为8个，并把后面的字符截掉//下面四行语句是把字符串'You are big pig.'的内存数据送到变量s中s[1]:=$20756f59;s[2]:=$20657261;s[3]:=$20676962;s[4]:=$2e676970;Num1:=0;for i:=4 downto 2 doNum1:=(Num1+ord(ID)) shl 8;Num1:=Num1+ord(ID[1]);Num2:=0;for i:=8 downto 6 doNum2:=(Num2+ord(ID)) shl 8;Num2:=Num2+ord(ID[5]);temp:=0;for i:=1 to 32 do begintemp:=temp+$9E3779B9;Num1:=Num1+(Num2 shl 4)+(s[1] xor Num2)+((Num2 shr 5) xor temp)+s[2];Num2:=Num2+(Num1 shl 4)+(s[3] xor Num1)+((Num1 shr 5) xor temp)+s[4];end;Code1:=(Num1 mod $40000000) + 2;Code2:=($93E0014 shl 2)+ Num1 div $40000000 + 2;Code1:=Encrypt_Decrypt(Code1);code2:=Encrypt_Decrypt(Code2);if (CheckBox1.Checked=False) and (Edit1.Text<>'')then beginEdit2.Text:=IntToHex(Code1, 8);Edit3.Text:=IntToHex(Code2, 8);end;if (CheckBox1.Checked=True) and (Edit1.Text<>'')then beginReg:=TRegistry.Create;Reg.RootKey:=HKEY_LOCAL_MACHINE;if Reg.OpenKey('Software/Wom', True)then beginReg.DeleteValue('Masters');Reg.WriteString('Register', UserName);Reg.WriteString('Register_1', IntToHex(Code1, 8));Reg.WriteString('Register_2', IntToHex(Code2, 8));end;Reg.Free;Application.MessageBox('自动注册完成！', '信息', MB_OK);end;end;procedure TForm1.CheckBox1Click(Sender: TObject);beginif CheckBox1.Checked=truethen beginGetKeySpeedButton.Caption:='自动注册';Label1.Caption:='注册者姓名';Edit1.MaxLength:=0;Label2.Visible:=false;Label3.Visible:=false;Edit2.Visible:=false;Edit3.Visible:=false;endelse beginGetKeySpeedButton.Caption:='取得注册码';Label1.Caption:='注册申请码';Edit1.MaxLength:=8;Label2.Visible:=true;Label3.Visible:=true;Edit2.Visible:=true;Edit3.Visible:=true;end;end;end.