VB程序加密示例.docVIP

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 产生随机数 Randomize x = 2094967295 * Rnd() + 1 把随机数传递给加密狗 randLock32 = Lock32_Function(x) randLock32 = randLock32 And H7FFFFFFF 只取后31位有效数字 把随机数传递给函数ShieldPc( ) randShield = Shieldpc(x) If randShield randLock32 Then MsgBox 加密件校样错误！ Unload Me End If 步骤七：基本内嵌加密完成，为了进一步加强加密强度，读出1号地址中的数据与之进行二重校验。加密程序可完善成二次加密： Dim Lockdata As Long, password As String, y As Long Dim randnum As Long, randLock32 As Long, randShield As Long password = 009lirog Lockdata =y = ReadLock(1, password) 产生随机数 Randomize randnum = 2094967295 * Rnd() + 1randLock32 = Lock32_Function(randnum) And H7FFFFFFF 把随机数传递给函数ShieldPc() randShield = shieldpc(randnum) If ((randLock32 randShield) Or (y Lockdata)) Then MsgBox 解密出错!, vbOKOnly + vbInformation End End If password = 009lirog Lockdata = Counter(password) 步骤九：打开tools文件夹，使用其目录里的“