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

allcam

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:10 上传

点击文件名下载附件
阅读权限: 10

洞庭风

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

kalahan

感谢分享破解作品。。

run108

感谢分享/:002 /:018

91sms

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

tianxj

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

yyxljy

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

水云天

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

williamlifei

试一试,谢谢了/:L

灵风

下不了~~无币/:010 /:010 /:010