Perl
Perl
Get the Entire Loaded JWE Structure
See more JSON Web Encryption (JWE) Examples
Demonstrates Jwe.GetHeader, which copies the entire currently loaded JWE structure into a JsonObject.
Background. This is the full JWE representation, not a decoded or merged JOSE header. It can contain the protected, unprotected, and per-recipient header material.
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 entire loaded JWE structure into a JsonObject. This is the full JWE representation, not a
# decoded or merged JOSE header.
$json = chilkat::CkJsonObject->new();
$success = $jwe->GetHeader($json);
if ($success == 0) {
print $jwe->lastErrorText() . "\r\n";
exit;
}
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";