VB练习题，大家练习下

Tong-Yong

发2个简单的VB练习题，看雪论坛的，由于很简单所以要求是追码，能写出注册机最好，如果你想爆破那就不要练了，都有提示，好了感兴趣的就练习下吧。

x80x88

刘翔没跑真没劲,先玩第一个!

Tong-Yong

不错，继续，固定注册码

夜冷风

这不是看雪解密第3版的例题..../:013 /:013 /:013 /:013 /:013
发下代码.大家一起学习下
CM1-Currency(货币)比较
Private Sub Command1_Click()
Dim sky As Currency, love As Currency
sky = 123456789
love = Text1.Text
If sky = love Then
MsgBox "恭喜密码正确"
Else
MsgBox "密码输入错误"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

CM2- Double(双精度数)
Private Sub Command1_Click()
Dim sky As Double, love As Double
sky = 12345678901234
love = Text1.Text
If sky = love Then
MsgBox "恭喜密码正确"
Else
MsgBox "密码输入错误"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

x80x88

浮点数,搞不定,不知找没找对位置
........
00402948  push    eax
00402949  call    dword ptr [<&MSVBVM60.__vbaHresul>;  MSVBVM60.__vbaHresultCheckObj
0040294F  mov     eax, dword ptr [ebp-28]
00402952  push    eax                               ;  输入的假码
00402953  call    dword ptr [<&MSVBVM60.__vbaR8Str>>;  MSVBVM60.__vbaR8Str
00402959  fstp     qword ptr [ebp-24]                ;  上面的函数是将输入的假码乘8,结果在st0中,接着这句将实数值结果存到[ebp-24]中
0040295C  lea     ecx, dword ptr [ebp-28]
0040295F  call    dword ptr [<&MSVBVM60.__vbaFreeSt>;  MSVBVM60.__vbaFreeStr
00402965  lea     ecx, dword ptr [ebp-2C]
00402968  call    dword ptr [<&MSVBVM60.__vbaFreeOb>;  MSVBVM60.__vbaFreeObj
0040296E  cmp     dword ptr [ebp-24], 9C5FE400      ;  与这两个固定值比较
00402975  jnz     004029FC
0040297B  cmp     dword ptr [ebp-20], 42A674E7
00402982  jnz     short 004029FC
00402984  mov     esi, dword ptr [<&MSVBVM60.__vbaV>;  MSVBVM60.__vbaVarDup
0040298A  mov     ecx, 80020004
........