vb.Net -des方式加密解密，base64输出

vb.Net -des方式加密解密，base64输出

加密

''' <summary>
''' des-ecb加密
''' </summary>
''' <param name="sourceString"></param>
''' <param name="key">密码</param>
''' <param name="iv">偏移量</param>
''' <returns></returns>
Public Function Encrypt(sourceString As String, ByVal key As String, ByVal iv As String) As String
    Dim btKey As Byte() = Encoding.Default.GetBytes(key)
    Dim btIV As Byte() = Encoding.Default.GetBytes(iv)
    Dim des As New System.Security.Cryptography.DESCryptoServiceProvider With {
        .Mode = System.Security.Cryptography.CipherMode.ECB, ’加密模式
        .Padding = System.Security.Cryptography.PaddingMode.Zeros ’填充方式
    }
    Dim MS As New MemoryStream()
    Try
        Dim inData As Byte() = Encoding.Default.GetB