Load and Validate a JWS from a String

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.LoadJws, which loads a JWS from its compact serialization string. The example then supplies the MAC key and validates the signature.

load ./chilkat.dll

set success 0

set jws [new_CkJws]

#  Load the JWS compact serialization.
set jwsCompact "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>"
set success [CkJws_LoadJws $jws $jwsCompact]
if {$success == 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    exit
}

#  Provide the HMAC key for signer 0, then validate the signature.  Validate returns 1 when the
#  signature is cryptographically valid, 0 when it is not, or a negative value on error.
set base64Key "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
set success [CkJws_SetMacKey $jws 0 $base64Key "base64"]
if {$success == 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    exit
}

set v [CkJws_Validate $jws 0]
if {$v < 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    exit
}

if {$v != 1} then {
    puts "The signature is not valid."
    delete_CkJws $jws
    exit
}

puts "The signature is valid."

delete_CkJws $jws