VB.NET MD5值计算

[sinat_25869705]

例如：
数据：10 00 90 03 00 35 72 30 30 30 30 30 30 30 30 30 30 30 30 09 56 23 01 00 10 10 13

最终MD5计算为：
MD5-16 : 96A6D9C2146BA87E
MD5-32 : 3BF9933796A6D9C2146BA87EB266BC69

有大神用VB.NET做过MD5值计算实例么？网上找不到相关源代码

[sinat_25869705]

引用 1 楼 hztltgg 的回复:

确定是这个数据？哪些数据是byte数组吧？ 算出来不对呀，我算的是 B6-4C-17-9C-C1-53-87-0E-6B-E4-6E-D5-1D-0F-D8-EE

不是吧，工具是回复这个，不确定是否准确

[hztltgg]

不知道你用的什么工具，md5处理只要调用自带的库即可

    Public Function GetMd5() As String

        Dim Data As Byte() = {10, 0, 90, 3, 0, 35, 72, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 9, 56, 23, 1, 0, 10, 10, 13}

        Dim Md5 = New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim a = BitConverter.ToString(Md5.ComputeHash(Data))

        Return a.ToString

    End Function

[大葡萄八块一斤]

你这个值应该不是直接加密出来的吧，你用你那程序输123456试试看加密出来是什么值，对比这里的值

[sinat_25869705]

引用 3 楼 hztltgg 的回复:

不知道你用的什么工具，md5处理只要调用自带的库即可

    Public Function GetMd5() As String

        Dim Data As Byte() = {10, 0, 90, 3, 0, 35, 72, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 9, 56, 23, 1, 0, 10, 10, 13}

        Dim Md5 = New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim a = BitConverter.ToString(Md5.ComputeHash(Data))

        Return a.ToString

    End Function

12 34 56 MD5-16 : 49BA59ABBE56E057 MD5-32 : E10ADC3949BA59ABBE56E057F20F883E 你试下对的到么

[sinat_25869705]

引用 4 楼 大西瓜一块五一斤♏ 的回复:

你这个值应该不是直接加密出来的吧，你用你那程序输123456试试看加密出来是什么值，对比这里的值

不是加密的 12 34 56 MD5-16 : 49BA59ABBE56E057 MD5-32 : E10ADC3949BA59ABBE56E057F20F883E

[大葡萄八块一斤]

引用 6 楼 sinat_25869705 的回复:

[quote=引用 4 楼 大西瓜一块五一斤♏ 的回复:]你这个值应该不是直接加密出来的吧，你用你那程序输123456试试看加密出来是什么值，对比这里的值

不是加密的 12 34 56 MD5-16 : 49BA59ABBE56E057 MD5-32 : E10ADC3949BA59ABBE56E057F20F883E[/quote] 那就是去掉空格的加密数据。。

        Dim contentText = "10 00 90 03 00 35 72 30 30 30 30 30 30 30 30 30 30 30 30 09 56 23 01 00 10 10 13".Replace(" ", "")

        Dim md5 = New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim md5_16 = BitConverter.ToString(md5.ComputeHash(Encoding.UTF8.GetBytes(contentText)), 4, 8).Replace("-", "")
        Dim md5_32 = BitConverter.ToString(md5.ComputeHash(Encoding.UTF8.GetBytes(contentText))).Replace("-", "")

        Console.WriteLine(md5_16)
        Console.WriteLine(md5_32)

[hztltgg]

还真是去空格的字符串，整的和字节数组一样，绕蒙了。

[threenewbee]

https://www.cnblogs.com/kangjin/p/6093453.html

[hztltgg]

确定是这个数据？哪些数据是byte数组吧？ 算出来不对呀，我算的是 B6-4C-17-9C-C1-53-87-0E-6B-E4-6E-D5-1D-0F-D8-EE

[hztltgg]

命名空间导入没？截个图吧

[sinat_25869705]

引用 9 楼 贵阳老马马善福专业维修游泳池堵漏防水工程 的回复:

https://www.cnblogs.com/kangjin/p/6093453.html

MD5CryptoServiceProvider() StringBuilder() 这些都是提示未定义

[hztltgg]

你用的是什么？.NET Framework？还是.NET Core？版本多少？ 正常情况下，这两个都是自动引用的，是命名空间没写完整吗？错误的自动提示有让你导入命名空间吗？

[sinat_25869705]

.NET Framework 我写的应用界面的。就提示未定义类型