Sample code for 30+ languages & platforms
Perl

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).

Background. The protected header is covered by the signature, so it cannot be altered without invalidating the JWS. It is configured before creating the JWS.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$jws = chilkat::CkJws->new();

#  Build the JWS protected header.  The "alg" member names the signature algorithm.
$header = chilkat::CkJsonObject->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.
$success = $jws->SetProtectedHeader(0,$header);
if ($success == 0) {
    print $jws->lastErrorText() . "\r\n";
    exit;
}

print "Protected header set." . "\r\n";