Tcl

Set the JWS Payload from BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetPayloadBd, which sets the payload to be signed from the binary bytes in a BinData.

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 from the binary bytes in a BinData.
set bdPayload [new_CkBinData]

CkBinData_AppendString $bdPayload "Binary content to sign." "utf-8"

set success [CkJws_SetPayloadBd $jws $bdPayload]
if {$success == 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    delete_CkBinData $bdPayload
    exit
}

puts "Payload set."

delete_CkJws $jws
delete_CkBinData $bdPayload