Perl Requires Chilkat v10.1.0+

Create JWT using a Certificate's Private Key

See more JSON Web Token (JWT) Examples

Demonstrates how to create a JWT using a certificate's private key. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# Demonstrates how to create a JWT using an certificate's private key.

my $cert = Chilkat2::Cert->new;

# Load an ECC private key from a PEM file.
my $success = $cert->LoadPfxFile('c:/temp/myPfx.pfx', 'pfxPassword');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

my $jwt = Chilkat2::Jwt->new;

# Build the JOSE header
my $jose = Chilkat2::JsonObject->new;
if ($cert->IsEcdsa()) {
    # Use ES256.  Pass the string "ES384" or "ES512" to use ECC with SHA-384 or SHA-512.
    $jose->AppendString('alg', 'ES256');
} else {
    # Probably RSA...
    # Use RS256.  Pass the string "RS384" or "RS512" to use RSA with SHA-384 or SHA-512.
    $jose->AppendString('alg', 'RS256');
}

$jose->AppendString('typ', 'JWT');

# Now build the JWT claims (also known as the payload)
my $claims = Chilkat2::JsonObject->new;
$claims->AppendString('iss', 'http://example.org');
$claims->AppendString('sub', 'John');
$claims->AppendString('aud', 'http://example.com');

# Set the timestamp of when the JWT was created to now.
my $curDateTime = $jwt->GenNumericDate(0);
$claims->AddIntAt(-1, 'iat', $curDateTime);

# Set the "not process before" timestamp to now.
$claims->AddIntAt(-1, 'nbf', $curDateTime);

# Set the timestamp defining an expiration time (end time) for the token
# to be now + 1 hour (3600 seconds)
$claims->AddIntAt(-1, 'exp', $curDateTime + 3600);

# Produce the smallest possible JWT:
$jwt->AutoCompact(1);

# Create the JWT token.
my $token = $jwt->CreateJwtCert($jose->Emit(), $claims->Emit(), $cert);

print $token, "\n";

# Example output:
# eyJhbGciOiJFUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJodHRwOi8vZXhhbXBsZS5vcmciLCJzdWIiOiJKb2huIiwiYXVkIjoiaHR0cDovL2V4YW1wbGUuY29tIiwiaWF0IjoxNDg1NzA4NzkyLCJuYmYiOjE0ODU3MDg3OTIsImV4cCI6MTQ4NTcxMjM5Mn0.wqsuyJpxJ073ox-lOiLFqG1lQocXe4hGf2XGZJRrO3qn0UusxI_bu3Gzky8gBsH4sA4u9TWZn5M-1wYMMIJk6Q