Sign a JWS with a Private Key

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetPrivateKey, which sets the private key used to create a signature. The example uses RS256 (RSASSA-PKCS1-v1_5 with SHA-256).

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

use strict;
use warnings;
use Chilkat2;

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

# Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'RS256');
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;
}

# The file path is relative to the application's current working directory.  An absolute path
# may also be used.  Supply the path appropriate to your own environment.
# Load the signer's private key and set it for signature 0.
my $privKey = Chilkat2::PrivateKey->new;
$success = $privKey->LoadPemFile('qa_data/signer_privkey.pem');
if (!$success) {
    print $privKey->LastErrorText, "\n";
    exit;
}

$success = $jws->SetPrivateKey(0, $privKey);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

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

print $jwsCompact, "\n";