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

''' <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