Perl
Perl
Get the JWE Protected Header
See more JSON Web Encryption (JWE) Examples
Demonstrates Jwe.GetProtectedHeader, which copies the decoded shared JWE protected header into a JsonObject.
Background. Only the protected header is returned; it is not merged with the shared unprotected header or any per-recipient header.
Chilkat Perl Downloads
use chilkat();
$success = 0;
$jwe = chilkat::CkJwe->new();
# Load the JWE.
$jweCompact = "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>";
$success = $jwe->LoadJwe($jweCompact);
if ($success == 0) {
print $jwe->lastErrorText() . "\r\n";
exit;
}
# Copy the decoded shared JWE protected header into a JsonObject. Only the protected header is
# returned; it is not merged with the unprotected or per-recipient headers.
$json = chilkat::CkJsonObject->new();
$success = $jwe->GetProtectedHeader($json);
if ($success == 0) {
print $jwe->lastErrorText() . "\r\n";
exit;
}
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";