[反汇编练习] 160个CrackMe之036.
本系列文章的目的是从一个没有任何经验的新手的角度(其实就是我自己)，一步步尝试将160个CrackMe全部破解，如果可以，通过任何方式写出一个类似于注册机的东西。
其中，文章中按照如下逻辑编排（解决如下问题）：
1、使用什么环境和工具
2、程序分析
3、思路分析和破解流程
4、注册机的探索
----------------------------------
提醒各位看客: 如果文章中的逻辑看不明白,那你一定是没有亲手操刀!OD中的跳转提示很强大,只要你跟踪了,不用怎么看代码就理解了!
----------------------------------
1、工具和环境：
WinXP SP3 + 52Pojie六周年纪念版OD + PEID + 汇编金手指。
160个CrackMe的打包文件。
下载地址： http://pan.baidu.com/s/1xUWOY 密码: jbnq
注：
1、Win7系统对于模块和程序开启了随机初始地址的功能，会给分析带来很大的负担，所以不建议使用Win7进行分析。
2、以上工具都是在52PoJie论坛下的原版程序，NOD32不报毒，个人承诺绝对不会进行任何和木马病毒相关内容。
2、程序分析：
想要破解一个程序，必须先了解这个程序。所以，在破解过程中，对最初程序的分析很重要，他可以帮助我们理解作者的目的和意图，特别是对于注册码的处理细节，从而方便我们反向跟踪和推导。
和上一节一样，打开CHM，选择第35个cupofcoffe.2.exe，保存下来。运行程序，程序界面如下：
PEID: Microsoft Visual Basic 5.0 / 6.0
3、思路分析和破解流程
上一个直接使用字符串查找，但是又因为他有信息框弹出，所以暂停，Ctrl+K，查看堆栈也可以的。
具体步骤省略了！这个程序的作者....
美中不足的是不知这个程序怎么造成的，VB反编译工具和SmartCheck无法跟踪，幸亏我们的OD有驱动，一般的反调试完全可以无视！哈哈哈！
(PS: pro 9.2 版本以上的都已经可以了，具体代码附最后)
0052167E . FF15 D4405200 call dword ptr ds:[<&MSVBVM50.__vbaHresu>; msvbvm50.__vbaHresultCheckObj 00521684 > 8B4D E8 mov ecx,dword ptr ss:[ebp-0x18] 00521687 . 51 push ecx 00521688 . 68 60054500 push 00450560 ; UNICODE ".........." 0052168D . FF15 F8405200 call dword ptr ds:[<&MSVBVM50.__vbaStrCm>; msvbvm50.__vbaStrCmp 00521693 . 8BF0 mov esi,eax 00521695 . 8D4D E8 lea ecx,dword ptr ss:[ebp-0x18] 00521698 . F7DE neg esi 0052169A . 1BF6 sbb esi,esi 0052169C . F7DE neg esi 0052169E . F7DE neg esi 005216A0 . FF15 4C415200 call dword ptr ds:[<&MSVBVM50.__vbaFreeS>; msvbvm50.__vbaFreeStr 005216A6 . 8D4D E4 lea ecx,dword ptr ss:[ebp-0x1C] 005216A9 . FF15 50415200 call dword ptr ds:[<&MSVBVM50.__vbaFreeO>; msvbvm50.__vbaFreeObj 005216AF . 66:3BF7 cmp si,di 005216B2 . 74 6E je short 00521722 005216B4 . B9 04000280 mov ecx,0x80020004 005216B9 . B8 0A000000 mov eax,0xA 005216BE . 894D AC mov dword ptr ss:[ebp-0x54],ecx 005216C1 . 894D BC mov dword ptr ss:[ebp-0x44],ecx 005216C4 . 894D CC mov dword ptr ss:[ebp-0x34],ecx 005216C7 . 8D55 94 lea edx,dword ptr ss:[ebp-0x6C] 005216CA . 8D4D D4 lea ecx,dword ptr ss:[ebp-0x2C] 005216CD . 8945 A4 mov dword ptr ss:[ebp-0x5C],eax 005216D0 . 8945 B4 mov dword ptr ss:[ebp-0x4C],eax 005216D3 . 8945 C4 mov dword ptr ss:[ebp-0x3C],eax 005216D6 . C745 9C 7C054>mov dword ptr ss:[ebp-0x64],0045057C ; UNICODE "Incorrect password" 005216DD . C745 94 08000>mov dword ptr ss:[ebp-0x6C],0x8 005216E4 . FF15 38415200 call dword ptr ds:[<&MSVBVM50.__vbaVarDu>; msvbvm50.__vbaVarDup 005216EA . 8D55 A4 lea edx,dword ptr ss:[ebp-0x5C] 005216ED . 8D45 B4 lea eax,dword ptr ss:[ebp-0x4C] 005216F0 . 52 push edx 005216F1 . 8D4D C4 lea ecx,dword ptr ss:[ebp-0x3C] 005216F4 . 50 push eax 005216F5 . 51 push ecx 005216F6 . 8D55 D4 lea edx,dword ptr ss:[ebp-0x2C] 005216F9 . 6A 10 push 0x10 005216FB . 52 push edx 005216FC . FF15 E0405200 call dword ptr ds:[<&MSVBVM50.#595>] ; msvbvm50.rtcMsgBox
这个除了界面，完全和第一个没什么区别，爆破什么的就算了，直接10个点结束！
4、注册机的探索
和上一个一样，10个点。
附 VB 反编译代码：
Pro 9.2版本： Private Sub cmdOK_Click() '5215F0 loc_00521622: var_8 = &H401000 loc_00521630: call Me.AddRef 'Ignore this(edi, Me, esi) loc_0052164E: call Form1.txtPassword 'Ignore this(Me) loc_005216B2: If (CheckObj(Form1.txtPassword, 4523340, 160) = "..........") = 0 Then GoTo loc_00521722 loc_005216BE: var_54 = 80020004h loc_005216C1: var_44 = 80020004h loc_005216C4: var_34 = 80020004h loc_005216CD: var_5C = 10 loc_005216D0: var_4C = 10 loc_005216D3: var_3C = 10 loc_005216D6: var_64 = "Incorrect password" loc_005216DD: var_6C = 8 loc_005216FC: MsgBox "Incorrect password", 16 loc_00521714: call undef 'Ignore this '__vbaFreeVarList(var_5C) loc_0052171D: GoTo loc_005217A9 loc_00521759: var_6C = 2 loc_00521771: var_64 = 1 loc_0052178B: Form2.Show %x1, %x2 loc_005217B1: GoTo loc_005217E1 loc_005217D7: call undef 'Ignore this '__vbaFreeVarList(var_5C) loc_005217E0: Exit Sub loc_005217E1: Exit Sub loc_005217E8: call Me.Release 'Ignore this End Sub
BY 笨笨D幸福