最近这里好冷清，写个crackme，欢迎大家捧场

不懂算法

终于可以上传附件了，呵呵
johnroot兄好厉害，已经快接近终点了
不过你应该也看到了我最后一道暗桩了吧，嘿嘿，为啥你不把这个图发上来呢？

不懂算法

原帖由 fonge 于 2007-5-12 08:57 发表
开源，就两个字~

呵呵，如果本帖顶到100楼我就开源

johnroot

我还以为成功了也有这提示，再看看

不懂算法

这个提示是说你不是按照正常的方式注册，爆破或者自己创建key.txt
而且你这个提示后，你再重启，程序又不是注册的了
如果真正的注册码，无论重启多少次都是成功的

[ 本帖最后由 不懂算法 于 2007-5-12 11:06 编辑 ]

fonge

向牛人们学习～/:02

deletex

向牛人们学习～/:02

恩。。。确实厉害。。。

等某位牛人破出来弄个教程出来

fonge

原帖由 不懂算法 于 2007-5-12 10:50 发表

呵呵，如果本帖顶到100楼我就开源

看来，得努力了～
发一贴顶一贴，＋加评论一贴，现在贴约四十，后面只要有二十贴就足也
呵呵.../:12

不懂算法

源码已经上传，请看楼顶

johnroot

开始漏了第5-8位注册码的算法
补上：
::00401B50::  33C0                     XOR     EAX, EAX                        
::00401B52::  0FBE5404 14              MOVSX   EDX, BYTE PTR [ESP+EAX+14]      \:BYJMP JmpBy:00401B81,
::00401B57::  0FBE4C04 15              MOVSX   ECX, BYTE PTR [ESP+EAX+15]      
::00401B5C::  83F1 28                  XOR     ECX, 28                        
::00401B5F::  83F2 28                  XOR     EDX, 28                        
::00401B62::  03D1                     ADD     EDX, ECX                        
::00401B64::  0FBE4C04 17              MOVSX   ECX, BYTE PTR [ESP+EAX+17]      
::00401B69::  83F1 28                  XOR     ECX, 28                        
::00401B6C::  03D1                     ADD     EDX, ECX                        
::00401B6E::  0FBE4C04 16              MOVSX   ECX, BYTE PTR [ESP+EAX+16]      
::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 [ECX+EDX]        
::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[i]:=pp[i];
  end;

  j:=0;
  for i:=0 to $f do
  begin
   k:=ord(nameok[i]) xor $82;
   j:=j + k;
  end;
  gg := pchar(inttostr(j));

  j:=0;
  for i:=0 to $f do
  begin
   k:=ord(nameok[i]) 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[i]:= char($69 - ord(gg[i]));
  end;

  for i:=0 to 3 do
  begin
   mm2[i]:= char($69 - ord(gg2[i]));
  end;

  edit2.text:=string(gg) + string(gg2) + string(mm) + string(mm2);
end;

[[i] 本帖最后由 johnroot 于 2007-5-12 15:15 编辑 [/i]]

johnroot

胜利图片！