VB.net VS2013 Visual basic MD5编码计算

MD5_R=CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(MD5_S)

MD5_R是一个16bytes的字节数组

MD5_S是源字符串转换后的字节数组，源字节数组可以是任意字节长度；

Dim MD5_R(15) As Byte '申明MD5结果数据数组，16字节，128bit，消息摘要

Dim MD5_S(68) As Byte '申明MD5源数据数组

转载自江缘的博客

昨天由于一个程序需要用到MD5函数，因为这个功能太常用了想到网上一定有，偷懒吧从网上一找果然有了。拷下来一用还不错代码都不用改，但一用发现不对呀，产生的MD5码竟然有时对有时错。再找找看吧又找到十几个竟然都是一样的，只好仔细看一下原来在使用HEX时出错了，这么多人用竟没有发现出错，希望大家以后抄时认真一点而且要注意原作者（很遗憾我也没找到这个代码的原作者，如您看到了可以给我留言，并先谢谢你了。）原正确的代码如下：

    Function MD5(ByVal strSource As String, ByVal Code As Int16) As String
        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
        Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
        Dim ATR As String = ""
        Dim i As Integer
        Select Case Code
            Case 16      '选择16位字符的加密结果   
                For i = 4 To 11
                    ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower

                Next
            Case 32      '选择32位字符的加密结果   
                For i = 0 To 15
                    ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower
                Next
            Case Else       'Code错误时，返回全部字符串，即32位字符   
                For i = 0 To 15
                    ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower
                Next
        End Select
        Return ATR
    End Function

我只加了PadLeft(2, "0").这样1-9就分别是01-09了。