Encrypt a JWE with a Password (PBES2)

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetPassword, which sets the PBES2 password for a recipient. The example uses PBES2-HS256+A128KW key management with AES-128-GCM content encryption.

use strict;
use warnings;
use Chilkat2;

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

# Protected header: PBES2 password-based key management with AES-128-GCM content encryption.
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'PBES2-HS256+A128KW');
$header->UpdateString('enc', 'A128GCM');
my $success = $jwe->SetProtectedHeader($header);
if (!$success) {
    print $jwe->LastErrorText, "\n";
    exit;
}

# Set the PBES2 password for recipient 0.  The password should come from a secure source rather than
# being hard-coded.
my $password = 'myPassword';
$success = $jwe->SetPassword(0, $password);
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";