GENERAR MD5
Hola aquí os dejo la función para generar un md5 vb.net
Espero que os sirva , Un Saludo
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Imports System.Text Imports System.Security.Cryptography Function generarMD5(ByVal sCadena As String) As String Dim ueCodigo As New UnicodeEncoding() Dim Md5 As New MD5CryptoServiceProvider() Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena)) Return Convert.ToBase64String(bHash) End Function |