VB程序加密示例

VB程序示例以下为具有读写、限时功能的五型加密锁加密示例加密对象VB环境下编写的程序（VBSample），在本例中VBSample是一个简单的界面程序；加密目的对VBSample程序进行内嵌加密后，只有通过对应的加密锁才能打开VBSample程序（即显示界面），否则不能打开。通过限时控制（设定一至三个期限及解开期限的相应密码），控制用户的使用期限；达到加密强度高、程序运行稳定、使用便捷的目的；加密工具五型加密锁(序列号617622)、随锁KEY值（key1=51004，key2=11410，key3=46486，key4=12938）、动态库CDLL5.dll、接口程序、读写函数、限时限次工具、密码修改工具等；准备工作另外开发一个程序write来向加密锁中相应的地址写入数据。现在向加密锁中的1号地址（该锁有32个地址，可任选）写入数据”12345”。步骤如下：1、将内嵌加密实例VB代码 中的CDLL5.dll、Module1复制到write的同一目录下;2、写入数据程序代码,并运行：unsigned long data=12345;char *password=abcdefgh;WriteLock(1,data,password); 3、成功写入数据后关闭该程序。加密过程步骤一：首先在VB环境下打开VBSample程序，运行几次，确保程序能正常运行。确定加密位置，现在根据需要确定在程序入口处进行加密。步骤二：将光盘中的所有文件拷贝到计算机硬盘上，安装好加密锁，打开tools,使用工具ModPassw修改密码。新密码值根据个人需要设置，这里我把它设置为“009lirog”。步骤三：通过路径：内嵌加密实例VB代码 找到CDLL5.dll、Module1并将CDLL5.dll、Module1复制到VBSample的同一目录下。如图1所示：图1步骤四：通过Add Module添加模块Module1，模块Module1中定义了动态库函数及ShieldPC()函数。（另一种方法是通过Add Module添加新模块，然后将Module1中的代码拷贝到新模块中。）步骤五：打开KEY文本文件（该文件中记录的是本加密锁的KEY值），然后将Module1打开，该模块中ShieldPC()函数中有关于加密锁KEY值的程序代码。根据KEY文本文件修改模块Module1中ShieldPC()函数中的KEY值，图2为修改后的程序：图2步骤六：在主程序中添加基本加密接口程序，也就是在界面载入程序代码中添加如下代码：Dim x As Long, randLock32 As Long, randShield As Long产生随机数Randomizex = 2094967295 * Rnd() + 1把随机数传递给加密狗randLock32 = Lock32_Function(x)randLock32 = randLock32 And &H7FFFFFFF 只取后31位有效数字把随机数传递给函数ShieldPc( )randShield = Shieldpc(x)If randShield randLock32 ThenMsgBox 加密件校样错误！Unload MeEnd If步骤七：基本内嵌加密完成，为了进一步加强加密强度，读出1号地址中的数据与之进行二重校验。加密程序可完善成二次加密：Dim Lockdata As Long, password As String, y As LongDim randnum As Long, randLock32 As Long, randShield As Longpassword = 009lirogLockdata = 98765432y = ReadLock(1, password)产生随机数Randomizerandnum = 2094967295 * Rnd() + 1把随机数传递给加密狗randLock32 = Lock32_Function(randnum) And &H7FFFFFFF把随机数传递给函数ShieldPc()randShield = shieldpc(randnum)If (randLock32 randShield) Or (y Lockdata) Then MsgBox 解密出错!, vbOKOnly + vbInformation EndEnd If步骤八：基本加密完成后，在基本加密接口程序中的产生随机数前加上检测时间期限的代码：password = 009lirog Lockdata = Counter(password) 步骤九：打开tools文件夹，使用其目录里的“settimer.exe”工具来设置时间期限及密码。根据需要设置三段期限都为3天，则分别设置期限为天，密码8位以内例“33333333”，期限为天，密码例“66666666”，期限为天，密码例“99999999”。加密后，当用户从开始使用到第三、六、九天时，必须输入相应的密码