Sample code for 30+ languages & platforms
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

Perl
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";