Imports System.Security.Cryptography Imports System.Text Module MD5strModule MD5str Function MD5()Function MD5(ByValinputAsString, ByVal coda AsInteger) AsString Dim md5Hasher AsNew MD5CryptoServiceProvider Dim data AsByte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input)) Dim sBuilder AsNew StringBuilder Dim i AsInteger If coda =16Then For i =4To11 sBuilder.Append(data(i).ToString("x2")) Next i Else'32位 For i =0To15 sBuilder.Append(data(i).ToString("x2")) Next i EndIf Return sBuilder.ToString() End Function End Module
生成正确的MD5码 Imports System.Security.CryptographyImports System.TextModule MD5strModule MD5strFunction MD5()Function MD5(ByVal input As String, ByVal coda As Integer) As StringDim md5Hasher As New MD