练习笔记之160Crackme-038
# 160CM-038 有段时间没分析VB程序了，在OD中打开这个程序调试的时候感觉有点懵，还好记得有VB Decompiler,拖进去一看，原来是P-Code编译，原来如此。
## 1. 爆破
既然是P-Code编译的程序，OD动态调试是没法用了，直接分析VB Decompiler反编译的代码，可以看到关键算法部分如下：
取消 VB Decompiler的“程序分析器和优化器”选型，重新反编译，可以得到更原始的代码：
其中关键跳转在`40E4DE`，(https://www.52pojie.cn/thread-1634399-1-1.html)中关于P-Code代码的含义，在OD中，将`40E4DE`行的内容从`1C`修改成`1D`，保存即可，输入任意错误序列号，都会提示成功。
## 2. 算法分析
从图1中，我们可以得到验证算法过程如下：
1. 依次取用户名字符串的字符，将字符对应的ASCII数值字符串进行连接，比如`abc`，计算结果为`979899`；
2. 上一步计算得到的字符串长度如果大于9，则反复除一个数，直到长度小于等于9；
3. 上一步的计算结果与`0x30F85678`进行异或计算，然后减全局变量76；
4. 判断输入的注册码-上一步计算结果是否等于用户名的长度，相等则成功。
编写注册机算法程序如下：
```cpp
// VS2015 VB环境
Module Module1
Sub Main()
Dim name As String
Dim temp1 As String
Dim con1 As Int32
con1 = 17824 '0x45A0
con1 = CLng(Fix(CDbl(con1) * 3.1124))
Dim i As Int32
Dim key As Int32
Dim length As Int32
Dim tmp2 As Int32
temp1 = ""
Console.WriteLine("请输入用户名：")
name = Console.ReadLine()
length = Len(name)
For i = 1 To length
temp1 = temp1 & CStr(Asc(Mid(name, i, 1))) 'Str会在前面加空格
Next
Do While (Len(temp1) > 9)
temp1 = CStr(Fix((CDbl(temp1) / 3.141592654)))
Loop
tmp2 = (CLng(temp1) Xor 821581432) - con1 '0x30F85678
key = Len(name) + tmp2
Console.WriteLine("Key为：" + CStr(key))
Console.WriteLine("按回车键退出程序！")
Console.ReadLine()
End Sub
End Module
```
输入用户名`abcde`，计算得到注册码如下，输入程序中，验证成功。
## 3. 总结
VB P-Code编译的程序，得依靠VB Decompiler进行静态分析破解。 win10还是xp什么的操作系统 虽然不是很懂，了解下 看坕看云学习了 谢谢分享 win10还是xp什么的操作系统 可以啊，分享小能手啊，兼容性看看怎么样
谢谢分享 厉害了，谢谢分享 可以可以