Sign a JWS with an HMAC Key from BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetMacKeyBd, which sets the symmetric MAC key for a signature from the raw bytes in a BinData.

Dim success As Boolean = False

Dim jws As ChilkatJws
jws.Initialize

'  Protected header specifying HMAC-SHA256.
Dim header As ChilkatJsonObject
header.Initialize
header.UpdateString("alg", "HS256")
success = jws.SetProtectedHeader(0, header)
If success = False Then
    Log(jws.LastErrorText)
    Return
End If


Dim bIncludeBom As Boolean = False
success = jws.SetPayload("This is the content to sign.", "utf-8", bIncludeBom)
If success = False Then
    Log(jws.LastErrorText)
    Return
End If


'  Set the symmetric MAC key for signature 0 from the raw bytes in a BinData.  In production, obtain
'  the key material from a secure source.
Dim bdKey As ChilkatBinData
bdKey.Initialize
bdKey.AppendEncoded("YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=", "base64")
success = jws.SetMacKeyBd(0, bdKey)
If success = False Then
    Log(jws.LastErrorText)
    Return
End If


Dim jwsCompact As String = jws.CreateJws
If jws.LastMethodSuccess = False Then
    Log(jws.LastErrorText)
    Return
End If

Log(jwsCompact)