文件逐位倒排序加密法在VB中运用研究.docVIP

文件逐位倒排序加密法在VB中运用研究 　　摘 要：为了保证文档文件与应用程序不被非授权阅读及使用，通常将原始可用文件通过指定密钥进行某种加密算法处理后，变成不可打开或不可阅读的文档文件或不可执行的应用程序文件，处理后的文件称为密文。常用的文件加密算法有逐位倒排序加密法、循环移位加密法、矩形转置加密法及异或加密法。逐位倒排序加密法由于算法简单，容易实现，通常作为大学程序设计语言课程学习中的应用开发基础案例。对逐位倒排序加密法在VB中的运用进行了研究，给出的文件逐位倒排序加密程序适用于各种类型的文件，包括中文与英文的混合文档文件加密，具有通用性，对大学计算机专业课或非计算机专业公共课中的VB程序设计综合应用具有指导意义。 　　关键词：逐位倒排序；文件加密；VB程序 　　中图分类号：TP301 文献标识码：A 文章编号：1672-7800（2016）003-0021-03 　　作者简介：王德超（1964-），男，重庆人，博士，四川师范大学基础教学学院副教授，研究方向为计算机应用、算法设计与分析。 　　1 文件字节逐位倒排序加密法 　　将文件以二进制方式打开后，在内存中形成二进制位比特流，通常以字节8位为单位逐位倒序后，形成密文字节流式文件，这种文件加密法称为字节逐位倒排序加密法[1-5]。显然，这种文件加密法是可逆的，即对密文进行一次同样的字节逐位倒排序加密即可得到原文。因此，字节逐位倒排序加密法因其具有规律导致安全性很低。如原文中的字符“D”的ASCII码值是68，其字节比特流为，其字节逐位倒排序加密密文为。 　　2 VB实现 　　VB将文件分为顺序文件、随机文件与二进制文件[6]，将待加密文件以二进制方式打开后，在形成的二进制字节 　　流式文件中，逐字节读取数据，每个字节逐位倒排序后便形成密文字节流，将加密后的字节流写入密文文件即可。 　　整个加密过程涉及3个程序功能模块：①将原文按字节转换成8位二进制；②将二进制字节逐位倒排序；③将倒序后的字节二进制转换成ASCII码值或字符。本文将这3个模块定义成3个通用VB函数过程。在解密事件过程中，对于包含中文与英文的混合文档文件，ASCII字符占1个字节，直接使用chr（）函数即可获得原文字符，而汉字占两个字节，需要将高字节乘以位权28左移8位，与低字节连接形成两字节16位后，再使用chr（）函数才能得到原文汉字。 　　2.1 逐位倒排序加密法VB程序界面设计 　　程序设计界面如图1所示，运行界面如图2所示。界面中使用了4个标签对象Label1-Label4，分别说明程序功能及相关3个文件内容，4个文本框对象Text1-Text4，分别显示文件的当前路径与3个相关文件内容，4个命令按钮对象Command1-Command4，通过Click事件实现文件的打开、加密、解密及退出功能。程序执行中文件的打开与保存均是通过通用对话框来完成的。 　　2.2 逐位倒排序加密法的VB实现过程 　　整个VB程序过程由7个功能模块组成，包括3个通用函数过程和4个事件过程。主要过程的VB代码如下所示： 　　Dim sf$，ef$，rf$ 　　Dim bin（） As Byte 　　Private Sub Form_Load（） 　　Text1.Text = ：Text2.Text = 　　Text3.Text = ：Text4.Text = 　　CommonDialog1.InitDir = d：＼＼MyVB 　　CommonDialog1.Filter = 文件|*.dat；*.txt 　　CommonDialog1.FilterIndex = 1 　　End Sub 　　Private Sub Command1_Click（） 　　CommonDialog1.DialogTitle = 选择待加密文件 　　CommonDialog1.Action = 1 　　sf = CommonDialog1.FileName 　　Text1.Text = CommonDialog1.FileName 　　CommonDialog1.DialogTitle = 输入加密文件名 　　CommonDialog1.ShowSave 　　ef = CommonDialog1.FileName 　　End Sub 　　Function ByToBi（x As Byte） As String 　　Dim s As String 　　Do While x 0 　　r = x Mod 2：x = x ＼＼ 2：s = r s 　　Loop：ByToBi = s 　　End Function 　　Functi