TUTORIAL ENCRIPTAR Y DESENCRIPTAR DATOS CON MD5 EN VB.NET

TUTORIAL DE LA APLICACIÓN

1. Diseño del Formulario

SOLO configurar las propiedades indicadas en cada uno de los controles del formulario(Ver Cuadro de Controles), lo que no se indica dejarlo tal como está.

Cuadro de Controles
Botones	TextFields
Para el boton "Encriptar": Name: btnEncriptar Text: Encriptar FlatStyle: Flat Para el boton "Desencriptar": Name: btnDesencriptar Text: Desencriptar FlatStyle: Flat	Para el campo "Texto": Name: txtTexto BorderStyle: FixedSingle Para el campo "Resultado": Name: txtResultado BorderStyle: FixedSingle

2. Codificación

Ingresar el siguiente código dentro del Formulario

'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

Video Demostrativo