works fine but the only problem is that in order for the hash to match the
ap's hash the HMACSHA1.Key needs to be set to HEX. Is there a different
encoding type I should be using?
Any help would be appreciated.
Below is the code in it's current form.
Expand|Select|Wrap|Line Numbers
- Public Function CalculateHMAC(ByVal data As String, ByVal key As String) As
- String
- Dim bData As Byte() = Encoding.UTF8.GetBytes(data)
- Dim bKey As Byte() = Encoding.UTF8.GetBytes(key)
- Dim hmac As HMACSHA1 = New HMACSHA1(bKey)
- Using cryptoStream As CryptoStream = New CryptoStream(Stream.Null, hmac,
- CryptoStreamMode.Write)
- cryptoStream.Write(bData, 0, bData.Length)
- End Using
- Return HexEncoding.ToString(hmac.Hash)
- End Function
Thanks!!