vb.net - 用于测试 perfouse 的 VB.NET 和 MD5

Question

我想获取字符串的 MD5 值。在stackoverflow中搜索并找到了答案。

代码：

Private Function GenerateHash(ByVal SourceText As String) As String
    Dim Ue As New UnicodeEncoding()
    Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
    Dim Md5 As New MD5CryptoServiceProvider()
    Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
    Return Convert.ToBase64String(ByteHash)
End Function

但我需要普通的 MD5，而不是 base64 编码。Return Convert.ToString(ByteHash)对我没有帮助。所以需要你的指导。

谢谢

Answer 1

您所需要的只是将其Byte[]转换为String而不是Base64编码字符串

Return System.Text.Encoding.ASCII.GetString(ByteHash)

固定功能：

Private Function GenerateHash(ByVal SourceText As String) As String
    Dim Ue As New UnicodeEncoding()
    Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
    Dim Md5 As New MD5CryptoServiceProvider()
    Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
    Return System.Text.Encoding.ASCII.GetString(ByteHash)
End Function