How to convert a String into HMAC-SHA1

King_Kong

Hello
I have found this function to convert a string to HMAC-SHA1. This function is working fine but I want the output in Base64 like in OB. Anybody know how I can get the desired result. Here is the function

Public Shared Function HMACSHA1(ByVal StringToHash As String, ByVal HachKey As String) As String
        Dim myEncoder As New System.Text.UTF8Encoding
        Dim Key() As Byte = myEncoder.GetBytes(HachKey)
        Dim Text() As Byte = myEncoder.GetBytes(StringToHash)
        Dim myHMACSHA1 As New System.Security.Cryptography.HMACSHA1(Key)
        Dim HashCode As Byte() = myHMACSHA1.ComputeHash(Text)
        Dim hash As String = Replace(BitConverter.ToString(HashCode), "-", "")
        Return hash.ToUpper
    End Function

ManoPlayBRL

@King_Kong You can combine with this base64encode.vb

Ruri

Remove these lines

Dim hash As String = Replace(BitConverter.ToString(HashCode), "-", "")
Return hash.ToUpper

and instead use this (I write in C# cause I don't know VB.NET)

return Convert.ToBase64String(HashCode);

King_Kong

@Ruri Thanks it works like a charm