Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Create JWT using a Brainpool EC KeySee more JSON Web Token (JWT) ExamplesDemonstrates how to create a JWT using an EC private key. This is for JOSE headers having an "alg" member with any of the following values:
This example also demonstrates how to include time constraints:
LOCAL loPrivKey LOCAL lnSuccess LOCAL loJwt LOCAL loJose LOCAL loClaims LOCAL lnCurDateTime LOCAL lcToken * Demonstrates how to create a JWT using a brainpool EC private key. * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loPrivKey = CreateObject('Chilkat_9_5_0.PrivateKey') * Load a brainpool EC key. lnSuccess = loPrivKey.LoadPemFile("c:/qa_data/pem/ec_brainpool_privKey.pem") IF (lnSuccess <> 1) THEN ? loPrivKey.LastErrorText RELEASE loPrivKey CANCEL ENDIF * You can examine the curve name of the key you just loaded by getting the private in XML format: * <ECCKeyValue curve="CURVE_NAME">...</ECCKeyValue> ? loPrivKey.GetXml() loJwt = CreateObject('Chilkat_9_5_0.Jwt') * Build the JOSE header loJose = CreateObject('Chilkat_9_5_0.JsonObject') * Use the brainpool curve name matching the private key you just loaded. * Use "BP256R1", or "BP384R1", etc. lnSuccess = loJose.AppendString("alg","BP256R1") lnSuccess = loJose.AppendString("typ","JWT") * Now build the JWT claims (also known as the payload) loClaims = CreateObject('Chilkat_9_5_0.JsonObject') lnSuccess = loClaims.AppendString("iss","http://example.org") lnSuccess = loClaims.AppendString("sub","John") lnSuccess = loClaims.AppendString("aud","http://example.com") * Set the timestamp of when the JWT was created to now. lnCurDateTime = loJwt.GenNumericDate(0) lnSuccess = loClaims.AddIntAt(-1,"iat",lnCurDateTime) * Set the "not process before" timestamp to now. lnSuccess = loClaims.AddIntAt(-1,"nbf",lnCurDateTime) * Set the timestamp defining an expiration time (end time) for the token * to be now + 1 hour (3600 seconds) lnSuccess = loClaims.AddIntAt(-1,"exp",lnCurDateTime + 3600) * Produce the smallest possible JWT: loJwt.AutoCompact = 1 * Create the JWT token. This is where the ECC signature is created. lcToken = loJwt.CreateJwtPk(loJose.Emit(),loClaims.Emit(),loPrivKey) ? lcToken RELEASE loPrivKey RELEASE loJwt RELEASE loJose RELEASE loClaims |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.