Set the JWE Protected Header

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetProtectedHeader, which sets the integrity-protected JWE header from a JsonObject. The header specifies the key-management algorithm (alg) and content-encryption algorithm (enc).

Dim success As Boolean = False

Dim jwe As ChilkatJwe
jwe.Initialize

'  Build the JWE protected header.  The "alg" member names the key-management algorithm and the "enc"
'  member names the content-encryption algorithm.
Dim header As ChilkatJsonObject
header.Initialize
header.UpdateString("alg", "A256KW")
header.UpdateString("enc", "A256GCM")

'  Set the protected header on the JWE.  The protected header is integrity-protected and applies to
'  all recipients.
success = jwe.SetProtectedHeader(header)
If success = False Then
    Log(jwe.LastErrorText)
    Return
End If

Log("Protected header set.")