johnroot兄好厉害，已经快接近终点了
不过你应该也看到了我最后一道暗桩了吧，嘿嘿，为啥你不把这个图发上来呢？
原帖由 fonge 于 2007-5-12 08:57 发表 https://www.chinapyg.com/images/common/back.gif
开源，就两个字~
呵呵，如果本帖顶到100楼我就开源
呵呵！
我还以为成功了也有这提示，再看看 这个提示是说你不是按照正常的方式注册，爆破或者自己创建key.txt而且你这个提示后，你再重启，程序又不是注册的了
如果真正的注册码，无论重启多少次都是成功的
[ 本帖最后由 不懂算法 于 2007-5-12 11:06 编辑 ] 向牛人们学习～/:02 向牛人们学习～/:02
恩。。。确实厉害。。。
等某位牛人破出来弄个教程出来 原帖由 不懂算法 于 2007-5-12 10:50 发表 https://www.chinapyg.com/images/common/back.gif
呵呵，如果本帖顶到100楼我就开源
看来，得努力了～
发一贴顶一贴，＋加评论一贴，现在贴约四十，后面只要有二十贴就足也
呵呵.../:12 源码已经上传，请看楼顶
完美注册机！
开始漏了第5-8位注册码的算法补上：
::00401B50::33C0 XOR EAX, EAX
::00401B52::0FBE5404 14 MOVSX EDX, BYTE PTR \:BYJMP JmpBy:00401B81,
::00401B57::0FBE4C04 15 MOVSX ECX, BYTE PTR
::00401B5C::83F1 28 XOR ECX, 28
::00401B5F::83F2 28 XOR EDX, 28
::00401B62::03D1 ADD EDX, ECX
::00401B64::0FBE4C04 17 MOVSX ECX, BYTE PTR
::00401B69::83F1 28 XOR ECX, 28
::00401B6C::03D1 ADD EDX, ECX
::00401B6E::0FBE4C04 16 MOVSX ECX, BYTE PTR
::00401B73::83F1 28 XOR ECX, 28
::00401B76::03CF ADD ECX, EDI
::00401B78::83C0 04 ADD EAX, 4
::00401B7B::83F8 10 CMP EAX, 10
::00401B7E::8D3C11 LEA EDI, DWORD PTR
::00401B81::7C CF JL SHORT 00401B52 \:JMPUP
用户名：johnroot
注册码：2939091570609084
注册机DELPHI代码：
procedure TForm1.Button1Click(Sender: TObject);
var
nameok,pp,gg,gg2,mm,mm2:pchar;
i,j,j2,k:integer;
begin
getmem(nameok,$10);
ZeroMemory(nameok,$10);
getmem(mm,5);
ZeroMemory(mm,5);
getmem(mm2,5);
ZeroMemory(mm2,5);
pp:=pchar(edit1.Text);
for i:=0 to (length(pp)-1) do
begin
nameok:=pp;
end;
j:=0;
for i:=0 to $f do
begin
k:=ord(nameok) xor $82;
j:=j + k;
end;
gg := pchar(inttostr(j));
j:=0;
for i:=0 to $f do
begin
k:=ord(nameok) xor $28;
j2:=j2 + k;
end;
gg2 := pchar(inttostr(j2));
if length(gg2)<4 then
begin
gg2:=pchar('0' + string(gg2));
end;
for i:=0 to 3 do
begin
mm:= char($69 - ord(gg));
end;
for i:=0 to 3 do
begin
mm2:= char($69 - ord(gg2));
end;
edit2.text:=string(gg) + string(gg2) + string(mm) + string(mm2);
end;
[ 本帖最后由 johnroot 于 2007-5-12 15:15 编辑 ]