Visual Basic 6.0

Get a JWS Protected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetProtectedH, which copies the decoded protected header of a signature into a JsonObject.

Background. The protected header is integrity-protected by the signature. Inspecting it (for example the alg value) is useful before deciding how to validate.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

Dim jws As New ChilkatJws

'  Load the JWS compact serialization.
Dim jwsCompact As String
jwsCompact = "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>"
success = jws.LoadJws(jwsCompact)
If (success = 0) Then
    Debug.Print jws.LastErrorText
    Exit Sub
End If

'  Copy the decoded protected header of signature 0 into a JsonObject.
Dim json As New ChilkatJsonObject
success = jws.GetProtectedH(0,json)
If (success = 0) Then
    Debug.Print jws.LastErrorText
    Exit Sub
End If

json.EmitCompact = 0
Debug.Print json.Emit()