vb.net2.0 Hmac-md5加密算法

最新推荐文章于 2023-08-07 12:01:58 发布

转载最新推荐文章于 2023-08-07 12:01:58 发布 · 205 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/zhuzhufanli/blog/287065

文章标签：

#python

2019独角兽企业重金招聘Python工程师标准>>>

''' <summary>
    ''' Hmac-md5加密算法。
    ''' </summary>
    ''' <param name="APassWord">加密串(即密码)</param>
    ''' <param name="ASourceStr">原始字符串</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function HMACMD5(ByVal APassWord As String, ByVal ASourceStr As String) As String
        Dim passWordByteAry() As Byte = Encoding.UTF8.GetBytes(APassWord) '密码字符串字节数组
        Dim sourceStrByteAry() As Byte = Encoding.UTF8.GetBytes(ASourceStr) '原始字符串字节数组
        Dim Hmac_Md5 As New System.Security.Cryptography.HMACMD5(passWordByteAry)
        Dim resultByteAry() As Byte = Hmac_Md5.ComputeHash(sourceStrByteAry)
        Dim resultSb As New Text.StringBuilder
        For Each b As Byte In resultByteAry
            resultSb.Append(b.ToString("x2"))
        Next
        Return resultSb.ToString
    End Function

转载于:https://my.oschina.net/zhuzhufanli/blog/287065