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

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

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

半仙算命 V2008 Build 01.01 算法注册机.rar (50.59 KB, 下载次数: 26)

洞庭风 · 发表于 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

		自动登录	找回密码
密码			加入我们

[原创] 半仙算命 V2008 Build 01.01 VB算法注册机+源码

评分

相关帖子