浅析VB.NET编写DEC加密程序

学习VB.NET时，你可能会遇到VB.NET编写DEC加密程序问题，这里将介绍VB.NET编写DEC加密程序问题的解决方法，在这里拿出来和大家分享一下。

在VB.NET编写DEC加密程序是很容易的事情，因为VB.NET的类库中就自带了相应的函数，下面分别是加密函数和解密函数。

加密函数：

 
 
 
  
  
  Public Shared Function Encrypt（ByVal pToEncrypt As String， 
ByVal sKey As String） As String  
  
  
  Dim des As New DESCryptoServiceProvider（）  
  
  
  Dim inputByteArray（） As Byte  
  
  
  inputByteArray = Encoding.Default.GetBytes（pToEncrypt）  
  
  
  ''建立加密对象的密钥和偏移量  
  
  
  ''原文使用ASCIIEncoding.ASCII方法的GetBytes方法  
  
  
  ''使得输入密码必须输入英文文本  
  
  
  des.Key = ASCIIEncoding.ASCII.GetBytes（sKey）  
  
  
  des.IV = ASCIIEncoding.ASCII.GetBytes（sKey）  
  
  
  ''写二进制数组到加密流  
  
  
  ''（把内存流中的内容全部写入）  
  
  
  Dim ms As New System.IO.MemoryStream（）  
  
  
  Dim cs As New CryptoStream（ms， des.CreateEncryptor， CryptoStreamMode.Write）  
  
  
  ''写二进制数组到加密流  
  
  
  ''（把内存流中的内容全部写入）  
  
  
  cs.Write（inputByteArray， 0， inputByteArray.Length）  
  
  
  cs.FlushFinalBlock（）  
  
  
  ''建立输出字符串  
  
  
  Dim ret As New StringBuilder（）  
  
  
  Dim b As Byte  
  
  
  For Each b In ms.ToArray（）  
  
  
  ret.AppendFormat（"{0：X2}"， b）  
  
  
  Next  
  
  
  Return ret.ToString（）  
  
  
  End Function

解密函数：

 
 
 
  
  
  Public Shared Function Decrypt（ByVal pToDecrypt As String， 
ByVal sKey As String） As String  
  
  
  Dim des As New DESCryptoServiceProvider（）  
  
  
  ''把字符串放入byte数组  
  
  
  Dim len As Integer  
  
  
  len = pToDecrypt.Length / 2 - 1  
  
  
  Dim inputByteArray（len） As Byte  
  
  
  Dim x， i As Integer  
  
  
  For x = 0 To len  
  
  
  i = Convert.ToInt32（pToDecrypt.Substring（x * 2， 2）， 16）  
  
  
  inputByteArray（x） = CType（i， Byte）  
  
  
  Next  
  
  
  ''建立加密对象的密钥和偏移量，此值重要，不能修改  
  
  
  des.Key = ASCIIEncoding.ASCII.GetBytes（sKey）  
  
  
  des.IV = ASCIIEncoding.ASCII.GetBytes（sKey）  
  
  
  Dim ms As New System.IO.MemoryStream（）  
  
  
  Dim cs As New CryptoStream（ms， des.CreateDecryptor， 
CryptoStreamMode.Write）  
  
  
  cs.Write（inputByteArray， 0， inputByteArray.Length）  
  
  
  cs.FlushFinalBlock（）  
  
  
  Return Encoding.Default.GetString（ms.ToArray）  
  
  
  End Function

两个函数中***个参数是待加密或解密的字符串，sKey是使用的密钥，必须是8位，使用的时候要注意哦，不然会出错的。以上介绍VB.NET编写DEC加密程序。

当前名称：浅析VB.NET编写DEC加密程序
网站网址：http://www.shufengxianlan.com/qtweb/news19/461719.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容