Function MD5Hash(ByVal password As String) Dim md5 As MD5 = New MD5CryptoServiceProvider() Dim result As Byte() result = md5.ComputeHash(Encoding.ASCII.GetBytes(password)) Dim strBuilder As New StringBuilder() For i As Integer = 0 To result.Length - 1 strBuilder.Append(result(i).ToString("x2")) Next Return strBuilder.ToString() End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)