Get the JWE Protected Header

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.GetProtectedHeader, which copies the decoded shared JWE protected header into a JsonObject.

Dim success As Boolean = False

Dim jwe As New Chilkat.Jwe

'  Load the JWE.
Dim jweCompact As String = "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>"
success = jwe.LoadJwe(jweCompact)
If (success = False) Then
    Debug.WriteLine(jwe.LastErrorText)
    Exit Sub
End If


'  Copy the decoded shared JWE protected header into a JsonObject.  Only the protected header is
'  returned; it is not merged with the unprotected or per-recipient headers.
Dim json As New Chilkat.JsonObject
success = jwe.GetProtectedHeader(json)
If (success = False) Then
    Debug.WriteLine(jwe.LastErrorText)
    Exit Sub
End If


json.EmitCompact = False
Debug.WriteLine(json.Emit())