用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中以不同语言的字符进行过多次测验并通过。