Tcl

Set the JWS Payload

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetPayload, which sets the content to be signed. The charset converts the text to bytes, and a flag controls whether a byte-order mark is included.

Background. JWS (JSON Web Signature) integrity-protects a payload with a signature or MAC. The header alg names the algorithm; this example uses HMAC-SHA256 (HS256) with a symmetric MAC key.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

set jws [new_CkJws]

#  Set the payload (the content to be signed).  The 2nd argument is the charset used to convert the
#  text to bytes, and the 3rd controls whether a byte-order mark is included.
set bIncludeBom 0
set success [CkJws_SetPayload $jws "This is the content to sign." "utf-8" $bIncludeBom]
if {$success == 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    exit
}

puts "Payload set."

delete_CkJws $jws