Perl

Decode Microsoft Graph ID Token

See more Microsoft Graph Examples

Demonstrates how to decode a Microsoft Graph ID token. 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.

# This example loads an id_token and decodes it.

# Our Microsoft Graph OAuth2 token looks like this:

# {
#   "token_type": "Bearer",
#   "scope": "openid profile User.ReadWrite Mail.ReadWrite Mail.Send Files.ReadWrite User.Read Calendars.ReadWrite Group.ReadWrite.All",
#   "expires_in": 3600,
#   "ext_expires_in": 3600,
#   "access_token": "EwCQA8l6...0HhMKYwC",
#   "refresh_token": "MCWulIvzi2yD0S...igEFn51mqcByhZtAJg",
#   "id_token": "eyJ0eXAiOiJKV1...Q7lRDaR-7A",
#   "expires_on": "1562862714"
# }

my $jsonToken = Chilkat2::JsonObject->new;
my $success = $jsonToken->LoadFile('qa_data/tokens/microsoftGraph.json');
if (!$success) {
    print "Failed to load the JSON file...\n";
    exit;
}

# Use Chilkat's JWT API to examine the id_token..
my $jwt = Chilkat2::Jwt->new;
my $idToken = $jsonToken->StringOf('id_token');

# Extract the JOSE header..
my $jose = $jwt->GetHeader($idToken);

my $jsonHeader = Chilkat2::JsonObject->new;
$jsonHeader->Load($jose);
$jsonHeader->EmitCompact(0);
print $jsonHeader->Emit(), "\n";

# The JOSE header looks like this:

# {
#   "typ": "JWT",
#   "alg": "RS256",
#   "kid": "1LTMzakihiRla_8z2BEJVXeWMqo"
# }

my $claims = $jwt->GetPayload($idToken);

my $jsonClaims = Chilkat2::JsonObject->new;
$jsonClaims->Load($claims);
$jsonClaims->EmitCompact(0);
print $jsonClaims->Emit(), "\n";

# The claims look like this:

# {
#   "ver": "2.0",
#   "iss": "https://login.microsoftonline.com/9188040d-6c67-4c5b-b112-36a304b66dad/v2.0",
#   "sub": "AAAAAAAAAAAAAAAAAAAAAHJFryd6Gydo-XtTd1nhUNQ",
#   "aud": "18c456bd-db75-43fe-9724-9e5d821c68ff",
#   "exp": 1562945513,
#   "iat": 1562858813,
#   "nbf": 1562858813,
#   "name": "Matt Chilkat",
#   "preferred_username": "matt@example.com",
#   "oid": "00000000-0000-0000-3a33-fceb9b74cc15",
#   "tid": "9188040d-6c67-4c5b-b112-36a304b66dad",
#   "aio": "DfibJqKnWC1c0FS6G ... W6pvTrQuYzyq16ghY$"
# }
#

# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

# Get each of the claims..
my $ver = $jsonClaims->StringOf('ver');
my $iss = $jsonClaims->StringOf('iss');
my $s_sub = $jsonClaims->StringOf('sub');
my $aud = $jsonClaims->StringOf('aud');
my $exp = $jsonClaims->IntOf('exp');
my $iat = $jsonClaims->IntOf('iat');
my $nbf = $jsonClaims->IntOf('nbf');
my $name = $jsonClaims->StringOf('name');
my $preferred_username = $jsonClaims->StringOf('preferred_username');
my $oid = $jsonClaims->StringOf('oid');
my $tid = $jsonClaims->StringOf('tid');
my $aio = $jsonClaims->StringOf('aio');