|
Windows优化大师注册机源码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry, StdCtrls, Buttons; type TForm1 = 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; var Form1: TForm1; Family, Model, Stepping: Byte; implementation {$R *.dfm} //获得CPU信息的过程，用汇编代码写的 procedure GetCpuID; asm PUSH EAX MOV EAX, 1 DW $A20F //汇编指令CPUID的机器代码 MOV Stepping, AL AND Stepping, 0FH //取得CPU STEPPING数送入到变量Stepping中 AND AL, 0F0H SHR AL, 4 MOV Model, AL //取得CPU MODEL数送入到变量Model中 SHR AX, 8 AND AL, 0FH MOV Family, AL //取得CPU FAMILYG数送入到变量Family中 POP EAX end; //RSA的加密和解密函数，等价于(m^e) mod n（即m的e次幂对n求余） function Encrypt_Decrypt(m: Int64; e: Int64=$2C86F9; n: Int64=$69AAA0E3): Int64; var a, b, c: Int64; begin a:=m; b:=e; c:=1; while b<>0 do if (b mod 2)=0 then begin b:=b div 2; a:=(a * a) mod n; end else begin b:=b - 1; c:=(a * c) mod n; end; Result:=c; end; procedure TForm1.GetKeySpeedButtonClick(Sender: TObject); var ID, UserName, CpuVer: String; s: Array [1..4] of Cardinal; temp, Num1, Num2: Cardinal; Code1, Code2: Int64; i, ascii: Byte; Reg: TRegistry; begin if (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 begin UserName:=Edit1.Text; //从Edit1.Text中取得用户名 GetCpuID; //调用过程GetCpuID CpuVer:='Level '+IntToStr(Family)+' Rev. '+IntToStr(Model)+'.'+IntToStr(Stepping); temp:=1; i:=1; while UserName[i]<>#0 do begin ascii:=ord(UserName[i]); //函数ord()的作用为取得字符的ASCII码 temp:=(temp*ascii+$D0878) mod $F4240; inc(i); end; i:=1; while CpuVer[i]<>#0 do begin ascii:=ord(CpuVer[i]); 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 do Num1:=(Num1+ord(ID[i])) shl 8; Num1:=Num1+ord(ID[1]); Num2:=0; for i:=8 downto 6 do Num2:=(Num2+ord(ID[i])) shl 8; Num2:=Num2+ord(ID[5]); temp:=0; for i:=1 to 32 do begin temp:=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 begin Edit2.Text:=IntToHex(Code1, 8); Edit3.Text:=IntToHex(Code2, 8); end; if (CheckBox1.Checked=True) and (Edit1.Text<>'') then begin Reg:=TRegistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; if Reg.OpenKey('Software\Wom', True) then begin Reg.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); begin if CheckBox1.Checked=true then begin GetKeySpeedButton.Caption:='自动注册'; Label1.Caption:='注册者姓名'; Edit1.MaxLength:=0; Label2.Visible:=false; Label3.Visible:=false; Edit2.Visible:=false; Edit3.Visible:=false; end else begin GetKeySpeedButton.Caption:='取得注册码'; Label1.Caption:='注册申请码'; Edit1.MaxLength:=8; Label2.Visible:=true; Label3.Visible:=true; Edit2.Visible:=true; Edit3.Visible:=true; end; end; end. | 