Xbase++
Decode Microsoft Graph ID Token

Demonstrates how to decode a Microsoft Graph ID token.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oJsonToken
LOCAL oJwt
LOCAL cIdToken
LOCAL cJose
LOCAL oJsonHeader
LOCAL cClaims
LOCAL oJsonClaims
LOCAL cVer
LOCAL cIss
LOCAL cS_sub
LOCAL cAud
LOCAL nExp
LOCAL nIat
LOCAL nNbf
LOCAL cName
LOCAL cPreferred_username
LOCAL cOid
LOCAL cTid
LOCAL cAio

nSuccess := 0

//  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"
//  }

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/microsoftGraph.json")
IF (nSuccess == 0)
    ? "Failed to load the JSON file..."
    oJsonToken:destroy()
    RETURN
ENDIF

//  Use Chilkat's JWT API to examine the id_token..
oJwt := CreateObject("Chilkat.Jwt")
cIdToken := oJsonToken:StringOf("id_token")

//  Extract the JOSE header..
cJose := oJwt:GetHeader(cIdToken)

oJsonHeader := CreateObject("Chilkat.JsonObject")
oJsonHeader:Load(cJose)
oJsonHeader:EmitCompact := 0
? oJsonHeader:Emit()

//  The JOSE header looks like this:

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

cClaims := oJwt:GetPayload(cIdToken)

oJsonClaims := CreateObject("Chilkat.JsonObject")
oJsonClaims:Load(cClaims)
oJsonClaims:EmitCompact := 0
? oJsonClaims:Emit()

//  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..
cVer := oJsonClaims:StringOf("ver")
cIss := oJsonClaims:StringOf("iss")
cS_sub := oJsonClaims:StringOf("sub")
cAud := oJsonClaims:StringOf("aud")
nExp := oJsonClaims:IntOf("exp")
nIat := oJsonClaims:IntOf("iat")
nNbf := oJsonClaims:IntOf("nbf")
cName := oJsonClaims:StringOf("name")
cPreferred_username := oJsonClaims:StringOf("preferred_username")
cOid := oJsonClaims:StringOf("oid")
cTid := oJsonClaims:StringOf("tid")
cAio := oJsonClaims:StringOf("aio")

oJsonToken:destroy()
oJwt:destroy()
oJsonHeader:destroy()
oJsonClaims:destroy()