VB.net 2010 视频教程 VB.net 2010 视频教程 c#入门经典教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之用VB实现数据的加解密算法

  • 2017-06-18 20:19 来源:未知
 随着计算机应用的普及,信息的安全性越来越受到人们的重视,对数据加解密算法的研究也在不断地深入,但一般的加解密算法如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中以不同语言的字符进行过多次测验并通过。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。

相关教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们       黑ICP备07002182号