Tong-Yong 发表于 2008-8-18 09:58:54

VB练习题，大家练习下

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

x80x88 发表于 2008-8-18 12:02:12

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

Tong-Yong 发表于 2008-8-18 12:28:15

不错，继续，固定注册码

夜冷风 发表于 2008-8-18 16:58:49

这不是看雪解密第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 发表于 2008-8-18 17:25:44

浮点数,搞不定,不知找没找对位置
........
00402948push    eax
00402949call    dword ptr [<&MSVBVM60.__vbaHresul>;MSVBVM60.__vbaHresultCheckObj
0040294Fmov   eax, dword ptr
00402952push    eax                               ;输入的假码
00402953call    dword ptr [<&MSVBVM60.__vbaR8Str>>;MSVBVM60.__vbaR8Str
00402959fstp   qword ptr                 ;上面的函数是将输入的假码乘8,结果在st0中,接着这句将实数值结果存到中
0040295Clea   ecx, dword ptr
0040295Fcall    dword ptr [<&MSVBVM60.__vbaFreeSt>;MSVBVM60.__vbaFreeStr
00402965lea   ecx, dword ptr
00402968call    dword ptr [<&MSVBVM60.__vbaFreeOb>;MSVBVM60.__vbaFreeObj
0040296Ecmp   dword ptr , 9C5FE400      ;与这两个固定值比较
00402975jnz   004029FC
0040297Bcmp   dword ptr , 42A674E7
00402982jnz   short 004029FC
00402984mov   esi, dword ptr [<&MSVBVM60.__vbaV>;MSVBVM60.__vbaVarDup
0040298Amov   ecx, 80020004
........
页: [1]
查看完整版本: VB练习题，大家练习下