[反汇编练习] 160个CrackMe之017.
本系列文章的目的是从一个没有任何经验的新手的角度(其实就是我自己)，一步步尝试将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，选择第17个BJCM30A.exe，保存下来。运行程序，程序界面如下：
3、思路分析和破解流程
又见信息框，我很高兴啊！
PEID: Microsoft Visual Basic 5.0 / 6.0
和以前的一样，直接上步骤：
1、打开OD，将exe拖到OD窗口中，等程序暂停后，直接点击运行按钮(F9)，不用理会。
2、在exe中输入Key：bbdxf。点击OK按钮，弹出错误信息框，不要关闭。
3、在OD中点击暂停按钮(Ctrl+F12)，再点击堆栈K按钮(Ctrl+K)，可以看到当前堆栈情况。
在反汇编窗口信息：
00404E30 /0F84 AD000000 je 00404EE3 ; // 关键跳转 00404E36 . |8B1D CC104000 mov ebx,dword ptr ds:[<&MSVBVM60.__vbaVa>; msvbvm60.__vbaVarDup 00404E3C . |B9 04000280 mov ecx,0x80020004 00404E41 . |898D 20FFFFFF mov dword ptr ss:[ebp-0xE0],ecx 00404E47 . |B8 0A000000 mov eax,0xA 00404E4C . |898D 30FFFFFF mov dword ptr ss:[ebp-0xD0],ecx 00404E52 . |8D95 F8FEFFFF lea edx,dword ptr ss:[ebp-0x108] 00404E58 . |8D8D 38FFFFFF lea ecx,dword ptr ss:[ebp-0xC8] 00404E5E . |8985 18FFFFFF mov dword ptr ss:[ebp-0xE8],eax 00404E64 . |8985 28FFFFFF mov dword ptr ss:[ebp-0xD8],eax 00404E6A . |C785 00FFFFFF>mov dword ptr ss:[ebp-0x100],00402BB4 ; UNICODE "Correct serial!" 00404E74 . |89B5 F8FEFFFF mov dword ptr ss:[ebp-0x108],esi 00404E7A . |FFD3 call ebx ; <&MSVBVM60.__vbaVarDup> 00404E7C . |8D95 08FFFFFF lea edx,dword ptr ss:[ebp-0xF8] 00404E82 . |8D8D 48FFFFFF lea ecx,dword ptr ss:[ebp-0xB8] 00404E88 . |C785 10FFFFFF>mov dword ptr ss:[ebp-0xF0],00402B68 ; UNICODE "Good job, tell me how you do that!" 00404E92 . |89B5 08FFFFFF mov dword ptr ss:[ebp-0xF8],esi 00404E98 . |FFD3 call ebx 00404E9A . |8D8D 18FFFFFF lea ecx,dword ptr ss:[ebp-0xE8] 00404EA0 . |8D95 28FFFFFF lea edx,dword ptr ss:[ebp-0xD8] 00404EA6 . |51 push ecx 00404EA7 . |8D85 38FFFFFF lea eax,dword ptr ss:[ebp-0xC8] 00404EAD . |52 push edx 00404EAE . |50 push eax 00404EAF . |8D8D 48FFFFFF lea ecx,dword ptr ss:[ebp-0xB8] 00404EB5 . |57 push edi 00404EB6 . |51 push ecx 00404EB7 . |FF15 3C104000 call dword ptr ds:[<&MSVBVM60.#595>] ; msvbvm60.rtcMsgBox 00404EBD . |8D95 18FFFFFF lea edx,dword ptr ss:[ebp-0xE8] 00404EC3 . |8D85 28FFFFFF lea eax,dword ptr ss:[ebp-0xD8] 00404EC9 . |52 push edx 00404ECA . |8D8D 38FFFFFF lea ecx,dword ptr ss:[ebp-0xC8] 00404ED0 . |50 push eax 00404ED1 . |8D95 48FFFFFF lea edx,dword ptr ss:[ebp-0xB8] 00404ED7 . |51 push ecx 00404ED8 . |52 push edx 00404ED9 . |E9 A8000000 jmp 00404F86 00404EDE > |BE 08000000 mov esi,0x8 00404EE3 > 8B1D CC104000 mov ebx,dword ptr ds:[<&MSVBVM60.__vbaVa>; msvbvm60.__vbaVarDup 00404EE9 . B9 04000280 mov ecx,0x80020004 00404EEE . 898D 20FFFFFF mov dword ptr ss:[ebp-0xE0],ecx 00404EF4 . B8 0A000000 mov eax,0xA 00404EF9 . 898D 30FFFFFF mov dword ptr ss:[ebp-0xD0],ecx 00404EFF . 8D95 F8FEFFFF lea edx,dword ptr ss:[ebp-0x108] 00404F05 . 8D8D 38FFFFFF lea ecx,dword ptr ss:[ebp-0xC8] 00404F0B . 8985 18FFFFFF mov dword ptr ss:[ebp-0xE8],eax 00404F11 . 8985 28FFFFFF mov dword ptr ss:[ebp-0xD8],eax 00404F17 . C785 00FFFFFF>mov dword ptr ss:[ebp-0x100],00402A10 ; UNICODE "Wrong serial!" 00404F21 . 89B5 F8FEFFFF mov dword ptr ss:[ebp-0x108],esi 00404F27 . FFD3 call ebx ; <&MSVBVM60.__vbaVarDup> 00404F29 . 8D95 08FFFFFF lea edx,dword ptr ss:[ebp-0xF8] 00404F2F . 8D8D 48FFFFFF lea ecx,dword ptr ss:[ebp-0xB8] 00404F35 . C785 10FFFFFF>mov dword ptr ss:[ebp-0xF0],00402BD8 ; UNICODE "Sorry, try again!" 00404F3F . 89B5 08FFFFFF mov dword ptr ss:[ebp-0xF8],esi 00404F45 . FFD3 call ebx 00404F47 . 8D85 18FFFFFF lea eax,dword ptr ss:[ebp-0xE8] 00404F4D . 8D8D 28FFFFFF lea ecx,dword ptr ss:[ebp-0xD8] 00404F53 . 50 push eax 00404F54 . 8D95 38FFFFFF lea edx,dword ptr ss:[ebp-0xC8] 00404F5A . 51 push ecx 00404F5B . 52 push edx 00404F5C . 8D85 48FFFFFF lea eax,dword ptr ss:[ebp-0xB8] 00404F62 . 57 push edi 00404F63 . 50 push eax 00404F64 . FF15 3C104000 call dword ptr ds:[<&MSVBVM60.#595>] ; msvbvm60.rtcMsgBox
随意向上翻翻，就发现了不同含义的文本，寻找je跳转，哈哈，是不是又被找出来了！
直接选中je 00404EE3 ，右键->Binary->Fill with NOPs.再试试：
哈哈，是不是被爆破了！
4、注册机的探索
写得多了，写到这里就郁闷了！
由于是VB程序，所以注册码比较的关键一般都是那几个文本比较函数，__vbastrcomp,__vbavartsteq,__vbastrcmp等。我们从关键跳转向上浏览，不理解的地方F8跟随：
0040461C . 51 push ecx ; // ecx ="123123" 0040461D . FF15 14104000 call dword ptr ds:[<&MSVBVM60.__vbaLenBs>; msvbvm60.__vbaLenBstr 00404623 . 8985 00FFFFFF mov dword ptr ss:[ebp-0x100],eax 00404629 . 8D95 08FFFFFF lea edx,dword ptr ss:[ebp-0xF8] 0040462F . 8D85 F8FEFFFF lea eax,dword ptr ss:[ebp-0x108] 00404635 . 52 push edx 00404636 . 8D8D E8FEFFFF lea ecx,dword ptr ss:[ebp-0x118] 0040463C . 50 push eax 0040463D . 8D95 64FEFFFF lea edx,dword ptr ss:[ebp-0x19C] 00404643 . 51 push ecx 00404644 . 8D85 74FEFFFF lea eax,dword ptr ss:[ebp-0x18C] 0040464A . 52 push edx 0040464B . 8D4D 94 lea ecx,dword ptr ss:[ebp-0x6C] 0040464E . 50 push eax 0040464F . 51 push ecx 00404650 . C785 F8FEFFFF>mov dword ptr ss:[ebp-0x108],0x3 0040465A . C785 F0FEFFFF>mov dword ptr ss:[ebp-0x110],0x1 00404664 . C785 E8FEFFFF>mov dword ptr ss:[ebp-0x118],0x2 ; // for 循环 0040466E . FF15 38104000 call dword ptr ds:[<&MSVBVM60.__vbaVarFo>; msvbvm60.__vbaVarForInit 00404674 . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 0040467A . 8985 30FEFFFF mov dword ptr ss:[ebp-0x1D0],eax 00404680 . FF15 F0104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStr 00404686 . 8D8D 5CFFFFFF lea ecx,dword ptr ss:[ebp-0xA4] 0040468C . FF15 F4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeO>; msvbvm60.__vbaFreeObj 00404692 . 8B1D DC104000 mov ebx,dword ptr ds:[<&MSVBVM60.__vbaSt>; msvbvm60.__vbaStrMove 00404698 > 39BD 30FEFFFF cmp dword ptr ss:[ebp-0x1D0],edi ; 1 0 0040469E . 0F84 F5010000 je 00404899 004046A4 . 8B16 mov edx,dword ptr ds:[esi] 004046A6 . 56 push esi 004046A7 . FF92 08030000 call dword ptr ds:[edx+0x308] 004046AD . 50 push eax 004046AE . 8D85 5CFFFFFF lea eax,dword ptr ss:[ebp-0xA4] 004046B4 . 50 push eax 004046B5 . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 004046BB . 8B08 mov ecx,dword ptr ds:[eax] 004046BD . 8D95 7CFFFFFF lea edx,dword ptr ss:[ebp-0x84] 004046C3 . 52 push edx 004046C4 . 50 push eax 004046C5 . 8985 D4FEFFFF mov dword ptr ss:[ebp-0x12C],eax 004046CB . FF91 A0000000 call dword ptr ds:[ecx+0xA0] 004046D1 . 3BC7 cmp eax,edi 004046D3 . DBE2 fclex 004046D5 . 7D 18 jge short 004046EF 004046D7 . 8B8D D4FEFFFF mov ecx,dword ptr ss:[ebp-0x12C] 004046DD . 68 A0000000 push 0xA0 004046E2 . 68 442B4000 push 00402B44 004046E7 . 51 push ecx 004046E8 . 50 push eax 004046E9 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 004046EF > 8B16 mov edx,dword ptr ds:[esi] 004046F1 . 56 push esi 004046F2 . FF92 08030000 call dword ptr ds:[edx+0x308] 004046F8 . 50 push eax 004046F9 . 8D85 58FFFFFF lea eax,dword ptr ss:[ebp-0xA8] 004046FF . 50 push eax 00404700 . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 00404706 . 8B08 mov ecx,dword ptr ds:[eax] 00404708 . 8D95 78FFFFFF lea edx,dword ptr ss:[ebp-0x88] 0040470E . 52 push edx 0040470F . 50 push eax 00404710 . 8985 CCFEFFFF mov dword ptr ss:[ebp-0x134],eax 00404716 . FF91 A0000000 call dword ptr ds:[ecx+0xA0] 0040471C . 3BC7 cmp eax,edi 0040471E . DBE2 fclex 00404720 . 7D 18 jge short 0040473A 00404722 . 8B8D CCFEFFFF mov ecx,dword ptr ss:[ebp-0x134] 00404728 . 68 A0000000 push 0xA0 0040472D . 68 442B4000 push 00402B44 00404732 . 51 push ecx 00404733 . 50 push eax 00404734 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 0040473A > B8 01000000 mov eax,0x1 0040473F . 8D95 48FFFFFF lea edx,dword ptr ss:[ebp-0xB8] 00404745 . 8985 50FFFFFF mov dword ptr ss:[ebp-0xB0],eax 0040474B . 8985 30FFFFFF mov dword ptr ss:[ebp-0xD0],eax 00404751 . 8985 00FFFFFF mov dword ptr ss:[ebp-0x100],eax 00404757 . 8D45 94 lea eax,dword ptr ss:[ebp-0x6C] 0040475A . B9 02000000 mov ecx,0x2 0040475F . 52 push edx ; 1 00404760 . 50 push eax ; 1 00404761 . 898D 48FFFFFF mov dword ptr ss:[ebp-0xB8],ecx 00404767 . 898D 28FFFFFF mov dword ptr ss:[ebp-0xD8],ecx 0040476D . 898D F8FEFFFF mov dword ptr ss:[ebp-0x108],ecx 00404773 . FF15 C4104000 call dword ptr ds:[<&MSVBVM60.__vbaI4Var>; msvbvm60.__vbaI4Var 00404779 . 8B8D 7CFFFFFF mov ecx,dword ptr ss:[ebp-0x84] 0040477F . 8B3D 54104000 mov edi,dword ptr ds:[<&MSVBVM60.#631>] ; msvbvm60.rtcMidCharBstr 00404785 . 50 push eax ; // eax = 1 2 3 00404786 . 51 push ecx ; // ecx ="123123" 00404787 . FFD7 call edi ; msvbvm60.rtcMidCharBstr; <&MSVBVM60.#631> 00404789 . 8BD0 mov edx,eax ; // eax = "1" "2" "3" 0040478B . 8D8D 74FFFFFF lea ecx,dword ptr ss:[ebp-0x8C] 00404791 . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404793 . 50 push eax ; // eax = "1" "2" 00404794 . 8D95 28FFFFFF lea edx,dword ptr ss:[ebp-0xD8] 0040479A . 8D45 94 lea eax,dword ptr ss:[ebp-0x6C] 0040479D . 52 push edx ; 1 0040479E . 8D8D F8FEFFFF lea ecx,dword ptr ss:[ebp-0x108] 004047A4 . 50 push eax ; 1 004047A5 . 8D95 38FFFFFF lea edx,dword ptr ss:[ebp-0xC8] 004047AB . 51 push ecx ; 1 004047AC . 52 push edx ; -1 004047AD . FF15 C8104000 call dword ptr ds:[<&MSVBVM60.__vbaVarAd>; msvbvm60.__vbaVarAdd 004047B3 . 50 push eax 004047B4 . FF15 C4104000 call dword ptr ds:[<&MSVBVM60.__vbaI4Var>; msvbvm60.__vbaI4Var 004047BA . 50 push eax ; // eax = 2 3 4 004047BB . 8B85 78FFFFFF mov eax,dword ptr ss:[ebp-0x88] 004047C1 . 50 push eax ; // eax = "123123" 004047C2 . FFD7 call edi ; msvbvm60.rtcMidCharBstr 004047C4 . 8BD0 mov edx,eax ; // eax = "2" "3" "1" 004047C6 . 8D8D 70FFFFFF lea ecx,dword ptr ss:[ebp-0x90] 004047CC . FFD3 call ebx ; msvbvm60.__vbaStrMove 004047CE . 50 push eax 004047CF . FF15 68104000 call dword ptr ds:[<&MSVBVM60.__vbaStrCm>; msvbvm60.__vbaStrCmp 004047D5 . 8BF8 mov edi,eax ; eax = -1 004047D7 . 8D8D 70FFFFFF lea ecx,dword ptr ss:[ebp-0x90] 004047DD . F7DF neg edi 004047DF . 8D95 74FFFFFF lea edx,dword ptr ss:[ebp-0x8C] 004047E5 . 51 push ecx 004047E6 . 8D85 78FFFFFF lea eax,dword ptr ss:[ebp-0x88] 004047EC . 52 push edx 004047ED . 1BFF sbb edi,edi 004047EF . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 004047F5 . 50 push eax 004047F6 . 47 inc edi 004047F7 . 51 push ecx 004047F8 . 6A 04 push 0x4 004047FA . F7DF neg edi 004047FC . FF15 B4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStrList 00404802 . 8D95 58FFFFFF lea edx,dword ptr ss:[ebp-0xA8] 00404808 . 8D85 5CFFFFFF lea eax,dword ptr ss:[ebp-0xA4] 0040480E . 52 push edx 0040480F . 50 push eax 00404810 . 6A 02 push 0x2 00404812 . FF15 24104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeO>; msvbvm60.__vbaFreeObjList 00404818 . 8D8D 28FFFFFF lea ecx,dword ptr ss:[ebp-0xD8] 0040481E . 8D95 38FFFFFF lea edx,dword ptr ss:[ebp-0xC8] 00404824 . 51 push ecx 00404825 . 8D85 48FFFFFF lea eax,dword ptr ss:[ebp-0xB8] 0040482B . 52 push edx 0040482C . 50 push eax 0040482D . 6A 03 push 0x3 0040482F . FF15 18104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeV>; msvbvm60.__vbaFreeVarList 00404835 . 83C4 30 add esp,0x30 00404838 . 66:85FF test di,di 0040483B . 74 37 je short 00404874 0040483D . 8D4D B8 lea ecx,dword ptr ss:[ebp-0x48] 00404840 . 8D95 08FFFFFF lea edx,dword ptr ss:[ebp-0xF8] 00404846 . 51 push ecx 00404847 . 8D85 48FFFFFF lea eax,dword ptr ss:[ebp-0xB8] 0040484D . 52 push edx 0040484E . 50 push eax 0040484F . C785 10FFFFFF>mov dword ptr ss:[ebp-0xF0],0x1 00404859 . C785 08FFFFFF>mov dword ptr ss:[ebp-0xF8],0x2 00404863 . FF15 C8104000 call dword ptr ds:[<&MSVBVM60.__vbaVarAd>; msvbvm60.__vbaVarAdd 00404869 . 8BD0 mov edx,eax 0040486B . 8D4D B8 lea ecx,dword ptr ss:[ebp-0x48] 0040486E . FF15 08104000 call dword ptr ds:[<&MSVBVM60.__vbaVarMo>; msvbvm60.__vbaVarMove 00404874 > 8D8D 64FEFFFF lea ecx,dword ptr ss:[ebp-0x19C] 0040487A . 8D95 74FEFFFF lea edx,dword ptr ss:[ebp-0x18C] 00404880 . 51 push ecx 00404881 . 8D45 94 lea eax,dword ptr ss:[ebp-0x6C] 00404884 . 52 push edx 00404885 . 50 push eax 00404886 . FF15 E8104000 call dword ptr ds:[<&MSVBVM60.__vbaVarFo>; msvbvm60.__vbaVarForNext 0040488C . 8985 30FEFFFF mov dword ptr ss:[ebp-0x1D0],eax 00404892 . 33FF xor edi,edi 00404894 .^ E9 FFFDFFFF jmp 00404698 ; // for 循环 00404899 > 8B0E mov ecx,dword ptr ds:[esi] 0040489B . 56 push esi 0040489C . FF91 08030000 call dword ptr ds:[ecx+0x308] 004048A2 . 8D95 5CFFFFFF lea edx,dword ptr ss:[ebp-0xA4] 004048A8 . 50 push eax 004048A9 . 52 push edx 004048AA . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 004048B0 . 8B08 mov ecx,dword ptr ds:[eax] 004048B2 . 8D95 7CFFFFFF lea edx,dword ptr ss:[ebp-0x84] 004048B8 . 52 push edx 004048B9 . 50 push eax 004048BA . 8985 D4FEFFFF mov dword ptr ss:[ebp-0x12C],eax 004048C0 . FF91 A0000000 call dword ptr ds:[ecx+0xA0] 004048C6 . 3BC7 cmp eax,edi 004048C8 . DBE2 fclex 004048CA . 7D 18 jge short 004048E4 004048CC . 8B8D D4FEFFFF mov ecx,dword ptr ss:[ebp-0x12C] 004048D2 . 68 A0000000 push 0xA0 004048D7 . 68 442B4000 push 00402B44 004048DC . 51 push ecx 004048DD . 50 push eax 004048DE . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 004048E4 > 8B95 7CFFFFFF mov edx,dword ptr ss:[ebp-0x84] 004048EA . 52 push edx 004048EB . FF15 14104000 call dword ptr ds:[<&MSVBVM60.__vbaLenBs>; msvbvm60.__vbaLenBstr 004048F1 . 83E8 01 sub eax,0x1 004048F4 . 8D8D 08FFFFFF lea ecx,dword ptr ss:[ebp-0xF8] 004048FA . 0F80 AA070000 jo 004050AA ; // 溢出错误 00404900 . 8985 10FFFFFF mov dword ptr ss:[ebp-0xF0],eax 00404906 . 8D45 B8 lea eax,dword ptr ss:[ebp-0x48] 00404909 . 50 push eax 0040490A . 51 push ecx 0040490B . C785 08FFFFFF>mov dword ptr ss:[ebp-0xF8],0x8003 00404915 . FF15 6C104000 call dword ptr ds:[<&MSVBVM60.__vbaVarTs>; msvbvm60.__vbaVarTstEq 0040491B . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 00404921 . 66:8985 CCFEF>mov word ptr ss:[ebp-0x134],ax 00404928 . FF15 F0104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStr 0040492E . 8D8D 5CFFFFFF lea ecx,dword ptr ss:[ebp-0xA4] 00404934 . FF15 F4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeO>; msvbvm60.__vbaFreeObj 0040493A . 66:39BD CCFEF>cmp word ptr ss:[ebp-0x134],di 00404941 . 0F85 97050000 jnz 00404EDE ; // 跳到错误提示 00404947 . 8B16 mov edx,dword ptr ds:[esi] 00404949 . 56 push esi 0040494A . C785 10FFFFFF>mov dword ptr ss:[ebp-0xF0],0x1 00404954 . C785 08FFFFFF>mov dword ptr ss:[ebp-0xF8],0x2 0040495E . FF92 08030000 call dword ptr ds:[edx+0x308] 00404964 . 50 push eax 00404965 . 8D85 5CFFFFFF lea eax,dword ptr ss:[ebp-0xA4] 0040496B . 50 push eax 0040496C . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 00404972 . 8B08 mov ecx,dword ptr ds:[eax] 00404974 . 8D95 7CFFFFFF lea edx,dword ptr ss:[ebp-0x84] 0040497A . 52 push edx 0040497B . 50 push eax 0040497C . 8985 D4FEFFFF mov dword ptr ss:[ebp-0x12C],eax 00404982 . FF91 A0000000 call dword ptr ds:[ecx+0xA0] 00404988 . 3BC7 cmp eax,edi 0040498A . DBE2 fclex 0040498C . 7D 18 jge short 004049A6 0040498E . 8B8D D4FEFFFF mov ecx,dword ptr ss:[ebp-0x12C] 00404994 . 68 A0000000 push 0xA0 00404999 . 68 442B4000 push 00402B44 0040499E . 51 push ecx 0040499F . 50 push eax 004049A0 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 004049A6 > 8B95 7CFFFFFF mov edx,dword ptr ss:[ebp-0x84] 004049AC . 52 push edx ; // edx = "123123" 004049AD . FF15 14104000 call dword ptr ds:[<&MSVBVM60.__vbaLenBs>; msvbvm60.__vbaLenBstr 004049B3 . 8985 00FFFFFF mov dword ptr ss:[ebp-0x100],eax ; // eax = 6 004049B9 . 8D85 08FFFFFF lea eax,dword ptr ss:[ebp-0xF8] 004049BF . 8D8D F8FEFFFF lea ecx,dword ptr ss:[ebp-0x108] 004049C5 . 50 push eax 004049C6 . 8D95 E8FEFFFF lea edx,dword ptr ss:[ebp-0x118] 004049CC . 51 push ecx 004049CD . 8D85 44FEFFFF lea eax,dword ptr ss:[ebp-0x1BC] 004049D3 . 52 push edx 004049D4 . 8D8D 54FEFFFF lea ecx,dword ptr ss:[ebp-0x1AC] 004049DA . 50 push eax 004049DB . 8D55 94 lea edx,dword ptr ss:[ebp-0x6C] 004049DE . 51 push ecx 004049DF . 52 push edx 004049E0 . C785 F8FEFFFF>mov dword ptr ss:[ebp-0x108],0x3 004049EA . C785 F0FEFFFF>mov dword ptr ss:[ebp-0x110],0x1 004049F4 . C785 E8FEFFFF>mov dword ptr ss:[ebp-0x118],0x2 ; // for 循环开始 004049FE . FF15 38104000 call dword ptr ds:[<&MSVBVM60.__vbaVarFo>; msvbvm60.__vbaVarForInit 00404A04 . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 00404A0A . 8985 2CFEFFFF mov dword ptr ss:[ebp-0x1D4],eax 00404A10 . FF15 F0104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStr 00404A16 . 8D8D 5CFFFFFF lea ecx,dword ptr ss:[ebp-0xA4] 00404A1C . FF15 F4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeO>; msvbvm60.__vbaFreeObj 00404A22 > 39BD 2CFEFFFF cmp dword ptr ss:[ebp-0x1D4],edi ; // 循环条件判断 00404A28 . 0F84 1D030000 je 00404D4B 00404A2E . 8B06 mov eax,dword ptr ds:[esi] 00404A30 . 56 push esi 00404A31 . FF90 08030000 call dword ptr ds:[eax+0x308] 00404A37 . 8D8D 5CFFFFFF lea ecx,dword ptr ss:[ebp-0xA4] 00404A3D . 50 push eax 00404A3E . 51 push ecx 00404A3F . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 00404A45 . 8B10 mov edx,dword ptr ds:[eax] 00404A47 . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 00404A4D . 51 push ecx 00404A4E . 50 push eax 00404A4F . 8985 D4FEFFFF mov dword ptr ss:[ebp-0x12C],eax 00404A55 . FF92 A0000000 call dword ptr ds:[edx+0xA0] 00404A5B . 3BC7 cmp eax,edi 00404A5D . DBE2 fclex 00404A5F . 7D 18 jge short 00404A79 00404A61 . 8B95 D4FEFFFF mov edx,dword ptr ss:[ebp-0x12C] 00404A67 . 68 A0000000 push 0xA0 00404A6C . 68 442B4000 push 00402B44 00404A71 . 52 push edx 00404A72 . 50 push eax 00404A73 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 00404A79 > 8B85 7CFFFFFF mov eax,dword ptr ss:[ebp-0x84] 00404A7F . 50 push eax ; // eax = "123123" 00404A80 . FF15 14104000 call dword ptr ds:[<&MSVBVM60.__vbaLenBs>; msvbvm60.__vbaLenBstr 00404A86 . 8D8D 48FFFFFF lea ecx,dword ptr ss:[ebp-0xB8] ; // eax = 6 00404A8C . 8985 50FFFFFF mov dword ptr ss:[ebp-0xB0],eax 00404A92 . 51 push ecx ; 6 00404A93 . C785 48FFFFFF>mov dword ptr ss:[ebp-0xB8],0x3 00404A9D . FF15 A8104000 call dword ptr ds:[<&MSVBVM60.#572>] ; msvbvm60.rtcHexBstrFromVar 00404AA3 . 8BD0 mov edx,eax ; // eax = 6 ; 长度的16进制文本 00404AA5 . 8D8D 64FFFFFF lea ecx,dword ptr ss:[ebp-0x9C] 00404AAB . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404AAD . 8B16 mov edx,dword ptr ds:[esi] 00404AAF . 56 push esi 00404AB0 . FF92 08030000 call dword ptr ds:[edx+0x308] 00404AB6 . 50 push eax 00404AB7 . 8D85 58FFFFFF lea eax,dword ptr ss:[ebp-0xA8] 00404ABD . 50 push eax 00404ABE . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 00404AC4 . 8B85 58FFFFFF mov eax,dword ptr ss:[ebp-0xA8] 00404ACA . 8D8D 38FFFFFF lea ecx,dword ptr ss:[ebp-0xC8] 00404AD0 . 6A 01 push 0x1 ; 1 00404AD2 . 8D95 28FFFFFF lea edx,dword ptr ss:[ebp-0xD8] 00404AD8 . 51 push ecx ; 07 00404AD9 . 52 push edx ; 1 00404ADA . 89BD 58FFFFFF mov dword ptr ss:[ebp-0xA8],edi 00404AE0 . 8985 40FFFFFF mov dword ptr ss:[ebp-0xC0],eax 00404AE6 . C785 38FFFFFF>mov dword ptr ss:[ebp-0xC8],0x9 00404AF0 . FF15 D4104000 call dword ptr ds:[<&MSVBVM60.#617>] ; msvbvm60.rtcLeftCharVar 00404AF6 . 8D85 28FFFFFF lea eax,dword ptr ss:[ebp-0xD8] ; // eax = "1" 00404AFC . 8D8D 78FFFFFF lea ecx,dword ptr ss:[ebp-0x88] 00404B02 . 50 push eax 00404B03 . 51 push ecx 00404B04 . FF15 90104000 call dword ptr ds:[<&MSVBVM60.__vbaStrVa>; msvbvm60.__vbaStrVarVal 00404B0A . 50 push eax ; // eax ="1" 00404B0B . FF15 28104000 call dword ptr ds:[<&MSVBVM60.#516>] ; msvbvm60.rtcAnsiValueBstr 00404B11 . 8D95 18FFFFFF lea edx,dword ptr ss:[ebp-0xE8] ; // eax = 0x31 00404B17 . 66:8985 20FFF>mov word ptr ss:[ebp-0xE0],ax 00404B1E . 52 push edx ; 0x31 00404B1F . C785 18FFFFFF>mov dword ptr ss:[ebp-0xE8],0x2 00404B29 . FF15 A8104000 call dword ptr ds:[<&MSVBVM60.#572>] ; msvbvm60.rtcHexBstrFromVar 00404B2F . 8BD0 mov edx,eax ; // eax ="31" 00404B31 . 8D8D 60FFFFFF lea ecx,dword ptr ss:[ebp-0xA0] 00404B37 . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404B39 . BA 6C294000 mov edx,0040296C ; UNICODE "*" 00404B3E . 8D8D 6CFFFFFF lea ecx,dword ptr ss:[ebp-0x94] 00404B44 . FF15 B0104000 call dword ptr ds:[<&MSVBVM60.__vbaStrCo>; msvbvm60.__vbaStrCopy 00404B4A . 8B95 60FFFFFF mov edx,dword ptr ss:[ebp-0xA0] ; // eax ="*", edx="31" 00404B50 . 8D8D 70FFFFFF lea ecx,dword ptr ss:[ebp-0x90] 00404B56 . 89BD 60FFFFFF mov dword ptr ss:[ebp-0xA0],edi 00404B5C . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404B5E . 8B95 64FFFFFF mov edx,dword ptr ss:[ebp-0x9C] ; // eax ="31" 00404B64 . 8D8D 74FFFFFF lea ecx,dword ptr ss:[ebp-0x8C] ; // ecx = "123123" 00404B6A . 89BD 64FFFFFF mov dword ptr ss:[ebp-0x9C],edi ; 0 00404B70 . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404B72 . 8B06 mov eax,dword ptr ds:[esi] 00404B74 . 8D8D 68FFFFFF lea ecx,dword ptr ss:[ebp-0x98] 00404B7A . 8D95 6CFFFFFF lea edx,dword ptr ss:[ebp-0x94] 00404B80 . 51 push ecx 00404B81 . 52 push edx 00404B82 . 8D8D 70FFFFFF lea ecx,dword ptr ss:[ebp-0x90] 00404B88 . 8D95 74FFFFFF lea edx,dword ptr ss:[ebp-0x8C] 00404B8E . 51 push ecx 00404B8F . 52 push edx 00404B90 . 56 push esi 00404B91 . FF90 F8060000 call dword ptr ds:[eax+0x6F8] ; BJCM30A.00401FE8 00404B97 . 3BC7 cmp eax,edi 00404B99 . 7D 12 jge short 00404BAD 00404B9B . 68 F8060000 push 0x6F8 00404BA0 . 68 B4274000 push 004027B4 00404BA5 . 56 push esi 00404BA6 . 50 push eax 00404BA7 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 00404BAD > 8B95 68FFFFFF mov edx,dword ptr ss:[ebp-0x98] 00404BB3 . 8D4D C8 lea ecx,dword ptr ss:[ebp-0x38] 00404BB6 . 89BD 68FFFFFF mov dword ptr ss:[ebp-0x98],edi 00404BBC . FFD3 call ebx 00404BBE . 8D85 60FFFFFF lea eax,dword ptr ss:[ebp-0xA0] 00404BC4 . 8D8D 64FFFFFF lea ecx,dword ptr ss:[ebp-0x9C] 00404BCA . 50 push eax 00404BCB . 8D95 6CFFFFFF lea edx,dword ptr ss:[ebp-0x94] 00404BD1 . 51 push ecx 00404BD2 . 8D85 70FFFFFF lea eax,dword ptr ss:[ebp-0x90] 00404BD8 . 52 push edx 00404BD9 . 8D8D 74FFFFFF lea ecx,dword ptr ss:[ebp-0x8C] 00404BDF . 50 push eax 00404BE0 . 8D95 78FFFFFF lea edx,dword ptr ss:[ebp-0x88] 00404BE6 . 51 push ecx 00404BE7 . 8D85 7CFFFFFF lea eax,dword ptr ss:[ebp-0x84] 00404BED . 52 push edx 00404BEE . 50 push eax 00404BEF . 6A 07 push 0x7 00404BF1 . FF15 B4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStrList 00404BF7 . 8D8D 58FFFFFF lea ecx,dword ptr ss:[ebp-0xA8] 00404BFD . 8D95 5CFFFFFF lea edx,dword ptr ss:[ebp-0xA4] 00404C03 . 51 push ecx 00404C04 . 52 push edx 00404C05 . 6A 02 push 0x2 00404C07 . FF15 24104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeO>; msvbvm60.__vbaFreeObjList 00404C0D . 8D85 18FFFFFF lea eax,dword ptr ss:[ebp-0xE8] 00404C13 . 8D8D 28FFFFFF lea ecx,dword ptr ss:[ebp-0xD8] 00404C19 . 50 push eax 00404C1A . 8D95 38FFFFFF lea edx,dword ptr ss:[ebp-0xC8] 00404C20 . 51 push ecx 00404C21 . 8D85 48FFFFFF lea eax,dword ptr ss:[ebp-0xB8] 00404C27 . 52 push edx 00404C28 . 50 push eax 00404C29 . 6A 04 push 0x4 00404C2B . FF15 18104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeV>; msvbvm60.__vbaFreeVarList 00404C31 . 8B0E mov ecx,dword ptr ds:[esi] 00404C33 . 83C4 40 add esp,0x40 00404C36 . 56 push esi 00404C37 . FF91 08030000 call dword ptr ds:[ecx+0x308] 00404C3D . 8D95 5CFFFFFF lea edx,dword ptr ss:[ebp-0xA4] 00404C43 . 50 push eax 00404C44 . 52 push edx 00404C45 . FF15 40104000 call dword ptr ds:[<&MSVBVM60.__vbaObjSe>; msvbvm60.__vbaObjSet 00404C4B . 8B08 mov ecx,dword ptr ds:[eax] 00404C4D . 8D95 7CFFFFFF lea edx,dword ptr ss:[ebp-0x84] 00404C53 . 52 push edx 00404C54 . 50 push eax 00404C55 . 8985 D4FEFFFF mov dword ptr ss:[ebp-0x12C],eax 00404C5B . FF91 A0000000 call dword ptr ds:[ecx+0xA0] 00404C61 . 3BC7 cmp eax,edi 00404C63 . DBE2 fclex 00404C65 . 7D 18 jge short 00404C7F 00404C67 . 8B8D D4FEFFFF mov ecx,dword ptr ss:[ebp-0x12C] 00404C6D . 68 A0000000 push 0xA0 00404C72 . 68 442B4000 push 00402B44 00404C77 . 51 push ecx 00404C78 . 50 push eax 00404C79 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 00404C7F > 8D95 48FFFFFF lea edx,dword ptr ss:[ebp-0xB8] 00404C85 . 8D45 94 lea eax,dword ptr ss:[ebp-0x6C] 00404C88 . 52 push edx ; 1 00404C89 . 50 push eax ; 1 00404C8A . C785 50FFFFFF>mov dword ptr ss:[ebp-0xB0],0x1 00404C94 . C785 48FFFFFF>mov dword ptr ss:[ebp-0xB8],0x2 00404C9E . FF15 C4104000 call dword ptr ds:[<&MSVBVM60.__vbaI4Var>; msvbvm60.__vbaI4Var 00404CA4 . 8B8D 7CFFFFFF mov ecx,dword ptr ss:[ebp-0x84] ; // eax = 1 00404CAA . 50 push eax 00404CAB . 51 push ecx ; // ecx ="123123" 00404CAC . FF15 54104000 call dword ptr ds:[<&MSVBVM60.#631>] ; msvbvm60.rtcMidCharBstr 00404CB2 . 8BD0 mov edx,eax ; // eax ="1" "2" 00404CB4 . 8D8D 78FFFFFF lea ecx,dword ptr ss:[ebp-0x88] 00404CBA . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404CBC . 50 push eax 00404CBD . FF15 28104000 call dword ptr ds:[<&MSVBVM60.#516>] ; msvbvm60.rtcAnsiValueBstr 00404CC3 . 66:8985 00FFF>mov word ptr ss:[ebp-0x100],ax ; // eax =0x31 0x32 00404CCA . 8D55 CC lea edx,dword ptr ss:[ebp-0x34] 00404CCD . 8D85 F8FEFFFF lea eax,dword ptr ss:[ebp-0x108] 00404CD3 . 52 push edx ; 1 00404CD4 . 8D8D 38FFFFFF lea ecx,dword ptr ss:[ebp-0xC8] 00404CDA . 50 push eax ; 31 00404CDB . 51 push ecx 00404CDC . C785 F8FEFFFF>mov dword ptr ss:[ebp-0x108],0x2 00404CE6 . FF15 C8104000 call dword ptr ds:[<&MSVBVM60.__vbaVarAd>; msvbvm60.__vbaVarAdd 00404CEC . 8BD0 mov edx,eax ; // eax =31 00404CEE . 8D4D CC lea ecx,dword ptr ss:[ebp-0x34] 00404CF1 . FF15 08104000 call dword ptr ds:[<&MSVBVM60.__vbaVarMo>; msvbvm60.__vbaVarMove 00404CF7 . 8D95 78FFFFFF lea edx,dword ptr ss:[ebp-0x88] 00404CFD . 8D85 7CFFFFFF lea eax,dword ptr ss:[ebp-0x84] 00404D03 . 52 push edx 00404D04 . 50 push eax 00404D05 . 6A 02 push 0x2 00404D07 . FF15 B4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStrList 00404D0D . 83C4 0C add esp,0xC 00404D10 . 8D8D 5CFFFFFF lea ecx,dword ptr ss:[ebp-0xA4] 00404D16 . FF15 F4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeO>; msvbvm60.__vbaFreeObj 00404D1C . 8D8D 48FFFFFF lea ecx,dword ptr ss:[ebp-0xB8] 00404D22 . FF15 10104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeV>; msvbvm60.__vbaFreeVar 00404D28 . 8D8D 44FEFFFF lea ecx,dword ptr ss:[ebp-0x1BC] 00404D2E . 8D95 54FEFFFF lea edx,dword ptr ss:[ebp-0x1AC] 00404D34 . 51 push ecx 00404D35 . 8D45 94 lea eax,dword ptr ss:[ebp-0x6C] 00404D38 . 52 push edx 00404D39 . 50 push eax 00404D3A . FF15 E8104000 call dword ptr ds:[<&MSVBVM60.__vbaVarFo>; msvbvm60.__vbaVarForNext 00404D40 . 8985 2CFEFFFF mov dword ptr ss:[ebp-0x1D4],eax 00404D46 .^ E9 D7FCFFFF jmp 00404A22 ; // for 循环 00404D4B > 8D4D CC lea ecx,dword ptr ss:[ebp-0x34] 00404D4E . 51 push ecx ; // ecx = 00D2012C 00404D4F . FF15 A8104000 call dword ptr ds:[<&MSVBVM60.#572>] ; msvbvm60.rtcHexBstrFromVar 00404D55 . 8BD0 mov edx,eax 00404D57 . 8D8D 70FFFFFF lea ecx,dword ptr ss:[ebp-0x90] 00404D5D . FFD3 call ebx 00404D5F . BA 0C294000 mov edx,0040290C ; UNICODE "=" 00404D64 . 8D8D 78FFFFFF lea ecx,dword ptr ss:[ebp-0x88] ; eax ="12C" 00404D6A . FF15 B0104000 call dword ptr ds:[<&MSVBVM60.__vbaStrCo>; msvbvm60.__vbaStrCopy 00404D70 . 8B95 70FFFFFF mov edx,dword ptr ss:[ebp-0x90] ; // eax = "=" 00404D76 . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 00404D7C . 89BD 70FFFFFF mov dword ptr ss:[ebp-0x90],edi 00404D82 . FFD3 call ebx ; msvbvm60.__vbaStrMove 00404D84 . 8B16 mov edx,dword ptr ds:[esi] 00404D86 . 8D85 74FFFFFF lea eax,dword ptr ss:[ebp-0x8C] 00404D8C . 8D8D 78FFFFFF lea ecx,dword ptr ss:[ebp-0x88] 00404D92 . 50 push eax 00404D93 . 51 push ecx 00404D94 . 8D85 7CFFFFFF lea eax,dword ptr ss:[ebp-0x84] 00404D9A . 8D4D C8 lea ecx,dword ptr ss:[ebp-0x38] 00404D9D . 50 push eax 00404D9E . 51 push ecx 00404D9F . 56 push esi 00404DA0 . FF92 F8060000 call dword ptr ds:[edx+0x6F8] 00404DA6 . 3BC7 cmp eax,edi 00404DA8 . 7D 12 jge short 00404DBC 00404DAA . 68 F8060000 push 0x6F8 00404DAF . 68 B4274000 push 004027B4 00404DB4 . 56 push esi 00404DB5 . 50 push eax 00404DB6 . FF15 30104000 call dword ptr ds:[<&MSVBVM60.__vbaHresu>; msvbvm60.__vbaHresultCheckObj 00404DBC > 8B85 74FFFFFF mov eax,dword ptr ss:[ebp-0x8C] 00404DC2 . BE 08000000 mov esi,0x8 00404DC7 . 8D95 48FFFFFF lea edx,dword ptr ss:[ebp-0xB8] 00404DCD . 8D4D CC lea ecx,dword ptr ss:[ebp-0x34] 00404DD0 . 89BD 74FFFFFF mov dword ptr ss:[ebp-0x8C],edi 00404DD6 . 8985 50FFFFFF mov dword ptr ss:[ebp-0xB0],eax ; // eax="0" 00404DDC . 89B5 48FFFFFF mov dword ptr ss:[ebp-0xB8],esi 00404DE2 . FF15 08104000 call dword ptr ds:[<&MSVBVM60.__vbaVarMo>; msvbvm60.__vbaVarMove 00404DE8 . 8D95 70FFFFFF lea edx,dword ptr ss:[ebp-0x90] ; // eax="0" 00404DEE . 8D85 78FFFFFF lea eax,dword ptr ss:[ebp-0x88] 00404DF4 . 52 push edx 00404DF5 . 8D8D 7CFFFFFF lea ecx,dword ptr ss:[ebp-0x84] 00404DFB . 50 push eax 00404DFC . 51 push ecx 00404DFD . 6A 03 push 0x3 00404DFF . FF15 B4104000 call dword ptr ds:[<&MSVBVM60.__vbaFreeS>; msvbvm60.__vbaFreeStrList 00404E05 . 83C4 10 add esp,0x10 00404E08 . 8D55 CC lea edx,dword ptr ss:[ebp-0x34] 00404E0B . 8D85 08FFFFFF lea eax,dword ptr ss:[ebp-0xF8] 00404E11 . C785 10FFFFFF>mov dword ptr ss:[ebp-0xF0],00402B58 ; UNICODE "FFFF" 00404E1B . 52 push edx ; // edx = "0" 00404E1C . 50 push eax ; // eax = "FFFF" 00404E1D . C785 08FFFFFF>mov dword ptr ss:[ebp-0xF8],0x8008 00404E27 . FF15 6C104000 call dword ptr ds:[<&MSVBVM60.__vbaVarTs>; msvbvm60.__vbaVarTstEq 00404E2D . 66:85C0 test ax,ax 00404E30 0F84 AD000000 je 00404EE3 ; // 关键跳转
对于上面的这一长段反汇编，我不想做什么详细解释了。前2/3部分都是For循环，并且没有做什么有用的东西，最后的msvbvm60.__vbaVarTstEq 附近才算了一些东西，但是我也没弄明白到底是怎么回事。所以，抱歉了！
由于使用OD没搞明白，使用VB Decoder反编译如下：
Private Sub Command1_Click() '404230
Dim var_A4 As TextBox
Dim var_A8 As TextBox
loc_00404255: var_8 = &H401130
loc_00404326: Var_Ret_1 = CLng(Timer)
loc_0040432C: var_5C = Var_Ret_1
loc_0040435B: var_F0 = 1
loc_00404365: var_F8 = 2
loc_0040436B: var_100 = &H3E8
loc_00404375: var_108 = 2
loc_0040437B: var_110 = 1
loc_00404385: var_118 = 2
For var_80 = 1 To 1000 Step 1
If var_14C = 0 Then GoTo loc_00404461
loc_004043A4: var_F0 = 1
loc_004043AA: var_110 = 1
loc_004043D1: var_F8 = 2
loc_004043D7: var_100 = &HFA
loc_004043E1: var_108 = 2
loc_004043E7: var_118 = 2
For var_58 = 1 To 250 Step 1
If var_16C = 0 Then GoTo loc_00404444
If (4205108 <> 4205108) <> 0 Then GoTo loc_0040442A
loc_00404414: var_F0 = 1
loc_0040441E: var_F8 = 2
loc_00404424: var_24 = 1
loc_0040442A:
Next var_58
loc_00404442: GoTo loc_004043F3
loc_00404444:
Next var_80
loc_0040445C: GoTo loc_00404391
loc_00404461:
loc_00404467: Var_Ret_2 = CLng(Timer)
loc_0040446D: Var_Ret_2 = Var_Ret_2 - Var_Ret_1
If Var_Ret_2 <= 0 Then GoTo loc_0040452C
loc_0040448A: var_E0 = 80020004h
loc_00404495: var_D0 = 80020004h
loc_004044AC: var_E8 = 10
loc_004044B2: var_D8 = 10
loc_004044B8: var_100 = "Cheater!!! CHEATER!!! Cheater!!! CHEATER!!!"
loc_004044C2: var_108 = 8
loc_004044D6: var_F0 = "You have SmartCheck loaded!...Close it and try again!!!"
loc_004044E0: var_F8 = 8
loc_004044E6: var_B8 = "You have SmartCheck loaded!...Close it and try again!!!"
loc_00404505: MsgBox var_B8, 0, "Cheater!!! CHEATER!!! Cheater!!! CHEATER!!!"
loc_00404527: GoTo loc_00404F86
loc_0040452C:
loc_0040453D: Set var_A4 = var_B8
loc_0040457F: setl bl
If ebx <> 0 Then GoTo loc_00404EDE
loc_004045B9: var_F8 = 2
loc_004045C8: var_F0 = 1
loc_004045D2: var_F8 = 2
loc_004045E6: Set var_A4 = 8
loc_004045F8: var_84 = Text1.Text
loc_00404623: var_100 = Len(var_84)
loc_00404650: var_108 = 3
loc_0040465A: var_110 = 1
loc_00404664: var_118 = 2
For var_6C = 1 To Len(var_84) Step 1
loc_0040467A: var_1D0 = var_18C
If var_18C = 0 Then GoTo loc_00404899
loc_004046C5: var_12C = var_18C
loc_004046CB: var_84 = Text1.Text
loc_00404700: Set var_A8 = var_84
loc_00404710: var_134 = var_A8
loc_00404716: var_88 = Text1.Text
loc_00404745: var_B0 = 1
loc_0040474B: var_D0 = 1
loc_00404751: var_100 = 1
loc_00404767: var_D8 = 2
loc_0040476D: var_108 = 2
loc_00404773: Var_Ret_3 = CLng(var_6C)
loc_00404791: var_8C = Mid$(var_84, Var_Ret_3, 2)
loc_004047AD: Var_Ret_4 = var_6C + 1
loc_004047B4: Var_Ret_5 = CLng(Var_Ret_4)
loc_004047F6: edi = (var_8C = Mid$(var_88, Var_Ret_5, 1)) + 1
If (var_8C = var_90) + 1 = 0 Then GoTo loc_00404874
loc_0040484F: var_F0 = 1
loc_00404859: var_F8 = 2
loc_00404863: Var_Ret_6 = 0 + 1
loc_0040486E: var_48 = Var_Ret_6
loc_00404874:
Next var_6C
loc_00404894: GoTo loc_00404698
loc_00404899:
loc_004048BA: var_12C = Next var_6C
loc_004048C0: var_84 = Text1.Text
loc_004048F1: Len(var_84) = Len(var_84) - 00000001h
loc_00404900: var_F0 = Len(var_84)
loc_0040490B: var_F8 = &H8003
loc_00404915: Var_Ret_7 = (var_48 = Len(var_84))
loc_00404921: var_134 = Var_Ret_7
If var_A8 <> 0 Then GoTo loc_00404EDE
loc_0040494A: var_F0 = 1
loc_00404954: var_F8 = 2
loc_0040497C: var_12C = Var_Ret_7
loc_00404982: var_84 = Text1.Text
loc_004049B3: var_100 = Len(var_84)
loc_004049E0: var_108 = 3
loc_004049EA: var_110 = 1
loc_004049F4: var_118 = 2
For var_6C = 1 To Len(var_84) Step 1
loc_00404A0A: var_1D4 = var_1BC
If var_1BC = 0 Then GoTo loc_00404D4B
loc_00404A4F: var_12C = 8
loc_00404A55: var_84 = Text1.Text
loc_00404A8C: var_B0 = Len(var_84)
loc_00404A93: var_B8 = 3
loc_00404AAB: var_9C = Hex$(Len(var_84))
loc_00404AE0: var_C0 = var_9C
loc_00404AE6: var_C8 = 9
loc_00404AF0: var_D8 = Left(vbObject, 1)
loc_00404B17: var_E0 = Asc(CStr(1))
loc_00404B1F: var_E8 = 2
loc_00404B44: var_94 = 0040296Ch
loc_00404B5C: var_90 = Hex$(0)
loc_00404B70: var_8C = var_9C
loc_00404B91: Unknown_VTable_Call[eax+000006F8h]
loc_00404BBC: var_38 = var_98
loc_00404C55: var_12C = Len(var_84)
loc_00404C5B: var_84 = Text1.Text
loc_00404C8A: var_B0 = 1
loc_00404C94: var_B8 = 2
loc_00404C9E: Var_Ret_8 = CLng(var_6C)
loc_00404CC3: var_100 = Asc(Mid$(var_84, Var_Ret_8, 1))
loc_00404CDC: var_108 = 2
loc_00404CE6: Var_Ret_9 = var_34 + 0
loc_00404CF1: var_34 = Var_Ret_9
Next var_6C
loc_00404D46: GoTo loc_00404A22
loc_00404D4B:
loc_00404D6A: var_88 = 0040290Ch
loc_00404D82: var_84 = Hex$(var_34)
loc_00404DA0: Unknown_VTable_Call[edx+000006F8h]
loc_00404DD6: var_B0 = var_8C
loc_00404DDC: var_B8 = 8
loc_00404E11: var_F0 = "FFFF"
loc_00404E1D: var_F8 = &H8008
loc_00404E27: Var_Ret_A = (var_8C = "FFFF")
If Var_Ret_A = 0 Then GoTo loc_00404EE3
loc_00404E41: var_E0 = 80020004h
loc_00404E4C: var_D0 = 80020004h
loc_00404E5E: var_E8 = 10
loc_00404E64: var_D8 = 10
loc_00404E6A: var_100 = "Correct serial!"
loc_00404E74: var_108 = 8
loc_00404E88: var_F0 = "Good job, tell me how you do that!"
loc_00404E92: var_F8 = 8
loc_00404EB7: MsgBox "Good job, tell me how you do that!", 0, "Correct serial!"
loc_00404ED9: GoTo loc_00404F86
loc_00404EDE:
loc_00404EE3:
loc_00404EEE: var_E0 = 80020004h
loc_00404EF9: var_D0 = 80020004h
loc_00404F0B: var_E8 = 10
loc_00404F11: var_D8 = 10
loc_00404F17: var_100 = "Wrong serial!"
loc_00404F21: var_108 = 8
loc_00404F35: var_F0 = "Sorry, try again!"
loc_00404F3F: var_F8 = 8
loc_00404F64: MsgBox "Sorry, try again!", 0, "Wrong serial!"
loc_00404F86:
loc_00404F9A: GoTo loc_00404F1A
loc_00405019: Exit Sub
loc_0040508A: Exit Sub
End Sub
不好意思，看的更迷糊了。
暂时只到这里，留待以后继续深挖！
BY 笨笨D幸福