【VB】字串做SHA1編碼與解碼

首先要引入
Imports System.Security.Cryptography
Imports System.Text

編碼函式：
    Public Function Encrypt(ByRef Data As String) As String
        Dim sha As New SHA1Managed
        Convert.ToBase64String(sha.ComputeHash(Encoding.UTF8.GetBytes(Data)))
        Dim encData() As Byte = ASCIIEncoding.UTF8.GetBytes(Data)
        Dim encStr As String = Convert.ToBase64String(encData)
        Encrypt = encStr
    End Function

解碼函式：
    Public Function Decrypt(ByRef Data As String) As String
        Dim decData() As Byte = Convert.FromBase64String(Data)
        Dim decStr As String = ASCIIEncoding.UTF8.GetString(decData)
        Decrypt = decStr
    End Function

執行測試：
      Dim a As String = "Welcome to Jason Blog.請多多指教~123"
      MsgBox(Encrypt(a))

      Dim b As String = Encrypt(a)
      MsgBox(Decrypt(b))