Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3,4,5...TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

VB.NET UWP/WinRT Web API Examples

Primary Categories

ABN AMRO
AWS Secrets Manager
AWS Translate
Activix CRM
Adyen
Alibaba Cloud OSS
Amazon Cognito
Amazon DynamoDB
Amazon MWS
Amazon Pay
Amazon Rekognition
Amazon Voice ID
Aruba Fatturazione
Azure Maps
Azure Monitor
Azure OAuth2
Azure Storage Accounts
Backblaze S3
Bitfinex v2 REST
Bluzone
BrickLink
CallRail
CardConnect
Cerved
ClickBank
Clickatell
Cloudfare
Constant Contact
DocuSign
Duo Auth MFA
ETrade
Ecwid
Egypt ITIDA
Etsy
Facebook
Faire
Frame.io
GeoOp
GetHarvest
Global Payments
Google People
Google Search Console
Hungary NAV Invoicing
IBM Text to Speech
Ibanity
IntakeQ
Jira
Lightspeed
MYOB
Magento
Mailgun
Mastercard

MedTunnel
MercadoLibre
Microsoft Calendar
Microsoft Group
Microsoft Tasks and Plans
Microsoft Teams
Moody's
Okta OAuth/OIDC
OneLogin OIDC
OneNote
PRODA
PayPal
Paynow.pl
Peoplevox
Populi
QuickBooks
Rabobank
Refinitiv
Royal Mail OBA
SCiS Schools Catalogue
SII Chile
SMSAPI
SOAP finkok.com
SendGrid
Shippo
Shopify
Shopware
Shopware 6
SimpleTexting
Square
Stripe
SugarCRM
TicketBAI
Trello
Twilio
Twitter
UniPin
VoiceBase
Vonage
Walmart
Walmart v3
Wasabi
WhatsApp
WiX
WooCommerce
WordPress
Xero
Yahoo Mail
Yousign
Zoom
_Miscellaneous_
eBay
effectconnect
hacienda.go.cr

 

 

 

(VB.NET UWP/WinRT) Verify Okta ID Token Locally

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

For more information, see https://developer.okta.com/docs/guides/validate-id-tokens/overview/

Chilkat Universal Windows Platform (UWP) / WinRT Downloads

Chilkat for the Universal Windows Platform (UWP)

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

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

Dim json As New Chilkat.JsonObject
json.Load(joseHeader)
Dim kid As String = json.StringOf("kid")
Debug.WriteLine("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 = ""
Dim n As String = ""

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

    i = i + 1
End While

If (bFound = False) Then
    Debug.WriteLine("No matching key ID found.")
    Exit Sub
End If


Debug.WriteLine("Matching key:")
Debug.WriteLine("  exponent = " & e)
Debug.WriteLine("  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 = jsonWebKeys.ObjectOf("keys[i]")
success = pubkey.LoadFromString(jsonWebKey.Emit())
If (success = False) Then
    Debug.WriteLine("Failed to load JSON web key.")
    Debug.WriteLine(jsonWebKey.Emit())
    Debug.WriteLine(pubkey.LastErrorText)

    Exit Sub
End If



Debug.WriteLine("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
    Debug.WriteLine("The ID token is valid.")
Else
    Debug.WriteLine("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 New Chilkat.JsonObject
jsonClaims.Load(claims)
jsonClaims.EmitCompact = False
Debug.WriteLine(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 New Chilkat.CkDateTime
dtExp.SetFromUnixTime(False,jsonClaims.IntOf("exp"))
Debug.WriteLine("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")
Debug.WriteLine("bExpired = " & bExpired)

 

© 2000-2022 Chilkat Software, Inc. All Rights Reserved.