Pascal (Lazarus/Delphi)

Verify Okta Access Token Locally

See more Okta OAuth/OIDC Examples

This example demonstrates how to validate an Okta access token using Chilkat's JWT class. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.StringBuilder,
  Chilkat.PublicKey,
  Chilkat.Jwt,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  jsonToken: TJsonObject;
  jsonWebKeys: TJsonObject;
  jwt: TJwt;
  accessToken: string;
  joseHeader: string;
  json: TJsonObject;
  kid: string;
  sbKid: TStringBuilder;
  e: string;
  n: string;
  i: Integer;
  count_i: Integer;
  bFound: Boolean;
  iMatch: Integer;
  pubkey: TPublicKey;
  jsonWebKey: TJsonObject;
  bVerified: Boolean;

begin
  success := 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 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

  jsonToken := TJsonObject.Create;
  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"
  //      },
  //      {
  //  	...
  //      }
  //    ]
  //  }

  jsonWebKeys := TJsonObject.Create;
  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.
  //  
  jwt := TJwt.Create;
  accessToken := jsonToken.StringOf('access_token');
  joseHeader := jwt.GetHeader(accessToken);

  WriteLn(joseHeader);
  //  The joseHeader contains this:   {"kid":"anSaRDPfWGOSCVNZEIZB9quCbNsdsvl5uWGBzxbudWQ","alg":"RS256"}

  json := TJsonObject.Create;
  json.Load(joseHeader);
  kid := json.StringOf('kid');
  WriteLn('kid to find: ' + kid);

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

  sbKid := TStringBuilder.Create;
  e := '';
  n := '';

  i := 0;
  count_i := jsonWebKeys.SizeOfArray('keys');
  bFound := False;
  iMatch := 0;
  while (bFound = False) and (i < count_i) do
    begin
      jsonWebKeys.I := i;
      sbKid.Clear();
      jsonWebKeys.StringOfSb('keys[i].kid',sbKid);
      WriteLn('checking kid: ' + sbKid.GetAsString());

      if (sbKid.ContentsEqual(kid,True) = True) then
        begin
          e := jsonWebKeys.StringOf('keys[i].e');
          n := jsonWebKeys.StringOf('keys[i].n');
          //  Exit the loop. 
          WriteLn('Found matching kid.');
          iMatch := i;
          bFound := True;
        end;
      i := i + 1;
    end;

  if (bFound = False) then
    begin
      WriteLn('No matching key ID found.');
      Exit;
    end;

  WriteLn('Matching key:');
  WriteLn('  exponent = ' + e);
  WriteLn('  modulus = ' + n);

  //  ------------------------
  //  Step 3: Load the RSA modulus and exponent into a Chilkat public key object.
  pubkey := TPublicKey.Create;

  //  Get the matching JSON key from the array of keys.
  jsonWebKeys.I := iMatch;

  jsonWebKey := TJsonObject.Create;
  jsonWebKeys.ObjectOf2('keys[i]',jsonWebKey);

  success := pubkey.LoadFromString(jsonWebKey.Emit());
  if (success = False) then
    begin
      WriteLn('Failed to load JSON web key.');
      WriteLn(jsonWebKey.Emit());
      WriteLn(pubkey.LastErrorText);
      Exit;
    end;
  WriteLn('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.
  bVerified := jwt.VerifyJwtPk(accessToken,pubkey);
  if (bVerified = True) then
    begin
      WriteLn('The access token is valid.');
    end
  else
    begin
      WriteLn('The access token is NOT valid.');
    end;


  jsonToken.Free;
  jsonWebKeys.Free;
  jwt.Free;
  json.Free;
  sbKid.Free;
  pubkey.Free;
  jsonWebKey.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.