(Xojo Plugin) Verify Okta Access Token Locally

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

For more information, see https://developer.okta.com/docs/guides/validate-access-tokens/overview/#what-to-check-when-validating-an-access-token

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

// Load the access 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 access_token.  (The id_token is verified in this example:  Verify Okta ID Token

Dim jsonToken As New Chilkat.JsonObject
Dim success As Boolean
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 New Chilkat.JsonObject
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 New Chilkat.Jwt
Dim accessToken As String
accessToken = jsonToken.StringOf("access_token")
Dim joseHeader As String
joseHeader = jwt.GetHeader(accessToken)

System.DebugLog(joseHeader)
// The joseHeader contains this:   {"kid":"anSaRDPfWGOSCVNZEIZB9quCbNsdsvl5uWGBzxbudWQ","alg":"RS256"}

Dim json As New Chilkat.JsonObject
success = json.Load(joseHeader)
Dim kid As String
kid = json.StringOf("kid")
System.DebugLog("kid to find: " + kid)

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

Dim sbKid As New Chilkat.StringBuilder
Dim e As String
e = ""
Dim n As String
n = ""

Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jsonWebKeys.SizeOfArray("keys")
Dim bFound As Boolean
bFound = False
Dim iMatch As Int32
iMatch = 0
While (bFound = False) And (i < count_i)
    jsonWebKeys.I = i
    sbKid.Clear 
    success = jsonWebKeys.StringOfSb("keys[i].kid",sbKid)
    System.DebugLog("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. 
        System.DebugLog("Found matching kid.")
        iMatch = i
        bFound = True
    End If

    i = i + 1
Wend

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

System.DebugLog("Matching key:")
System.DebugLog("  exponent = " + e)
System.DebugLog("  modulus = " + n)

// ------------------------
// Step 3: Load the RSA modulus and exponent into a Chilkat public key object.
Dim pubkey As New Chilkat.PublicKey

// Get the matching JSON key from the array of keys.
jsonWebKeys.I = iMatch
Dim jsonWebKey As Chilkat.JsonObject
jsonWebKey = jsonWebKeys.ObjectOf("keys[i]")
success = pubkey.LoadFromString(jsonWebKey.Emit())
If (success = False) Then
    System.DebugLog("Failed to load JSON web key.")
    System.DebugLog(jsonWebKey.Emit())
    System.DebugLog(pubkey.LastErrorText)

    Return
End If

System.DebugLog("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
bVerified = jwt.VerifyJwtPk(accessToken,pubkey)
If (bVerified = True) Then
    System.DebugLog("The access token is valid.")
Else
    System.DebugLog("The access token is NOT valid.")
End If