[VB.NET]MD5

最新推荐文章于 2022-06-03 14:15:59 发布

原创最新推荐文章于 2022-06-03 14:15:59 发布 · 545 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #input

[VB.NET] 专栏收录该内容

89 篇文章

订阅专栏

本文介绍了一个使用Visual Basic编写的函数，该函数用于生成字符串的MD5哈希值。根据参数的不同，可以返回16位或32位的哈希值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function GetMd5Hash(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