MyException - 我的异常网
当前位置:我的异常网» VB » rainstormmaster大哥,小弟我是koei79,感谢帖,还有一

rainstormmaster大哥,小弟我是koei79,感谢帖,还有一问(3)

www.MyException.Cn  网友分享于:2013-01-12  浏览:10次

Next
End   If
crypt   =   dest
End   Function
好啦,按F5运行你的注册程序,在点击了“注册”按钮后就出现如图2所示的窗体

还需添加一个ini文件到程序的相对目录下,且字段如下:
[mouselock]
registry=757931525
reg=
好了,一个软件的注册的部分基本完工了,你可以自己设置“运行”按钮中的的代
码来控制未注册用户的使用权限,如:使用次数、使用天数、以及用户注册的要求
(当然我们都喜欢免费共享软件)等等。当然也可以不加以限制,只是在每次运行
软件时会弹出一个注册窗体而已,就如著名的软件ACDSee一样。
还有一点须加以注意:在窗体代码中,有一行代码如下:
If   temp   <>   (Text1.Text   +   ″i″)   Then   '设置区分码
它是用来设置区分码的,因为这个程序的加密算法并不是像微软的加密算法那样无
人可知,它不过是一种普通的加密算法,但加上了区分码后它的加密性能便提高了
许多,如同锁上加锁一样。分区码“″i″”可以由自己随意去添加,这样即使别
人知道了你的算法也无法破译你的注册码,因为整个加密过程已经由:(明码+密
匙)→暗码,变为:(明码+区分码+密匙)→暗码;而解密过程也相应的由:(
暗码+密匙)→明码,变为:(暗码+密匙)→(明码+区分码)。
当然,你也可以对区分码来一个加密,不过这样一层层的加密下去是永无止境的,
还是适可为止的好。
注册程序搞定后当然还需要一个注册器啦,用来向你的用户提供注册码嘛!其设计
的窗体结构如图3:
在窗体和“生成”按钮中添加如下代码:
Private   Sub   Command1_Click()
Dim   ppp   As   New   password   '定义一个型的类
'定义明码、暗码、密匙、及区分码
Dim   D_string   As   String
Dim   E_string   As   String
Dim   Qf_string   As   String
Dim   MC_string   As   String
D_string   =   Text1.Text
Qf_string   =   Text2.Text
MC_string   =   Text3.Text
'加密
If   Text2.Text   =   ″″   Then
E_string   =   ppp.crypt(″E″,   MC-string,   D_string)
Else
D_string   =   D_string   +   Qf_string
E_string   =   ppp.crypt(″E″,   MC_string,   D_string)
End   If
Text4.Text   =   E_string
End   Sub
Private   Sub   Form_Load()
Form1.Caption   =   ″注册器″
Text1.Text   =   ″″
Text2.Text   =   ″″
Text3.Text   =   ″″
Text4.Text   =   ″″
End   Sub
当然,还需要加一个“password”的类模块了,就如前述一样,在此不再累述。
当你的用户给你寄过来他的用户名和他的硬盘序列号后,将用户名和序列号依次输
入注册器中,再填入你自己的区分码后,按“生成”钮便可得到相对应的注册码了
,回寄给你的用户,享受成功的快感吧。
到此为止,我们就完成了注册码的制作的全过程,希望各位高手指正。


------解决方案--------------------
那就随便用ini或者注册表保存信息吧,代码已发送

顺便唠叨一句,外行指挥内行真是一件很郁闷的事

文章评论

Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
 程序员的样子
程序员的样子
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
每天工作4小时的程序员
每天工作4小时的程序员
那些争议最大的编程观点
那些争议最大的编程观点
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
程序员都该阅读的书
程序员都该阅读的书
编程语言是女人
编程语言是女人
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
程序员的鄙视链
程序员的鄙视链
漫画:程序员的工作
漫画:程序员的工作
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
程序员应该关注的一些事儿
程序员应该关注的一些事儿
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
10个调试和排错的小建议
10个调试和排错的小建议
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
为什么程序员都是夜猫子
为什么程序员都是夜猫子
如何成为一名黑客
如何成为一名黑客
总结2014中国互联网十大段子
总结2014中国互联网十大段子
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
程序员和编码员之间的区别
程序员和编码员之间的区别
Java程序员必看电影
Java程序员必看电影
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
鲜为人知的编程真相
鲜为人知的编程真相
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员必看的十大电影
程序员必看的十大电影
我的丈夫是个程序员
我的丈夫是个程序员
旅行,写作,编程
旅行,写作,编程
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
代码女神横空出世
代码女神横空出世
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有