TUTORIAL ENCRIPTAR Y DESENCRIPTAR DATOS CON MD5 EN VB.NET

TUTORIAL DE LA APLICACIÓN

'Importaciones necesarias
Imports System.Security.Cryptography
Imports System.Text

Public Class Form1

    Private des As New TripleDESCryptoServiceProvider'Algorithmo TripleDES
    Private hashmd5 As New MD5CryptoServiceProvider 'objeto md5
    Private myKey As String = "MyKey2012" 'Clave secreta(puede alterarse)

'Funcion para el Encriptado de Cadenas de Texto
Private Function Encriptar(ByVal texto As String) As String
        
        If Trim(texto) = "" Then
            Encriptar = ""
        Else
            des.Key = hashmd5.ComputeHash((New UnicodeEncoding).GetBytes(myKey))
            des.Mode = CipherMode.ECB
            Dim encrypt As ICryptoTransform = des.CreateEncryptor()
            Dim buff() As Byte = UnicodeEncoding.ASCII.GetBytes(texto)
            Encriptar = Convert.ToBase64String(encrypt.TransformFinalBlock(buff, 0, buff.Length))
        End If
        Return Encriptar
End Function


'Funcion para el Desencriptado de Cadenas de Texto
Private Function Desencriptar(ByVal texto As String) As String
        If Trim(texto) = "" Then
            Desencriptar = ""
        Else
            des.Key = hashmd5.ComputeHash((New UnicodeEncoding).GetBytes(myKey))
            des.Mode = CipherMode.ECB
            Dim desencrypta As ICryptoTransform = des.CreateDecryptor()
            Dim buff() As Byte = Convert.FromBase64String(texto)
            Desencriptar = UnicodeEncoding.ASCII.GetString(desencrypta.TransformFinalBlock(buff, 0, buff.Length))
        End If
        Return Desencriptar
End Function

'Eventos Click de los botones "Encriptar" y "Desencriptar"
Private Sub btnEncriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncriptar.Click
        Me.txtResultado.Text = Encriptar(Me.txtTexto.Text.Trim)
End Sub

Private Sub btnDesencriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDesencriptar.Click
        Me.txtResultado.Text = Desencriptar(Me.txtTexto.Text.Trim)
End Sub

End Class