Load and Validate a JWS from a StringBuilder

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.LoadJwsSb, which loads a JWS from a StringBuilder (here read from a file). The example then supplies the MAC key and validates the signature.

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

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

'  The file path is relative to the application's current working directory.  An absolute path may
'  also be used.  Supply the path appropriate to your own environment.

'  Load the JWS text from a file into a StringBuilder.
set sbJws = CreateObject("Chilkat.StringBuilder")
bLoaded = sbJws.LoadFile("qa_data/message.jws","utf-8")
If (bLoaded <> 1) Then
    outFile.WriteLine("Failed to load the JWS file.")
    WScript.Quit
End If

'  Load the JWS from the StringBuilder.
success = jws.LoadJwsSb(sbJws)
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

base64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
success = jws.SetMacKey(0,base64Key,"base64")
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

v = jws.Validate(0)
If (v < 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

If (v <> 1) Then
    outFile.WriteLine("The signature is not valid.")
    WScript.Quit
End If

outFile.WriteLine("The signature is valid.")

outFile.Close