Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As _
      String
 
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New _
          System.Security.Cryptography.MD5CryptoServiceProvider
        Dim decrypted As String = ""
 
        Dim hash(31) As Byte
        Dim temp As Byte() = Hash_AES.ComputeHash( _
          System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
        Array.Copy(temp, 0, hash, 0, 16)
        Array.Copy(temp, 0, hash, 15, 16)
        AES.Key = hash
        AES.Mode = System.Security.Cryptography.CipherMode.ECB
        Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = _
          AES.CreateDecryptor
        Dim Buffer As Byte() = Convert.FromBase64String(input)
        decrypted = System.Text.ASCIIEncoding.ASCII.GetString( _
          DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
        Return decrypted
 
    End Function