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