生成正确的MD5码
Imports System.Security.Cryptography Imports System.Text Module MD5str Module MD5strFunction MD5()Function MD5(ByVal input As String, ByVal coda As Integer) As StringDim md5Hasher As New MD5CryptoServiceProviderDim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))Dim sBuilder As New StringBuilderDim i As IntegerIf coda = 16 ThenFor i = 4 To 11sBuilder.Append(data(i).ToString("x2"))Next iElse '32位For i = 0 To 15sBuilder.Append(data(i).ToString("x2"))Next iEnd IfReturn sBuilder.ToString()End FunctionEnd Module