在VB.NET中存在着这样两种函数，一个是解密函数，另一个则是加密函数。这两种函数的应用则可以帮助开发人员实现DEC加密程序。下面我们可以通过两段代码来对VB.NET编写DEC加密程序的相关方法进行一个解读。

VB.NET编写DEC加密程序之加密函数：

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 

VB.NET编写DEC加密程序之解密函数：

Public Shared Function Decrypt
（ByVal pToDecrypt As String， 
ByVal sKey As String） As String  
Dim des As New DESCryptoService
Provider（）  
''把字符串放入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加密程序操作技巧。

【编辑推荐】

1. VB.NET匿名类型可变与不可变之间区别
2. VB.NET数据类型概念剖析
3. 轻松掌握VB.NET设置IP技巧
4. 几步解决VB.NET编写病毒
5. VB.NET特殊操作符总结概述