目录
第一步,获取电脑标志
每一台电脑的标志有哪些?
1、硬盘序列号
2、电脑名
3、IP地址
想到的就这些了,本案列以C盘序列号和电脑名为电脑的识别依据,以阐述加密算法
获取C盘序列号代码:
Dim DriveID
Set DriveID = CreateObject("Scripting.FileSystemObject")
mySerial = DriveID.GetDrive("C").SerialNumber
获取电脑名代码:
dim PcName as string '电脑名
Set a = CreateObject("Wscript.Network")
PcName = a.ComputerName
OK,如果要给另一台电脑使用权限,限定识别时间,使用期限,加上试用次数
差不多了。比如:
信息大概这样写:2018/9/6_10_-2070513827_DESKTOP-NS7FOVN_2019/3/9
解释下:日期(后续程序可以自定义保留5天)_试用次数_未注册或者注册信息错误但格式正确,提取该数字每次打开“-1”, _C盘序列号_电脑名_到期日期(可设定为固定字段,然后封装到程序内,即便含义依然很难破解算法【dll封】)
第二步,编密文
第一步的注册信息基本完备,如上图,如果就这样给用户使用程序,注册码随便编一个也可,辛苦敲定的程序就成了做贡献了,别吃饭了,但是我们如何让用户看不懂注册码呢——加密算法。看看别个的算法介绍:
https://blog.csdn.net/ddffr/article/details/77153127
看了算法原理介绍以后(其实想多了),个人这几个渣渣小程序还没那么大的影响力,稍微秀一下小算法,简单点你破解依然很困难,除非你知道我的dll里面写的什么。来吧,我也来介绍下我的算法思路,算法相同,随便改改参数你都很难破解,而且为了这点成本花这么大力气破解这么简单的算法是没有必要的,我想。
2018/9/6_10_-207