Perl

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 Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $jws = Chilkat2::Jws->new;

# 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.
my $bIncludeBom = 0;
my $success = $jws->SetPayload('This is the content to sign.', 'utf-8', $bIncludeBom);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

print "Payload set.\n";