自定义VB程序加密方案

目录

第一步，获取电脑唯一性标志

第二步，编密文

第三步，封装Dll

第四步，编客户端和注册机

注册

C盘序列号

电脑名

第五步，应用程序引用

---

 

---

第一步，获取电脑标志

    每一台电脑的标志有哪些？

    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