VB.NET AES 加密解密算法实现 - 示例代码与教程

"以下是一个使用VB.NET实现AES算法的示例代码：\n\nvb\nImports System.Security.Cryptography\nImports System.Text\n\nModule Module1\n Sub Main()\n Dim plainText As String = \"Hello World!\"\n Dim key As String = \"0123456789abcdef\"\n Dim iv As String = \"fedcba9876543210\"\n\n Dim encryptedText As String = AESEncrypt(plainText, key, iv)\n Console.WriteLine(\"Encrypted Text: \" & encryptedText)\n\n Dim decryptedText As String = AESDecrypt(encryptedText, key, iv)\n Console.WriteLine(\"Decrypted Text: \" & decryptedText)\n\n Console.ReadLine()\n End Sub\n\n Function AESEncrypt(plainText As String, key As String, iv As String) As String\n Dim aes As New AesCryptoServiceProvider()\n aes.BlockSize = 128\n aes.KeySize = 128\n aes.Key = Encoding.UTF8.GetBytes(key)\n aes.IV = Encoding.UTF8.GetBytes(iv)\n aes.Mode = CipherMode.CBC\n aes.Padding = PaddingMode.PKCS7\n\n Dim encryptor As ICryptoTransform = aes.CreateEncryptor(aes.Key, aes.IV)\n Dim encryptedData As Byte() = encryptor.TransformFinalBlock(Encoding.UTF8.GetBytes(plainText), 0, plainText.Length)\n encryptor.Dispose()\n\n Return Convert.ToBase64String(encryptedData)\n End Function\n\n Function AESDecrypt(encryptedText As String, key As String, iv As String) As String\n Dim aes As New AesCryptoServiceProvider()\n aes.BlockSize = 128\n aes.KeySize = 128\n aes.Key = Encoding.UTF8.GetBytes(key)\n aes.IV = Encoding.UTF8.GetBytes(iv)\n aes.Mode = CipherMode.CBC\n aes.Padding = PaddingMode.PKCS7\n\n Dim decryptor As ICryptoTransform = aes.CreateDecryptor(aes.Key, aes.IV)\n Dim decryptedData As Byte() = decryptor.TransformFinalBlock(Convert.FromBase64String(encryptedText), 0, encryptedText.Length)\n decryptor.Dispose()\n\n Return Encoding.UTF8.GetString(decryptedData)\n End Function\nEnd Module\n\n\n在上述代码中，AESEncrypt函数用于加密明文，AESDecrypt函数用于解密密文。你可以将需要加密的明文、密钥和初始向量作为参数传递给这两个函数。加密后的结果以Base64编码的字符串形式返回，解密后的结果以原始字符串形式返回。