VB.NET MD5加密

生成正确的MD5码

 
Imports System.Security.Cryptography

Imports System.Text

Module MD5strModule MD5str

Function MD5()Function MD5(ByVal input As String, ByVal coda As Integer) As String

Dim md5Hasher As New MD5CryptoServiceProvider

Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))

Dim sBuilder As New StringBuilder

Dim i As Integer

If coda = 16 Then

For i = 4 To 11

sBuilder.Append(data(i).ToString("x2"))

Next i

Else '32位

For i = 0 To 15

sBuilder.Append(data(i).ToString("x2"))

Next i

End If

Return sBuilder.ToString()

End Function

End Module