Sign a JWS with an HMAC Key

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetMacKey, which sets the symmetric MAC key for a signature. The key bytes are supplied in a named encoding such as hex or base64.

Local $bSuccess = False

$oJws = ObjCreate("Chilkat.Jws")

;  Protected header specifying HMAC-SHA256.
$oHeader = ObjCreate("Chilkat.JsonObject")
$oHeader.UpdateString("alg","HS256")
$bSuccess = $oJws.SetProtectedHeader(0,$oHeader)
If ($bSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

Local $bIncludeBom = False
$bSuccess = $oJws.SetPayload("This is the content to sign.","utf-8",$bIncludeBom)
If ($bSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

;  Set the symmetric MAC key for signature 0.  The key bytes are provided in the named encoding (here
;  base64).  In production, obtain the key from a secure source rather than hard-coding it.
Local $sBase64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
$bSuccess = $oJws.SetMacKey(0,$sBase64Key,"base64")
If ($bSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

Local $sJwsCompact = $oJws.CreateJws()
If ($oJws.LastMethodSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($sJwsCompact & @CRLF)