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

最新推荐文章于 2023-08-15 22:50:31 发布

原创

最新推荐文章于 2023-08-15 22:50:31 发布 · 800 阅读

标签

#vb.net #esd

收录于

本文介绍如何使用VB.NET实现DES加密和解密，并将结果转换为Base64格式。示例代码展示了加密和解密过程，以及在ECB模式下进行操作的方法。

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.GetBytes(sourceString)
        Try
            Dim cs As New CryptoStream(MS, des.CreateEncryptor(btKey, btIV), System.Security.Cryptography.CryptoStre