Visual Basic 6.0

Set the JWS Protected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetProtectedHeader, which sets the integrity-protected header for a signer from a JsonObject. The header specifies the signature algorithm (alg).

Background. The protected header is covered by the signature, so it cannot be altered without invalidating the JWS. It is configured before creating the JWS.

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

'  Build the JWS protected header.  The "alg" member names the signature algorithm.
Dim header As New ChilkatJsonObject
success = header.UpdateString("alg","HS256")

'  Set the protected header for signer index 0.  The protected header is integrity-protected: it is
'  covered by the signature.
success = jws.SetProtectedHeader(0,header)
If (success = 0) Then
    Debug.Print jws.LastErrorText
    Exit Sub
End If

Debug.Print "Protected header set."