[VB2010] Algoritmo encryptacion AES

'Encriptacion en AES con contraseña para poder ver lo encritado
    'Se encripta y se le asigna una contraseña para poder ver el texto desencriptado 
    'Para desencriptar pide que se ingrese la contraseña, si esta es incorrecta no muestra nada.

    Public Function AES_Encrypt(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 encrypted As String = ""
        Try
            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 = Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return encrypted
        Catch ex As Exception
        End Try
    End Function

    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 = ""
        Try
            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 = 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
        Catch ex As Exception
        End Try
    End Function

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = AES_Encrypt(TextBox1.Text, InputBox("ingrese la contraseña"))
    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = AES_Decrypt(TextBox2.Text, InputBox("ingrese la contraseña"))
    End Sub

//Encriptacion en AES con contraseña para poder ver lo encritado
//Se encripta y se le asigna una contraseña para poder ver el texto desencriptado 
//Para desencriptar pide que se ingrese la contraseña, si esta es incorrecta no muestra nada.

public string AES_Encrypt(string input, string pass)
{
	System.Security.Cryptography.RijndaelManaged AES = new System.Security.Cryptography.RijndaelManaged();
	System.Security.Cryptography.MD5CryptoServiceProvider Hash_AES = new System.Security.Cryptography.MD5CryptoServiceProvider();
	string encrypted = "";
	try {
		byte[] hash = new byte[32];
		byte[] temp = 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;
		System.Security.Cryptography.ICryptoTransform DESEncrypter = AES.CreateEncryptor();
		byte[] Buffer = System.Text.ASCIIEncoding.ASCII.GetBytes(input);
		encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length));
		return encrypted;
	} catch (Exception ex) {
	}
}

public string AES_Decrypt(string input, string pass)
{
	System.Security.Cryptography.RijndaelManaged AES = new System.Security.Cryptography.RijndaelManaged();
	System.Security.Cryptography.MD5CryptoServiceProvider Hash_AES = new System.Security.Cryptography.MD5CryptoServiceProvider();
	string decrypted = "";
	try {
		byte[] hash = new byte[32];
		byte[] temp = 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;
		System.Security.Cryptography.ICryptoTransform DESDecrypter = AES.CreateDecryptor();
		byte[] Buffer = Convert.FromBase64String(input);
		decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length));
		return decrypted;
	} catch (Exception ex) {
	}
}

 
Imports System.Security.Cryptography
Public Function DecryptRJ256(ByVal prm_key As String, ByVal prm_iv As String, ByVal prm_text_to_decrypt As String)

        Dim sEncryptedString As String = prm_text_to_decrypt

        Dim myRijndael As New RijndaelManaged
        myRijndael.Padding = PaddingMode.Zeros
        myRijndael.Mode = CipherMode.CBC
        myRijndael.KeySize = 256
        myRijndael.BlockSize = 256

        Dim key() As Byte
        Dim IV() As Byte

        key = System.Text.Encoding.ASCII.GetBytes(prm_key)
        IV = System.Text.Encoding.ASCII.GetBytes(prm_iv)

        Dim decryptor As ICryptoTransform = myRijndael.CreateDecryptor(key, IV)

        Dim sEncrypted As Byte() = Convert.FromBase64String(sEncryptedString)

        Dim fromEncrypt() As Byte = New Byte(sEncrypted.Length) {}

        Dim msDecrypt As New MemoryStream(sEncrypted)
        Dim csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read)

        csDecrypt.Read(fromEncrypt, 0, fromEncrypt.Length)

        Return (System.Text.Encoding.ASCII.GetString(fromEncrypt))

    End Function