VBScript

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 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")

'  Build the JWS protected header.  The "alg" member names the signature algorithm.
set header = CreateObject("Chilkat.JsonObject")
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
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Protected header set.")

outFile.Close