160个CrackMe[80 fireworx.12]算法分析+注册机源码

160个CrackMe[80 fireworx.12]算法分析+注册机源码

学习算法分析+Delphi内联汇编注册机源码

1. 
   
2. 004417F7    8B45 F8         mov eax,dword ptr ss:[ebp-0x8]           ; 堆栈 ss:[0012F404]=00947B68, (ASCII "253282")  这个是程序启动时候生成的随机数
   
3. 004417FA    E8 C55EFCFF     call fireworx.004076C4
   
4. 004417FF    8BC8            mov ecx,eax                              ; 转换成16进制eax=0003DD62
   
5. 00441801    8BC1            mov eax,ecx
   
6. 00441803    B9 8C070000     mov ecx,0x78C                            ; ECX=078C
   
7. 00441808    99              cdq
   
8. 00441809    F7F9            idiv ecx                                 ; 除以0x78C
   
9. 0044180B    69C0 99030000   imul eax,eax,0x399                       ; 得到的商EAX=83*0x399
   
10. 00441811    C1E0 11         shl eax,0x11                             ; eax=0001D74B 左移0x11位
    
11. 00441814    C1E8 09         shr eax,0x9                              ; eax=AE960000然后右移0x9位
    
12. 00441817    B9 0C000000     mov ecx,0xC                              ; ECX=0xC
    
13. 0044181C    99              cdq
    
14. 0044181D    F7F9            idiv ecx                                 ; EAX=00574B00除以0xC
    
15. 0044181F    8BF0            mov esi,eax                              ; 得到的商EAX=eax=00074640
    
16. 00441821    8D55 FC         lea edx,dword ptr ss:[ebp-0x4]
    
17. 00441824    8BC6            mov eax,esi
    
18. 00441826    E8 695EFCFF     call fireworx.00407694
    
19. 0044182B    8D55 F8         lea edx,dword ptr ss:[ebp-0x8]
    
20. 0044182E    8B83 C4020000   mov eax,dword ptr ds:[ebx+0x2C4]         ; ds:[0094313C]=009449EC
    
21. 00441834    E8 471AFEFF     call fireworx.00423280
    
22. 00441839    8B45 F8         mov eax,dword ptr ss:[ebp-0x8]           ; 输入的假码(ASCII "abc")
    
23. 0044183C    8B55 FC         mov edx,dword ptr ss:[ebp-0x4]           ; 74640转换为10进制的结果(ASCII "476736")
    
24. 0044183F    E8 5C23FCFF     call fireworx.00403BA0                   ; 比较是否相等
    

复制代码

注册机源码

1. 
   
2. procedure TForm1.Button1Click(Sender: TObject);
   
3. var
   
4.   a:integer;
   
5. begin
   
6.   a:=strtoint(Edit1.Text);
   
7.   asm
   
8.     pushad
   
9.     mov eax,a
   
10.     mov ecx,$78c
    
11.     cdq
    
12.     idiv ecx
    
13.     imul eax,eax,$399
    
14.     shl eax,$11
    
15.     shr eax,$9
    
16.     mov ecx,$c
    
17.     cdq
    
18.     idiv ecx
    
19.     mov &a,eax
    
20.     popad
    
21.   end;
    
22.   Edit2.text:=inttostr(a);
    
23. end;
    

复制代码

谢谢楼主分享！

我发现这一篇的算法居然又跟除法扯上了关系，唉

感谢楼主分享新技能！努力学习ing！

[快捷回复]-学破解防逆向，知进攻懂防守！

大神真是太牛了

感谢楼主分享

这个必须要收起来，非常实用

真厉害，大佬，我学到了