VB.NET如何編寫DEC加密程序

這篇文章主要為大家展示了“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加密程序”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！