01.Imports System.Security.Cryptography
02.Imports System.Text
03.
04.Public Function MD5(ByVal strString As String) As String
05. Dim ASCIIenc As New ASCIIEncoding
06. Dim strReturn As String
07. Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(strString)
08. Dim Md5Hash As New MD5CryptoServiceProvider
09. Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
10. For Each b As Byte In ByteHash
11. strReturn = strReturn & b.ToString("x2")
12. Next
13. Return strReturn
14.End Function
