Encriptación en formato MD5

Esta función convierte un texto a MD5, como el usado en foros, blogs y otras aplicaciones web.

    Public Function MD5(ByVal pvs_TextoAEncriptar As String) As String
        Dim vlo_MD5 As New MD5CryptoServiceProvider
        Dim vlby_Byte(), vlby_Hash() As Byte
        Dim vls_TextoEncriptado As String = ""
 
        'Convierte texto a encriptar a Bytes
        vlby_Byte = System.Text.Encoding.UTF8.GetBytes(pvs_TextoAEncriptar)
 
        'Aplicación del algoritmo hash
        vlby_Hash = vlo_MD5.ComputeHash(vlby_Byte)
 
        'Convierte la matriz de byte en una cadena
        For Each vlby_Aux As Byte In vlby_Hash
            vls_TextoEncriptado += vlby_Aux.ToString("x2")
        Next
 
        'Retorno de función
        Return vls_TextoEncriptado
    End Function

Navegación

<html><a href=“/softwareprogramacion”>Software de programación</a></html>

Ayuda al servidor