Imports System.Text
Imports System.Security.Cryptography
PrivateFunction MD5Encrypt()Function MD5Encrypt(ByVal EncrtyptStr AsString) AsString Dim md5 AsNew MD5CryptoServiceProvider
Dim Password AsByte() = (New ASCIIEncoding).GetBytes(EncrtyptStr)
Dim mdByte AsByte() = md5.ComputeHash(Password)
Return (New ASCIIEncoding).GetString(mdByte)
End Function