Set the JWS Protected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetProtectedHeader, which sets the integrity-protected header for a signer from a JsonObject. The header specifies the signature algorithm (alg).

use strict;
use warnings;
use Chilkat2;

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

# Build the JWS protected header.  The "alg" member names the signature algorithm.
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'HS256');

# Set the protected header for signer index 0.  The protected header is integrity-protected: it is
# covered by the signature.
my $success = $jws->SetProtectedHeader(0, $header);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

print "Protected header set.\n";