(AutoIt) Decode Microsoft Graph ID Token

Demonstrates how to decode a Microsoft Graph ID token.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

; In a previous example, we obtained a Microsoft Graph OAuth2 access token.
; This example loads the JSON saved from the previous example and decodes the id_token.

; 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 = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJsonToken.LoadFile("qa_data/tokens/microsoftGraph.json")
If ($bSuccess = False) Then
    ConsoleWrite("Failed to load the JSON file..." & @CRLF)
    Exit
EndIf

; Use Chilkat's JWT API to examine the id_token..
$oJwt = ObjCreate("Chilkat.Jwt")
Local $sIdToken = $oJsonToken.StringOf("id_token")

; Extract the JOSE header..
Local $sJose = $oJwt.GetHeader($sIdToken)

$oJsonHeader = ObjCreate("Chilkat.JsonObject")
$oJsonHeader.Load($sJose)
$oJsonHeader.EmitCompact = False
ConsoleWrite($oJsonHeader.Emit() & @CRLF)

; The JOSE header looks like this:

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

Local $sClaims = $oJwt.GetPayload($sIdToken)

$oJsonClaims = ObjCreate("Chilkat.JsonObject")
$oJsonClaims.Load($sClaims)
$oJsonClaims.EmitCompact = False
ConsoleWrite($oJsonClaims.Emit() & @CRLF)

; 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..
Local $sVer = $oJsonClaims.StringOf("ver")
Local $sIss = $oJsonClaims.StringOf("iss")
Local $s_sub = $oJsonClaims.StringOf("sub")
Local $sAud = $oJsonClaims.StringOf("aud")
Local $iExp = $oJsonClaims.IntOf("exp")
Local $iat = $oJsonClaims.IntOf("iat")
Local $iNbf = $oJsonClaims.IntOf("nbf")
Local $sName = $oJsonClaims.StringOf("name")
Local $sPreferred_username = $oJsonClaims.StringOf("preferred_username")
Local $sOid = $oJsonClaims.StringOf("oid")
Local $sTid = $oJsonClaims.StringOf("tid")
Local $sAio = $oJsonClaims.StringOf("aio")