Sign a JWS with an HMAC Key from BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetMacKeyBd, which sets the symmetric MAC key for a signature from the raw bytes in a BinData.

use strict;
use warnings;
use Chilkat2;

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

# Protected header specifying HMAC-SHA256.
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'HS256');
my $success = $jws->SetProtectedHeader(0, $header);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

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

# Set the symmetric MAC key for signature 0 from the raw bytes in a BinData.  In production, obtain
# the key material from a secure source.
my $bdKey = Chilkat2::BinData->new;
$bdKey->AppendEncoded('YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=', 'base64');
$success = $jws->SetMacKeyBd(0, $bdKey);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

my $jwsCompact = $jws->CreateJws();
if (!$jws->LastMethodSuccess) {
    print $jws->LastErrorText, "\n";
    exit;
}

print $jwsCompact, "\n";