'表1的后8位依次加0至7，然后再分别平方，累加后存在ebx中
For n = 1 To 8
ebx = ebx + (Ebp1(n) + Ebp1(n + 8) + n - 1) * (Ebp1(n) + Ebp1(n + 8) + n - 1)
Next n

CreatEbp2 '生成表2

'利用表1和表2，根据下列算式得出注册码
For n = 1 To 16
al = (((n * n + Ebp1(n)) * ebx) And &HFF) + Ebp2(n)
al = al Mod &H1A
Sn(n) = al + &H41
StrSn = StrSn + Chr(Sn(n))
Next n
End If

'用“－”把注册码四位一组分开,显示出来
OutNum.Text = Mid(StrSn, 1, 4) + "-" + Mid(StrSn, 5, 4) + "-" + Mid(StrSn, 9, 4) + "-" + Mid(StrSn, 13, 4)

End Sub

Private Sub UserNum_Change()
UserNum.Text = UCase(UserNum.Text)
End Sub

'根据用户号生成一个16个元素的序列表1
Private Sub CreatEbp1(strUserNum As String)
Dim esi, ebp As Long
Dim i, j As Integer
Dim intEdi(0 To 3), intTemp(1 To 16) As Long

'一个程序中用到的密钥：SC30
intEdi(0) = Asc("S")
intEdi(1) = Asc("C")
intEdi(2) = Asc("3")
intEdi(3) = Asc("0")

j = 0

'去掉用户号中的"-"号,形成一个16个元素的字符串
For i = 1 To &H13
If Mid(strUserNum, i, 1) <> "-" Then
j = j + 1
intTemp(j) = Asc(Mid(strUserNum, i, 1)) '程序中是用的字符的ASCII码来做运算的
End If '这里就直接把用户号转成ASCII
Next i

For i = 1 To 4 '用户号的前四位与“SC30”的ASCII分别相加
intTemp(i) = intTemp(i) + intEdi(i - 1)
Next i

j = 0
For i = 1 To 16 Step 2 '把此时的用户号的奇数位存在表1的前8位中

上一页 [1] [2] [3] [4] [5] [6] 下一页

上一篇:键盘鼠标发声器算法分析

下一篇:松试卷 V4.5 单机版的算法分析

supercapture3.0的版注册机! 相关文章：

·绝对好用的注册表技巧

·注册5连号QQ

·破解程序及注册机使用方法

·Dreamweaver MX 2004做ASP程序(4)用户注册系统

·常用注册表设置

·Coreldraw12官方简体中文版下载及注册码

·注册表应用100例—注册表使用全攻略之十一

·注册表知识：HKEY_LOCAL_MACHINE根键详解

·在jsp中用bean和servlet联合实现用户注册、登录

·动下注册表让Vista响应速度更快

supercapture3.0的版注册机! 相关软件：

·诺顿杀毒软件+诺顿防火墙免费破解版免注册

·超级自动注册申请王 V3.0

·RegVac Registry Cleaner(注册表吸尘器)V5.01.06 汉化版

·零起点教你如何破解软件和制作注册机 and 视频+程序

·沸腾家园新东方背单词4-目前最好的背单词软件（免注册）查看

·中国注册会计师独立审计准则汉英对照

·注册码生成器V1.0

·注册表实例应用视频教程swf

·注册表优化实战练习手册（图文教程菜鸟先飞系列教材）

·中国电子地图 2007 注册版

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.vipcn.net

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot