Encriptar cadena de texto con MD5

En muchas ocaciones nos vemos en la necesidad de encriptar cadenas de texto, ya sea para realizar un Log-In en nuestra aplicacion o para ocultar algun contenido por x razon

a continuación colocaré una funcion sencilla para lograr este objetivo



Espacio de nombres (Imports)

Imports System.Security.Cryptography

llamado de función

Dim MiCadenaEncriptada as string = MD5EncryptPass("123")



 Public Sub MD5EncryptPass(ByVal StrPass As String)

        Dim md5 As MD5CryptoServiceProvider
        Dim bytValue() As Byte
        Dim bytHash() As Byte
        Dim strPassOutput As String
        Dim i As Integer
        strPassOutput = ""

        md5 = New MD5CryptoServiceProvider

        bytValue = System.Text.Encoding.UTF8.GetBytes(StrPass)

        bytHash = md5.ComputeHash(bytValue)
        md5.Clear()

        For i = 0 To bytHash.Length - 1
            strPassOutput &= bytHash(i).ToString("x").PadLeft(2, "0")
        Next

        PasConMD5 = strPassOutput

    End Sub



Resultado obtenido "202cb962ac59075b964b07152d234b70"


Saludos