使用VB.NET的ASP.NET中的AES

Imports System.Security.Cryptography
Imports System.Text

Public Class AESHelper
    Private Shared Function CreateKey() As Byte()
        Dim key As String = "This is a secret key"
        Dim encoding As New UTF8Encoding()
        Return encoding.GetBytes(key)
    End Function

    Private Shared Function CreateIV() As Byte()
        Dim iv As String = "This is a secret IV"
        Dim encoding As New UTF8Encoding()
        Return encoding.GetBytes(iv)
    End Function

    Public Shared Function Encrypt(ByVal plainText As String) As String
        Dim key As Byte() = CreateKey()
        Dim iv As Byte() = CreateIV()
        Dim aes As New AesCryptoServiceProvider()
        Dim encryptor As ICryptoTransform
        Dim cipherText As String = ""

        Using (aes)
            aes.Key = key
            aes.IV = iv
            encryptor = aes.CreateEncryptor(aes.Key, aes.IV)

            Using (encryptor)
                Using (Dim ms As New MemoryStream())
                    Using (Dim cs As New CryptoStream(ms, encryptor, CryptoStreamMode.Write))
                        Using (Dim sw As New StreamWriter(cs))
                            sw.Write(plainText)
                        End Using

                        cipherText = Convert.ToBase64String(ms.ToArray())
                    End Using
                End Using
            End Using
        End Using

        Return cipherText
    End Function

    Public Shared Function Decrypt(ByVal cipherText As String) As String
        Dim key As Byte() = CreateKey()
        Dim iv As Byte() = CreateIV()
        Dim aes As New AesCryptoServiceProvider()
        Dim decryptor As ICryptoTransform
        Dim plainText As String = ""

        Using (aes)
            aes.Key = key
            aes.IV = iv
            decryptor = aes.CreateDecryptor(aes.Key, aes.IV)

            Using (decryptor)
                Using (Dim ms As New MemoryStream(Convert.FromBase64String(cipherText)))
                    Using (Dim cs As New CryptoStream(ms, decryptor, CryptoStreamMode.Read))
                        Using (Dim sr As New StreamReader(cs))
                            plainText = sr.ReadToEnd()
                        End Using
                    End Using
                End Using
            End Using
        End Using

        Return plainText
    End Function
End Class