VBScript

Get a JWS Unprotected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetUnprotectedH, which copies the optional unprotected header of a signature into a JsonObject.

Background. The unprotected header is present only in JSON serialization forms that carry one. It is not covered by the signature.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set jws = CreateObject("Chilkat.Jws")

'  Load the JWS compact serialization.
jwsCompact = "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>"
success = jws.LoadJws(jwsCompact)
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

'  Copy the optional unprotected header of signature 0 into a JsonObject.  This applies to JWS in a
'  JSON serialization form that carries an unprotected header.
set json = CreateObject("Chilkat.JsonObject")
success = jws.GetUnprotectedH(0,json)
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

json.EmitCompact = 0
outFile.WriteLine(json.Emit())

outFile.Close