VB.NET AES加密算法 和 解密算法

VB.NET中的AES（Advanced Encryption Standard）是一种对称加密算法，用于保护数据的安全传输。以下是基本的AES加密和解密步骤：

1. 加密：
- 导入`System.Security.Cryptography.Aes`命名空间。
- 创建AESCryptoServiceProvider实例并设置关键参数（如密钥和初始向量IV）。
- 使用`CreateEncryptor()`方法获取加密上下文。
- 使用`TransformBlock()`方法分块加密数据。

Dim key As Byte() = Encoding.UTF8.GetBytes("your_secret_key")
Dim iv As Byte() = Encoding.UTF8.GetBytes("your_initial_vector")

Using aes As New AesCryptoServiceProvider()
    aes.Key = key
    aes.IV = iv
    Using encryptor As ICryptoTransform = aes.CreateEncryptor()
        Dim encryptedData As Byte() = EncryptStringToBytes_Aes(plaintext, encryptor)
    End Using
End Using

- `EncryptStringToBytes_Aes`: 自定义的辅助函数，将字符串转换成字节数组进行加密。

2. 解密：
- 照样创建AESCryptoServiceProvider实例，并使用相同的密钥和IV。
- 获取解密上下文，然后使用`TransformBlock()`方法进行解密。

Using aes As New AesCryptoServiceProvider()
    aes.Key = key
    aes.IV = iv
    Using decryptor As ICryptoTransform = aes.CreateDecryptor()
        Dim decryptedData As Byte() = DecryptBytes_Aes(encryptedData, decryptor)
        Dim decryptedString As String = Encoding.UTF8.GetString(decryptedData)
    End Using
End Using

- `DecryptBytes_Aes`: 对加密后的字节数组进行解密的辅助函数。