加油！努力哦！

啊，有这么麻烦吗？还没有破出来，奇怪

俺留个位置先....

P-CODE加浮点，00402F25: 1C BranchF 00402F54 ?关键跳转。

呵呵，真码就较麻烦了,追啊！！！！！！！！！！！！！！

油！努力哦！

CODE:31371821，为固定码

有五个常数参与计算
#define C1 0x010AA8DB
#define C2 0x157
#define C3 0xB
#define C4 0x5352e18
#define C5 0x15935221

根据算式来计算CODE
CODE * C3+C1+C2-C4=C5-C4
即：CODE*0xb+0x0101a8db+0x157-0x5352e18=0x15935221-0x5352e18

解出来CODE=31371821

感谢楼主让我把VB的两种编译方式的程序对照的看了下，呵呵。。。。。。。。
此次CRACKME学习了WKTVDE和P-CODE的简单分析，用到工具有VB EXPLORER，WKTVBDE，OD及计算器

高，你是下了我在飘云发的第二个纯 VB 的吧，那个可以跟出来

Dim temp, pw, jqm As Variant    'temp(用来存储用户输入的临时注册码)

Private Sub Command1_Click()
MsgBox "尽量不要爆破啊！看你能不能追到注册码不，挺简单的"
j = 87371288                                
pw = 734173 * 23 + 31371821 * 11 + 343 - j
temp = Val(Text1.Text)
temp = 734173 * 23 + temp * 11 + 343 - j
If Text1.Text = "" Then
MsgBox "请输入注册码，这里可不时空的"
End If
If temp = pw Then
MsgBox "感谢你支持共享软件"
Else
MsgBox "注册码不对，请检查"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""                        '清空文本框
End Sub
End Sub

Private Sub Form_Load()
MsgBox "尽量不要爆破啊！看你能不能追到注册码不，挺简单的"
End Sub

简单，千万别笑  .^. 不过还算非明码对比，要大家用一下计算器
本来想取用户名，但那就比较明显了。。。。。。。。。。。。。
VB 的好多函数都不知道怎样用，以前只自学过 C 3:，感谢大家的讨论
下次来个难的:

最初由 小剑 发布
高，你是下了我在飘云发的第二个纯 VB 的吧，那个可以跟出来

caterpilla可是高手！！！

WKTVBDE 这东西他妈的难搞的很，有一点不知道怎么办，请高手指教

WKTVBDE 我的机器每重启一次，它能正常载入程序，但关了后，再想开一次

就显示 CAN  NOT OPEN。。。。。。。。。。。。。。。。。FILE（妈的）

想问一下为什么这样，重启后又正常了

偶新来的,试试