首页
论坛
课程
招聘
[原创] 个人日程助手1.0算法分析和注册机编写
2005-10-17 18:59 7462

[原创] 个人日程助手1.0算法分析和注册机编写

2005-10-17 18:59
7462
【软件名称】: 个人日程助手1.0

【软件介绍】: 国产软件 / 共享版 / 信息管理 / 简体中文 /  1184 KB

【软件下载】:http://www2.skycn.com/soft/5282.html

【保护方式】:注册码 + 功能限制

【破解工具】:Win2003, PEiD, Ollydbg,,

【破解目的】:研究算法分析

【作者声明】:初学Crack,只是感兴趣,没有其他目的。失误之处敬请诸位大侠赐教!

【破解过程】:
侦测:用PEiD查壳 Borland Delphi 6.0 - 7.0 哇没有壳啊,现在没有壳的软件可是真少啊。

先运行软件,点“注册”输入注册码,点确定,提示“注册码不正确,请注册申请注册码”

废话少说。。OllyDbg 载入软件, 查找ASCLL字符串,找到“注册码不正确,请注册申请注册码”

双击来到下面:
0047AD7B   .  8B45 E8       MOV EAX,DWORD PTR SS:[EBP-18]
0047AD7E   .  8D55 EC       LEA EDX,DWORD PTR SS:[EBP-14]
0047AD81   .  E8 1EC9FFFF   CALL Assistan.004776A4                     ;计算机器码,这我们不用管它
0047AD86   .  8B45 EC       MOV EAX, DWORD PTR SS:[EBP-14]
0047AD89   .  8D55 F0       LEA EDX,DWORD PTR SS:[EBP-10]
0047AD8C   .  E8 5FD1F8FF   CALL Assistan.00407EF0                     ;关键CALL,计算注册码
0047AD91   .  8B55 F0       MOV EDX,DWORD PTR SS:[EBP-10]
0047AD94   .  58            POP EAX
0047AD95   .  E8 9E96F8FF   CALL Assistan.00404438                     ;比较注册码
0047AD9A   .  0F85 8B000000 JNZ Assistan.0047AE2B                      ;关键跳转,爆破改为JZ就行了
0047ADA0   .  B2 01         MOV DL,1
0047ADA2   .  A1 98E44200   MOV EAX,DWORD PTR DS:[42E498]
0047ADA7   .  E8 EC37FBFF   CALL Assistan.0042E598
0047ADAC   .  8945 FC       MOV DWORD PTR SS:[EBP-4],EAX
0047ADAF   .  33C0          XOR EAX,EAX
0047ADB1   .  55            PUSH EBP
0047ADB2   .  68 24AE4700   PUSH Assistan.0047AE24
0047ADB7   .  64:FF30       PUSH DWORD PTR FS:[EAX]
0047ADBA   .  64:8920       MOV DWORD PTR FS:[EAX],ESP
0047ADBD   .  BA 02000080   MOV EDX,80000002
0047ADC2   .  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
0047ADC5   .  E8 6E38FBFF   CALL Assistan.0042E638
0047ADCA   .  33C9          XOR ECX,ECX
0047ADCC   .  BA 74AE4700   MOV EDX,Assistan.0047AE74                   ;Software\MyAssistant\Option
0047ADD1   .  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
0047ADD4   .  E8 C738FBFF   CALL Assistan.0042E6A0
0047ADD9   .  8D45 E0       LEA EAX,DWORD PTR SS:[EBP-20]
0047ADDC   .  E8 8BC9FFFF   CALL Assistan.0047776C
0047ADE1   .  8B45 E0       MOV EAX,DWORD PTR SS:[EBP-20]
0047ADE4   .  8D55 E4       LEA EDX,DWORD PTR SS:[EBP-1C]
0047ADE7   .  E8 B8C8FFFF   CALL Assistan.004776A4
0047ADEC   .  8B4D E4       MOV ECX,DWORD PTR SS:[EBP-1C]
0047ADEF   .  BA 98AE4700   MOV EDX,Assistan.0047AE98                    ;RegistryCode"注册码写入注册表
0047ADF4   .  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
0047ADF7   .  E8 403CFBFF   CALL Assistan.0042EA3C
0047ADFC   .  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
0047ADFF   .  E8 0438FBFF   CALL Assistan.0042E608
0047AE04   .  B8 B0AE4700   MOV EAX,Assistan.0047AEB0                    ;弹出对话框注册成功
0047AE09   .  E8 52E2FAFF   CALL Assistan.00429060
0047AE0E   .  33C0          XOR EAX,EAX
0047AE10   .  5A            POP EDX
0047AE11   .  59            POP ECX
0047AE12   .  59            POP ECX
0047AE13   .  64:8910       MOV DWORD PTR FS:[EAX],EDX
0047AE16   .  68 35AE4700   PUSH Assistan.0047AE35
0047AE1B   >  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
0047AE1E   .  E8 B984F8FF   CALL Assistan.004032DC
0047AE23   .  C3            RETN
0047AE24   .^ E9 078CF8FF   JMP Assistan.00403A30
0047AE29   .^ EB F0         JMP SHORT Assistan.0047AE1B
0047AE2B   >  B8 C4AE4700   MOV EAX,Assistan.0047AEC4                    ;注册码不正确,请注册申请注册码!跳到这就失败了!
0047AE30   .  E8 2BE2FAFF   CALL Assistan.00429060
0047AE35   .  33C0          XOR EAX,EAX
==============我们进入关键CALL看看===================
004776CC  |.  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]             ;  取出机器码
004776CF  |.  E8 18CCF8FF   CALL Assistan.004042EC                   ;  计算的机器码长度
004776D4  |.  8BD0          MOV EDX,EAX                              ;  压入机器码长度
004776D6  |.                      85D2          TEST EDX,EDX
004776D8  |.  76 1C         JBE SHORT Assistan.004776F6
004776DA  |.  B8 01000000   MOV EAX,1                        
004776DF  |>  8B4D FC       /MOV ECX,DWORD PTR SS:[EBP-4]            ;  第一次循环入口
004776E2  |.  0FB64C01 FF   |MOVZX ECX,BYTE PTR DS:[ECX+EAX-1]       ;  从左到右取机器码ASCLL码
004776E7  |.  03D9          |ADD EBX,ECX                             ;  将机器码ASCLL值加上刚才循环计算的值
004776E9  |.  8BCB          |MOV ECX,EBX                           
004776EB  |.  03C9          |ADD ECX,ECX                                 
004776ED  |.  8D0C89        |LEA ECX,DWORD PTR DS:[ECX+ECX*4]      
004776F0  |.  8BD9          |MOV EBX,ECX                             ;  上面四行把机器码ASC乘十                       
004776F2  |.  40            |INC EAX                              
004776F3  |.  4A            |DEC EDX                                 ;  这的值等于机器码长度每循环一次就减一
004776F4  |.^ 75 E9         \JNZ SHORT Assistan.004776DF             ;  如果EDX大于0就继续循环
;  上面的循环就是把机器码左到右的ASCLL码乘以10并相加
004776F6  |>  8BC3          MOV EAX,EBX                              ;  压入计算后的值我们设置为Z                             
004776F8  |.  33D2          XOR EDX,EDX
004776FA  |.  52            PUSH EDX                                 ; /Arg2 => 00000000
004776FB  |.  50            PUSH EAX                                 ; |Arg1
004776FC  |.  8D45 F8       LEA EAX,DWORD PTR SS:[EBP-8]             ; |EAX
004776FF  |.  E8 D809F9FF   CALL Assistan.004080DC                   ; \Assistan.004080DC
00477704  |.  33DB          XOR EBX,EBX
00477706  |.  8B45 F8       MOV EAX,DWORD PTR SS:[EBP-8]
00477709  |.  E8 DECBF8FF   CALL Assistan.004042EC                   ;  计算Z的长度  
0047770E  |.  83F8 01       CMP EAX,1                                ;  比较Z的长度
00477711  |.  72 18         JB SHORT Assistan.0047772B               ;  大于1就直进入循环
00477713  |>  8B55 F8       /MOV EDX,DWORD PTR SS:[EBP-8]            ;  第二次循环入口
00477716  |.  0FB65402 FF   |MOVZX EDX,BYTE PTR DS:[EDX+EAX-1]       ;  从右到左取Z ASCLL码
0047771B  |.  03DA          |ADD EBX,EDX                             ;  将机器码ASCLL值加上刚才循环计算的值
0047771D  |.  8BD3          |MOV EDX,EBX                             
0047771F  |.  03D2          |ADD EDX,EDX                           
00477721  |.  8D1492        |LEA EDX,DWORD PTR DS:[EDX+EDX*4]      
00477724  |.  8BDA          |MOV EBX,EDX                             ;  上面四行把Z的ASCLL乘十                        
00477726  |.  48            |DEC EAX                                 ;  这的值等于机器码长度每循环一次就减一
00477727  |.  85C0          |TEST EAX,EAX
00477729  |.^ 75 E8         \JNZ SHORT Assistan.00477713             ;  如果EAX大于0就继续循环
                                                                     ;  上面的循环就是把机器码左到右的ASCLL码乘以10并相加
0047772B  |>  8BC3          MOV EAX,EBX                              ;  压入计算后的值(些值为十六进制)  
0047772D  |.  33D2          XOR EDX,EDX
0047772F  |.  52            PUSH EDX                                 ; /Arg2 => 00000000
00477730  |.  50            PUSH EAX                                 ; |Arg1
00477731  |.  8D45 F4       LEA EAX,DWORD PTR SS:[EBP-C]             ; |
00477734  |.  E8 A309F9FF   CALL Assistan.004080DC                   ; \Assistan.004080DC
00477739  |.  8B45 F4       MOV EAX,DWORD PTR SS:[EBP-C]
0047773C  |.  8BD6          MOV EDX,ESI
0047773E  |.  E8 AD07F9FF   CALL Assistan.00407EF0                   ;  把十六进制转不十进制既真正的注册码
00477743  |.  33C0          XOR EAX,EAX                              ;  压入真注册码
00477745  |.  5A            POP EDX
00477746  |.  59            POP ECX
00477747  |.  59            POP ECX
【破解总结】:
            些软件通过一定算法的到一个机器码,这个机器码的算法就不用研究了,注册码通过机器码进行二次运算的到,
第一次把机器码的ASCLL的值从左到右进行取出乘以十并相加。的出一个值,然后进行第二次计算把刚才算出来的值的ASCLL
的值从右到左取出乘以十并相加,些时计算出来的值为十六进制,最后把管个十六进制转会十进制就是我们想要的注册码了

【注册机制作】:
          现在我们可以来制作注册机了,呵呵,我只会用Delphi哟!好了开始开工了。
先来写三个函数吧!
第一个函数模仿第一次计算
function strtointex(s:String):integer;
var i,n:integer;
begin
n:=0;
if length(s)-1>0 then
for i:=1 to length(s) do
    n:=(n+ord(s[i]))*10;
result:=n;
end;
第二个函数模仿第二次计算
function strtointex0(s:String):string;
var i:integer;
    n:int64;
    x:string;
begin
n:=0;
result:='';
if length(s)>0 then
begin
for i:=length(s) downto 1 do
    n:=(n+ord(s[i]))*10;
x:=inttohex(n,16);
result:=copy(x,length(x)-7,8);
end;
end;
   第三个函数就是把十六进步转为十进制,不知道为什么Delphi中没有内置还个函数,还是不知道!管他了,我们写一个!
function HexTostr(Hex: String): string;
var
    I:integer; Res: int64;
    ch: Char;
begin
    Res := 0;
    if Length(Hex)>0 then
    for I := 0 to Length(Hex) - 1 do
    begin
      ch := Hex[I + 1];
      if (ch >= '0') and (ch <= '9') then
        Res := Res * 16 + Ord(ch) - Ord('0')
      else if (ch >= 'A') and (ch <= 'F') then
        Res := Res * 16 + Ord(ch) - Ord('A') + 10
      else if (ch >= 'a') and (ch <= 'f') then
        Res := Res * 16 + Ord(ch) - Ord('a') + 10
      else raise Exception.Create('Error: not a Hex String');
    end;
    Result := inttostr(Res);
end;
好了注册机主要部分我们做好了`~在程序上放两个Edit…(edit1和edit2)在edit1的OnKeyUp事件中加上
Edit2.text:=HexTostr(strtointex0(inttostr(strtointex(edit1.text))));
好了注册机搞定,呵呵。。。。。。。。函数写的有什么不好的地方希望高手提出,我的QQ:9674103希望大家一起交流。我是个菜鸟~~

看雪招聘平台创建简历并且简历完整度达到90%及以上可获得500看雪币~

收藏
点赞0
打赏
分享
最新回复 (9)
雪    币: 212
活跃值: 活跃值 (56)
能力值: ( LV12,RANK:1130 )
在线值:
发帖
回帖
粉丝
baby2008 活跃值 28 2005-10-17 19:06
2
0
这些函数Delphi都自带的

第一个字符串转数值  StrToInt
雪    币: 240
活跃值: 活跃值 (26)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
fwycfpg 活跃值 1 2005-10-17 19:17
3
0
StrToInt
这个是有啊~~
看哈我第一个函数的作用啊!
雪    币: 201
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
luye 活跃值 2005-10-17 19:26
4
0
我要向你好好学习,天天向上!
雪    币: 240
活跃值: 活跃值 (26)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
fwycfpg 活跃值 1 2005-10-17 19:47
5
0
我是菜鸟~~~
刚学这个~
大家一起学习
雪    币: 201
活跃值: 活跃值 (11)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
shirely 活跃值 1 2005-10-17 22:44
6
0
顶一个,好好学习。。。。
雪    币: 218
活跃值: 活跃值 (11)
能力值: ( LV12,RANK:290 )
在线值:
发帖
回帖
粉丝
rick 活跃值 7 2005-10-18 01:21
7
0
我对汇编不太了解,有个地方看不明白

004776E7  |.  03D9          |ADD EBX,ECX ; 将机器码ASCLL值加上刚才循环计算的值

004776E9  |.  8BCB          |MOV ECX,EBX                           
这个地方是把相加的结果放到ecx吧?
004776EB  |.  03C9          |ADD ECX,ECX
这个是把ECX*2 ?
004776ED  |.  8D0C89        |LEA ECX,DWORD PTR DS:[ECX+ECX*4]
这条指令不太明白?
004776F0  |.  8BD9          |MOV EBX,ECX;  上面四行把机器码ASC乘十
雪    币: 215
活跃值: 活跃值 (10)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
skyege 活跃值 2 2005-10-18 18:09
8
0
很久以前就搞过了,很简单那的说
雪    币: 205
活跃值: 活跃值 (10)
能力值: ( LV8,RANK:130 )
在线值:
发帖
回帖
粉丝
南蛮妈妈 活跃值 3 2005-10-18 18:21
9
0
支持一下
雪    币: 201
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
wclzxy 活跃值 2005-10-19 09:04
10
0
好,不错,我只会VB,算法懂了注册机也能做吧?

都说C好,有时间学学C
游客
登录 | 注册 方可回帖
返回