对16进制数进行MD5加密

最新推荐文章于 2022-04-22 23:15:45 发布

原创最新推荐文章于 2022-04-22 23:15:45 发布 · 2.1k 阅读

CC 4.0 BY-SA版权

本文详细介绍了使用FunctionMD5函数实现字符串的MD5加密过程，并针对不同长度的加密需求提供了具体实现方法。

    Function MD5(ByVal strSource As String, ByVal Code As Int16) As String
        Try
            ' Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
            Dim dataToHash(strSource.Length / 2 - 1) As Byte
            Dim i As Integer
            For I = 0 To strSource.Length / 2 - 1
                dataToHash(i) = Convert.ToByte(strSource.Substring(i * 2, 2), 16)
            Next

            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
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Function