19/09/2007, 10:50
|
| | | Fecha de Ingreso: febrero-2006
Mensajes: 155
Antigüedad: 18 años, 11 meses Puntos: 0 | |
| Re: Encriptar password
Public Function GenerarPassword(ByVal Texto As String) As String
Dim data As Byte() = System.Text.UTF8Encoding.ASCII.GetBytes(Texto)
Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvi der()
Dim hashbyte As Byte() = md5.ComputeHash(data, 0, data.Length)
Return BitConverter.ToString(hashbyte)
End Function
Espero que te sirva, saludos |