B4X Requires Chilkat v11.0.0+

Verify Okta ID Token Locally

See more Okta OAuth/OIDC Examples

This example demonstrates how to validate an Okta ID token using Chilkat's JWT class. B4X

Dim success As Boolean = False

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

'  This example begins with two JSON files:
'  
'  1. The access + id token obtained from Okta as shown in one fo these examples:  
'     Get Okta Token using Resource Owner Password Flow
'  
'  2. The Okta web keys obtained by this example:  Get Okta Web Keys
'  
'  

'  ----------------------------------------------------------------
'  Note: The very last step of this example is where the claims, such as iss, aud, iat, exp, and nonce
'  are extracted from the ID token and examined.
'  ----------------------------------------------------------------

'  Load the access/id token to be verified.
'  It contains JSON that looks like this:
'  {
'    "access_token": "eyJraWQiOiJhb ... O_eVu-kBp6g",
'    "token_type": "Bearer",
'    "expires_in": 3600,
'    "scope": "openid",
'    "id_token": "eyJraWQi ... FrL9WOuwbQtUg"
'  }
'  This example verifies the id_token.  (The access_token is verified in this example:  Verify Okta Access Token

Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/okta_access_token.json")

'  Load the public keys (Okta web keys), one of which is needed to validate.
'  The web keys JSON looks like this:
'  {
'    "keys": [
'      {
'        "kty": "RSA",
'        "alg": "RS256",
'        "kid": "anSaRDPfWGOSCVNZEIZB9quCbNsdsvl5uWGBzxbudWQ",
'        "use": "sig",
'        "e": "AQAB",
'        "n": "jT8uAgd5w ... euLB1HaVw"
'      },
'      {
'  	...
'      }
'    ]
'  }

Dim jsonWebKeys As ChilkatJsonObject
jsonWebKeys.Initialize
success = jsonWebKeys.LoadFile("qa_data/tokens/okta_web_keys.json")

'  ------------------------
'  Step 1: Get the JOSE header from the JWT.  The JOSE header contains JSON.  One of the JSON members will be the key ID "kid" which identifies the web key to be used for validation.
'  
Dim jwt As ChilkatJwt
jwt.Initialize
Dim idToken As String = jsonToken.StringOf("id_token")
Dim joseHeader As String = jwt.GetHeader(idToken)

Log(joseHeader)
'  The joseHeader contains this:   {"kid":"anSaRDPfWGOSCVNZEIZB9quCbNsdsvl5uWGBzxbudWQ","alg":"RS256"}

Dim json As ChilkatJsonObject
json.Initialize
json.Load(joseHeader)
Dim kid As String = json.StringOf("kid")
Log("kid to find: " & kid)

'  ------------------------
'  Step 2: Find the key with the same "kid" in the Okta web keys.

Dim sbKid As ChilkatStringBuilder
sbKid.Initialize
Dim e As String = ""
Dim n As String = ""

Dim i As Int = 0
Dim count_i As Int = jsonWebKeys.SizeOfArray("keys")
Dim bFound As Boolean = False
Dim iMatch As Int = 0
Do While (bFound = False) And (i < count_i)
    jsonWebKeys.I = i
    sbKid.Clear
    jsonWebKeys.StringOfSb("keys[i].kid", sbKid)
    Log("checking kid: " & sbKid.GetAsString)

    If sbKid.ContentsEqual(kid, True) = True Then
        e = jsonWebKeys.StringOf("keys[i].e")
        n = jsonWebKeys.StringOf("keys[i].n")
        '  Exit the loop. 
        Log("Found matching kid.")
        iMatch = i
        bFound = True
    End If

    i = i + 1
Loop

If bFound = False Then
    Log("No matching key ID found.")
    Return
End If


Log("Matching key:")
Log("  exponent = " & e)
Log("  modulus = " & n)

'  ------------------------
'  Step 3: Load the RSA modulus and exponent into a Chilkat public key object.
Dim pubkey As ChilkatPublicKey
pubkey.Initialize

'  Get the matching JSON key from the array of keys.
jsonWebKeys.I = iMatch

Dim jsonWebKey As ChilkatJsonObject
jsonWebKey.Initialize
jsonWebKeys.ObjectOf2("keys[i]", jsonWebKey)

success = pubkey.LoadFromString(jsonWebKey.Emit)
If success = False Then
    Log("Failed to load JSON web key.")
    Log(jsonWebKey.Emit)
    Log(pubkey.LastErrorText)
    Return
End If

Log("successfully loaded web key.")

'  OK.. we have the desired JSON web key loaded into our public key object.
'  Now we can verify the access token.

'  ------------------------
'  Step 4: Verify the access token.
Dim bVerified As Boolean = jwt.VerifyJwtPk(idToken, pubkey)
If bVerified = True Then
    Log("The ID token is valid.")
Else
    Log("The ID token is NOT valid.")
End If


'  ------------------------
'  Step 5: Extract the claims (payload) from the ID token and examine them..

Dim claims As String = jwt.GetPayload(idToken)

Dim jsonClaims As ChilkatJsonObject
jsonClaims.Initialize
jsonClaims.Load(claims)
jsonClaims.EmitCompact = False
Log(jsonClaims.Emit)

'  Sample claims:
'  {
'    "sub": "00utrr8ehubooPhjj356",
'    "ver": 1,
'    "iss": "https://dev-765951.okta.com/oauth2/default",
'    "aud": "0oatrr20vPYgVDlGr356",
'    "iat": 1562190727,
'    "exp": 1562194327,
'    "jti": "ID.JvlMhlnCj5ZqqGjk-jlgcOxHEyVUwIl9_Kpz69U2D_4",
'    "amr": [
'      "pwd"
'    ],
'    "idp": "00os29azljkqyx99Q356",
'    "auth_time": 1562190726,
'    "at_hash": "SLMiVeyNWWEDaZ-O32nKMg"
'  }

'  The exp (expiry time) claim is the time at which this token will expire., expressed in Unix time. You should make sure that this time has not already passed.
Dim dtExp As ChilkatDateTime
dtExp.Initialize
dtExp.SetFromUnixTime(False, jsonClaims.IntOf("exp"))
Log("expire timestamp = " & dtExp.GetAsTimestamp(False))

'  Check to see if this date/time expires within 0 seconds (i.e. is already past)
Dim bExpired As Boolean = dtExp.ExpiresWithin(0, "seconds")
Log("bExpired = " & bExpired)