建议分享算法过程和注册机的制作过程!/:001
注册码第一段=机器码+38094
注册码第二段=第一段+73239
注册码第三段=第一段+第二段+25266
:loveliness:
var
nNum : Int64;
begin
try
nNum := StrToInt(Edit1.Text);
except
Exit;
end;
nNum := nNum + 38094;
Edit2.Text := IntToStr(nNum);
nNum := nNum + 73239;
Edit3.Text := IntToStr(nNum);
nNum := nNum + nNum - 73239 + 25266;
Edit4.Text := IntToStr(nNum);
end;
:loveliness: 收下了啊~~谢谢! 感谢分享,很好用。
页:
1
[2]