Irvin Pool Panta GarciaPublicado en Vb.net

Encriptación MD5 en Visual Basic .net

Imports System.Security.Cryptography
Imports System.Text

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

Encrypt Cadena de texto

Public 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

Desencrypt Cadena de texto

'--------------------DESENCRIPTACION MD5--------------------'
Public 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