以下是我编程时,网上复制的,调试时发觉和我以前VB6的输出结果有出入,我做了一点修改。
Public Function MD5(ByVal StrSource As String, ByVal Code As Int16) As String
'这里用的是ascii编码密码原文,如果要用汉字做密码,可以用UnicodeEncoding,但会与ASP中的MD5函数不兼容
Dim DataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(StrSource)
Dim Hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(DataToHash)
Dim i As Integer
Dim Str_MD5 As String = ""
Select Case Code
Case 16 '选择16位字符的加密结果
For i = 4 To 11
Str_MD5 += Hex(Hashvalue(i)).ToLower
Next
Case Else 'Code错误时或者选择32位字符加密时,返回全部字符串,即32位字符
For i = 0 To Hashvalue.Length - 1
Str_MD5 += IIf(Hex(Hashvalue(i)).ToLower = "0", "00", Hex(Hashvalue(i)).ToLower) '此处增加了对0的判断,防止十六进制0时,返回0
Next
End Select
MD5 = UCase(Str_MD5)
End Function