Encrypt a JWE with a Symmetric Wrapping Key

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetWrappingKey, which sets the symmetric key-wrapping key for a recipient. The key bytes are supplied in a named encoding such as hex or base64.

use strict;
use warnings;
use Chilkat2;

my $jwe = Chilkat2::Jwe->new;

# Protected header: AES key-wrap with AES-256-GCM content encryption.
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'A256KW');
$header->UpdateString('enc', 'A256GCM');
my $success = $jwe->SetProtectedHeader($header);
if (!$success) {
    print $jwe->LastErrorText, "\n";
    exit;
}

# Set the symmetric key-wrapping key for recipient 0.  The key bytes are provided in the named
# encoding (here base64).  In production, obtain the key from a secure source rather than hard-coding
# it.
my $base64Key = 'YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=';
$success = $jwe->SetWrappingKey(0, $base64Key, 'base64');
if (!$success) {
    print $jwe->LastErrorText, "\n";
    exit;
}

my $jweCompact = $jwe->Encrypt('This is the secret content.', 'utf-8');
if (!$jwe->LastMethodSuccess) {
    print $jwe->LastErrorText, "\n";
    exit;
}

print $jweCompact, "\n";