HMAC SHA1 algorithm

I must, with Excel file, hash a data list (Text String) with secret key (Hex String) with HMAC SHA1 algorithm, do you have some ideas ?
I found this code (see below) but the secret key is not in hexadecimal...

Code:

---

Public Function HEX_HMACSHA1(ByVal sTextToHash As String, ByVal sSharedSecretKey As Variant)
    Dim asc As Object, enc As Object
    Dim TextToHash() As Byte
    Dim SharedSecretKey() As Byte
   
    Set asc = CreateObject("System.Text.UTF8Encoding")
    Set enc = CreateObject("System.Security.Cryptography.HMACSHA1")
 
    TextToHash = asc.Getbytes_4(sTextToHash)
    SharedSecretKey = asc.Getbytes_4(sSharedSecretKey)
    enc.Key = SharedSecretKey


    Dim Bytes() As Byte
    Bytes = enc.ComputeHash_2((TextToHash))
    'HEX_HMACSHA1 = ConvToHexString(Bytes)
    Set asc = Nothing
    Set enc = Nothing
 
End Function
 


Private Function ConvToHexString(vIn As Variant) As Variant
    'Check that Net Framework 3.5 (includes .Net 2 and .Net 3 is installed in windows
    'and not just Net Advanced Services
   
    Dim oD As Object
     
    Set oD = CreateObject("MSXML2.DOMDocument")
     
      With oD
        .LoadXML "<root />"
        .DocumentElement.DataType = "bin.Hex"
        .DocumentElement.nodeTypedValue = vIn
      End With
    ConvToHexString = Replace(oD.DocumentElement.Text, vbLf, "")
   
    Set oD = Nothing


End Function

---

Jérémy

The United States Government published the SHA-1 (Secure Hash Algorithm, commonly known as SHS, Secure Hash Standard) cryptographic hash algorithm.

Hexadecimal, Octal, Binary are but representation of data in another Number (computer system).

HMAC algorithm stands for Hashed or Hash-based Message Authentication Code.

This thread is now closed given that recent posts have not been constructive to the intent of the thread.