(Perl) ABN AMRO Create Signed JSON Web Token

Demonstrates how to create a signed JWT to be used for authenticating requests to the ABN AMRO REST API's.

For more information, see https://developer.abnamro.com/get-started#headingFive

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# Create public/private key pair (RSA)
$rsa = chilkat::CkRsa->new();

# Generate a 2048-bit key.
$success = $rsa->GenerateKey(2048);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Export the key to PEM files.
# Write one PEM file for the private key, and one for the public key.
# privkey is a PrivateKey
$privkey = $rsa->ExportPrivateKeyObj();
$success = $privkey->SavePemFile("qa_data/pem/abnAmroPrivateKey.pem");

# pubkey is a PublicKey
$pubkey = $rsa->ExportPublicKeyObj();
$success = $pubkey->SavePemFile(1,"qa_data/pem/abnAmroPublicKey.pem");
# Note: Please share your public key along with your app name and developer email id at api.support@nl.abnamro.com. 
# Token generation will not work unless public key is associated with your app.

# Create the JWT.
$jwt = chilkat::CkJwt->new();

# Create the header:
# {
#     "typ": "JWT",
#     "alg": "RS256"
# }
$jsonHeader = chilkat::CkJsonObject->new();
$jsonHeader->UpdateString("typ","JWT");
$jsonHeader->UpdateString("alg","RS256");

# Create the payload:
# {
#     "nbf": 1499947668,
#     "exp": 1499948668,
#     "iss": "me",
#     "sub": "anApiKey",
#     "aud": "https://auth-sandbox.abnamro.com/oauth/token"
# }
$jsonPayload = chilkat::CkJsonObject->new();

$curDateTime = $jwt->GenNumericDate(0);

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

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

$jsonPayload->UpdateString("iss","me");
$jsonPayload->UpdateString("sub","anApiKey");
$jsonPayload->UpdateString("aud","https://auth-sandbox.abnamro.com/oauth/token");

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

$jwtStr = $jwt->createJwtPk($jsonHeader->emit(),$jsonPayload->emit(),$privkey);
if ($jwt->get_LastMethodSuccess() != 1) {
    print $jwt->lastErrorText() . "\r\n";
    exit;
}

# Here is the JWT:
print $jwtStr . "\r\n";