用VB实现数据的加解密算法

想学好编程，学好外语很重要 [enadd 2006年12月25日]

	您现在的位置：编程笔记网 >> 应用开发 >> vb >> VB加密 >> 文章正文

用VB实现数据的加解密算法

【字体：小大】

用VB实现数据的加解密算法

作者：未知文章来源：- 点击数：更新时间：2006-8-8

用VB实现数据的加解密算法
田俊华

　　随着计算机应用的普及，信息的安全性越来越受到人们的重视，对数据加解密算法的研究也在不断地深入，但一般的加解密算法如DES和RSA等过于复杂，且运算速度慢，特别是它的移位操作，对于VB这样的高级语言实现起来也比较困难。而一般的MIS（Management Information System）系统多用高级语言开发，对数据的加密要求不高，因此，研究简易数据加解密算法还是有相当的现实意义。

简易加解密算法要求：

　　1、算法不宜过于复杂，且具有一定的保密性

　　2、对于高级语言很容易能实现

　　3、速度快，可以在任何时候、任何地方使用。

　　4、加密后的数据能正确地得到解密

　　鉴于以上特点，从加密的主要方法看，换位法过于简单，特别是对于数据量少的情况很容易由密文猜出明文，替换法则不失为一种行之有效的简易算法。

　　首先，Windows下的字符集采用Unicode字符集，它容量大，可置换的范围广；其次，在Unicode字符集中，所有字符的内码都占两个字节，不再象DOS下西文字符占一个字节，中文字符占两个字节，这样无论西文还是中文都可以互换。因此，将某个字符的高字节和低字节分别加以运算，生成另外一个0-255之间的数，然后再将它们合成为另一个字符，从而置换数据达到数据加密的作用，解密时则相反。

　　从各种位运算的特点看，异或运算最适合用于简易加解密运算，因为当一个数A和另一个数B进行异或运算会生成另一个数C，如果再将C和B进行异或运算则C又会还原为A。如：128和253进行异或运算的结果是125，125和253再进行异或运算则结果又是128。其中，128就是要加密的数据，253则是密钥。利用这个特性可以将加密和解密用一个函数实现。用同一密钥进行奇数次运算时，是对数据进行加密运算，当进行偶数次运算时，是对数据进行解密运算。如果对Unicode字符进行这种运算，需要两个密钥，其取值范围为0-255，其中一个用于对高字节加密，一个用于对低字节进行加密，这样对同一字符的加密就有255×255=65025种可能。如果更换密钥后对密文再进行加密，则会有无穷的可能性。如：密钥K1=68，K2=134，则字符A的低字节为65，它和K1异或后为5，A的高字节为0，它和K2异或后还是134，两者合成的字符为"蘅"。再如："密"的低字节为198，和K1异或后为130，它的高字节为91，和K2异或后为221，两者合成则为一个不可见的字符。

种加解密数据的方法对任何字符都是有效的，不象有些简易加密算法，只对西文字符有效，对中文加密后再解密无法还原为原来的字符。根据以上原理可以写出以下VB函数，用于对数据进行加密和解密运算：

Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _
ByVal Key2 As Integer) As String
Dim bLowData As Byte
Dim bHigData As Byte
Dim i As Integer
Dim strEncrypt As String
Dim strChar As String
For i = 1 To Len(strSource)

　‘从待加（解）密字符串中取出一个字符

　strChar = Mid(strSource, i, 1)

　‘取字符的低字节和Key1进行异或运算

　bLowData = AscB(MidB(strChar, 1, 1)) Xor Key1

　‘取字符的高字节和K2进行异或运算

　bHigData = AscB(MidB(strChar, 2, 1)) Xor Key2

　‘将运算后的数据合成新的字符

　strEncrypt = strEncrypt & ChrB(bLowData) & ChrB(bHigData)

Next
Encrypt = strEncrypt
End Function

　　如果strSource="这是一个被加密的字符串&=188,Key2=24,则加密后的串为："靥?嚼?逗??游??嚎"，重新将结果再次进行加密运算则还原为原来的字符串。其中"?"处为不可见字符。

　　以上程序只是从原理上分析后给出的实例，在实际运用当中应从字符密钥中分别求出Key1和Key2,然后将加密后的数据再更换Key1和Key2反复进行多次加密运算，并结合换位法实现更大难度的加解密算法。只是需要注意的是，加密和解密应分别写出对应的函数，解密的顺序和加密的顺序正好是相反的。

　　以上程序在中文VB6中以不同语言的字符进行过多次测验并通过。

[1]

文章录入：enadd 责任编辑：enadd

上一篇文章：共享软件作者制作的管理软件注册的动态链接库

下一篇文章：用VB为软件增加注册功能

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				用VB编写DirectX7.0游戏（下… 用VB编写DirectX7.0游戏（上… 使用OLE DB和ADO调用返回记录… 使用VB调用Oracle程序包内的… VB中用ADO对象动态创建数据库… fffff 如何用MSComm Control传Bina… MultiLink的WinSock Server程… 用VB制作浏览器用VB编写网络寻呼机

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd