unit unit1;
inte***ce
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
public
end;
varform1: tform1;
family, model, stepping: byte;
implementation
//獲得cpu資訊的過程,用彙編**寫的
procedure getcpuid;
a**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;
vara, 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;
endelse begin
b:=b - 1;
c:=(a * c) mod n;
end;
result:=c;
end;
//下面四行語句是把字串'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;
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;
endelse begin
getkeyspeedbutton.caption:='取得註冊碼';
label1.caption:='註冊申請碼';
edit1.maxlength:=8;
label2.visible:=true;
label3.visible:=true;
edit2.visible:=true;
edit3.visible:=true;
end;
end;
end.
Windows優化大師序號產生器原始碼
windows優化大師序號產生器原始碼 unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,registry,stdctrls,buttons type ...
Flash Builder4序號產生器
我的eclipse下的flash builder 4正式版已經過期,之前在網上找到的註冊碼,都不能用了,花了很久時間,才做到這個序號產生器。flash builder 4 序號產生器 serial crack keygen 現在將adobe flash builder 4 正式版 序號產生器 共享出...
C 序號產生器的實現
softreg類 using system using system.collections.generic using system.linq using system.text using system.management 需要引用system.management.dll namespace...