module1.vb

来自「MD5加密的源码实现对文件的加密不错的东西哦」· VB 代码 · 共 21 行

Imports System.Security.Cryptography
Imports System.Text
Module Module1
    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
            For i = 0 To 15
                sBuilder.Append(data(i).ToString("x2"))
            Next i
        End If
        Return sBuilder.ToString()
    End Function
End Module