Perl
Perl
Create a JWS
See more JSON Web Signatures (JWS) Examples
Demonstrates Jws.CreateJws, which creates and returns a JWS from the current payload, headers, and signing key.
Background. JWS (JSON Web Signature) integrity-protects a payload with a signature or MAC. The header
alg names the algorithm; this example uses HMAC-SHA256 (HS256) with a symmetric MAC key.Chilkat Perl Downloads
use chilkat();
$success = 0;
$jws = chilkat::CkJws->new();
# Set the protected header for signer 0, specifying the signature algorithm (alg).
$header = chilkat::CkJsonObject->new();
$header->UpdateString("alg","HS256");
$success = $jws->SetProtectedHeader(0,$header);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
# Set the payload to be signed.
$bIncludeBom = 0;
$success = $jws->SetPayload("This is the content to sign.","utf-8",$bIncludeBom);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
# Provide the HMAC key (base64) for signer 0. In production, obtain the key from a secure source
# rather than hard-coding it.
$base64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=";
$success = $jws->SetMacKey(0,$base64Key,"base64");
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
# Create the JWS from the current payload, headers, and signing key. The returned string is the
# JWS (compact serialization by default).
$jwsCompact = $jws->createJws();
if ($jws->get_LastMethodSuccess() == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
print $jwsCompact . "\r\n";