关于VB P-code的调试方法

win765

VB P-code的调试方法
P-code伪编码，用od太费事，需用到WKTVBDebugger
办法1：
把cm放到wktv目录下面，翻开，运行
机器码与指令：
BranchF:     机器码1C  相似jnz/jne   假如仓库为0就跳            
BranchT:     机器码1D  相似je/jz       假如仓库为-1就跳
Branch:       机器码1E  相似jmp        无条件跳
单击‘高档信息’或‘Analize BranchX' 可看到当时进程一切跳转位置
EqVarBool:  机器码33   对比指令，依据成果将0或-1压入仓库
ConcatStr:  机器码2A    字符串衔接指令 ，此指令单步盯梢时会在日志窗口留下相应成果，可ctr+O在此处下断
LitI2_Byte:   机器码F4    将数据压入仓库
FLdZeroAd/CVarStr:取字符串指令，特点同ConcatStr

办法2：
也可联系VB Decompiler找到if地址，（或直接在这里推导算法），个人喜爱用这种办法直接推导算法
去od的dump窗口找这个地址，把1C改成1D即可爆炸

办法3：
VBParser先分析一下，
然后倒入od,在要害处下内存断点，单步跟

现在用办法2举个栗子：
cm导入vb decompiler:

1. Dim var_11C As Variant
   
2.   Dim var_176 As Integer
   
3.   loc_40E28C: If (Me.txtname.Text = vbNullString) Then
   
4.   loc_40E2B0:   MsgBox("You have to enter you name first.", &H40, "Error", var_FC, var_11C)
   
5.   loc_40E2C0:   Exit Sub
   
6.   loc_40E2C1: End If
   
7.   loc_40E2E1: If (Me.txtkey.Text = vbNullString) Then
   
8.   loc_40E305:   MsgBox("You have to enter a key first.", &H40, "Error", var_FC, var_11C)
   
9.   loc_40E315:   Exit Sub
   
10.   loc_40E316: End If
    
11.   loc_40E336: If (Me.txtkey.Text = vbNullString) Then
    
12.   loc_40E35A:   MsgBox("You have to enter at least 5 chars.", &H40, "Error", var_FC, var_11C)
    
13.   loc_40E36A:   Exit Sub
    
14.   
    
15. loc_40E36B: End If                                                                                                                  
    
16.                                                                                                        上面是查看name和key是否为空且name必须长度大于5
    
17.   loc_40E393: For var_14C = 1 To CVar(Len(Me.txtname.Text)): var_12C = var_14C 'Variant                变量12c=变量14c
    
18.   loc_40E3C1:   var_FC = Mid(CVar(Me.txtname.Text), CLng(var_12C), 1)                                  FC轮询name每一位
    
19.   
    
20. loc_40E3D5:   var_11C = var_94 &
    
21. CVar(Asc(CStr(var_FC)))                                                         
    
22.                                                                                                         变量94= name每一位变体，并组合，例如name为‘11111’那么变量94=‘4949494949’
    
23.   loc_40E3D9:   var_94 = var_11C 'Variant                                                                        
    
24.   loc_40E3EF: Next var_14C 'Variant
    
25.   loc_40E3F5: ' Referenced from: 40E422
    
26.   
    
27. loc_40E404: If (Len(var_94) > 9)
    
28. Then                                                                                       
    
29.                                                                                                          变量94反复除以3.14直到变量94为9位数
    
30.   loc_40E41E:   var_94 = Fix((var_94 / 3.141592654)) 'Variant                                            并赋值给变量94
    
31.   loc_40E422:   GoTo loc_40E3F5
    
32.   loc_40E425: End If
    
33.   
    
34. loc_40E449: var_94 = (var_94 Xor &H30F85678 - CVar(global_76))
    
35. 'Variant                                    
    
36.                                                                                                           变量94与30F85678异或，再减去全局变量76，通过其他函数可以查到全局变量，大家自己动手查查
    
37.   loc_40E45A: For var_170 = 1 To 10: var_12C = var_170 'Variant
    
38.   loc_40E489:   If (Me.txtkey.Text = global_52(CLng(var_12C))) Then                                             
    
39.   loc_40E48C:   End If
    
40.   loc_40E48F: Next var_170 'Variant
    
41.   loc_40E4DE: If ((CVar(Me.txtkey.Text) - var_94) = CVar(Len(Me.txtname.Text))) Then                      密码-变量94=name长度，得密码
    
42.   loc_40E502:   MsgBox("Wow, you have found a correct key!", &H40, "Correct key", var_FC, var_11C)
    
43.   loc_40E533:   MsgBox("Mail me, how you got it: [email][email protected][/email] ", &H40, "Correct key!", var_FC, var_11C)
    
44.   loc_40E550:   Me.Command2.Caption = "Exit"
    
45.   loc_40E55B: Else
    
46.   loc_40E567:   global_80 = (global_80 + 1)
    
47.   loc_40E570:   var_176 = global_80
    
48.   loc_40E579:   If (var_176 = 6) Then
    
49.   loc_40E5B3:     If (MsgBox("-=Do you need a hint ?=-", &H24, "I can't stand it anymore", var_FC, var_11C) = 7) Then
    
50.   loc_40E5B6:       Exit Sub
    
51.   loc_40E5BA:     Else
    
52.   loc_40E5DB:       MsgBox("Forget it.", &H40, "he, he...", var_FC, var_11C)
    
53.   loc_40E5F0:       global_80 = 0
    
54.   loc_40E5F3:     End If
    
55.   loc_40E5F6:   Else
    
56.   loc_40E5FC:     If (var_176 > 3) Then
    
57.   
    
58. loc_40E620:       MsgBox("Have you ever been trying to be successful in
    
59. cracking my password ?", &H20, "Failed", var_FC, var_11C)
    
60.   loc_40E633:     Else
    
61.   loc_40E639:       If (var_176 <= 3) Then
    
62.   loc_40E65D:         MsgBox("Sorry, wrong key.", &H40, "Failed", var_FC, var_11C)
    
63.   loc_40E66D:       End If
    
64.   loc_40E66D:     End If
    
65.   loc_40E66D:   End If
    
66.   loc_40E66D: End If
    
67.   loc_40E677: Me.txtkey.SetFocus
    
68.   loc_40E67F: Exit Sub

复制代码

CyberBlade.2.rar (26.39 KB, 下载次数: 4)

2017-6-3 10:57 上传

点击文件名下载附件
下载积分: 海币 -2

联系我时，请说是在 挂海论坛 上看到的，谢谢！