Perl

Get the JWS Payload into BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayloadBd, which writes the payload of a loaded JWS as raw bytes into a BinData.

Background. This is used when the payload is binary. In practice, validate the signature before trusting the payload.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $jws = Chilkat2::Jws->new;

# Load the JWS compact serialization.
my $jwsCompact = 'eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>';
my $success = $jws->LoadJws($jwsCompact);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Get the JWS payload as raw bytes into a BinData.
my $bdPayload = Chilkat2::BinData->new;
$success = $jws->GetPayloadBd($bdPayload);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

print 'Payload is ', $bdPayload->NumBytes, " bytes.\n";