Perl

Create a JWS

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.CreateJws, which creates and returns a JWS from the current payload, headers, and signing key.

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 protected header for signer 0, specifying the signature algorithm (alg).
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'HS256');
my $success = $jws->SetProtectedHeader(0, $header);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Set the payload to be signed.
my $bIncludeBom = 0;
$success = $jws->SetPayload('This is the content to sign.', 'utf-8', $bIncludeBom);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Provide the HMAC key (base64) for signer 0.  In production, obtain the key from a secure source
# rather than hard-coding it.
my $base64Key = 'YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=';
$success = $jws->SetMacKey(0, $base64Key, 'base64');
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Create the JWS from the current payload, headers, and signing key.  The returned string is the
# JWS (compact serialization by default).
my $jwsCompact = $jws->CreateJws();
if (!$jws->LastMethodSuccess) {
    print $jws->LastErrorText, "\n";
    exit;
}

print $jwsCompact, "\n";