allcam 发表于 2007-12-18 18:10:09

半仙算命 V2008 Build 01.01 VB算法注册机+源码

Private Sub Command1_Click()
Text1.Text = Int(Rnd * 10) & Int(Rnd * 10) & Int(Rnd * 10) & Int(Rnd * 10)
CodeA = 730609 Xor (Text1 * Text1)

CodeB = Asc(Left(CodeA, 1)) + Asc(Mid(CodeA, 2, 1))
CodeB = CodeB Mod 5 + 4

CodeC = Asc(Mid(CodeA, 3, 1)) + Asc(Mid(CodeA, 4, 1))
CodeC = CodeC Mod 5 + 3

Text2.Text = CodeA & CodeB & CodeC
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub



洞庭风 发表于 2007-12-18 18:32:35

不喜欢这类软件,但要支持楼主的原创!

kalahan 发表于 2007-12-18 19:10:26

感谢分享破解作品。。

run108 发表于 2007-12-18 19:26:46

感谢分享/:002 /:018

91sms 发表于 2007-12-18 20:00:07

感谢分享 /:014 /:014 /:014

tianxj 发表于 2007-12-19 07:23:19

大数VB有溢出，所以你只设定四位数

yyxljy 发表于 2007-12-19 09:49:38

这个软件我调过,当时没弄出来,现在看看,学习了

水云天 发表于 2007-12-19 15:48:54

非常感谢分享破解作品。。

williamlifei 发表于 2007-12-19 17:09:30

试一试,谢谢了/:L

灵风 发表于 2007-12-19 22:02:56

下不了~~无币/:010 /:010 /:010
页: [1] 2
查看完整版本: 半仙算命 V2008 Build 01.01 VB算法注册机+源码