Here's a
simple function that encrypts any string into a MD5 hash string:
Public Function EncryptMD5(ByVal text As String) As String
Dim md5Hasher As New MD5CryptoServiceProvider
Dim encoder As String
encoder = BitConverter.ToString(md5Hasher.ComputeHash(Encoding.ASCII.GetBytes(text))).Replace("-", Nothing)
Return encoder
End Function
this uses the "System.Security.Cryptography" namespace
-Frank