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
(DataFlex) 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:
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Variant vPrivKey Handle hoPrivKey Boolean iSuccess Handle hoJwt Handle hoJose Handle hoClaims Integer iCurDateTime String sToken String sTemp1 String sTemp2 // 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. Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey If (Not(IsComObjectCreated(hoPrivKey))) Begin Send CreateComObject of hoPrivKey End // Load a brainpool EC key. Get ComLoadPemFile Of hoPrivKey "c:/qa_data/pem/ec_brainpool_privKey.pem" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoPrivKey To sTemp1 Showln sTemp1 Procedure_Return End // You can examine the curve name of the key you just loaded by getting the private in XML format: // <ECCKeyValue curve="CURVE_NAME">...</ECCKeyValue> Get ComGetXml Of hoPrivKey To sTemp1 Showln sTemp1 Get Create (RefClass(cComChilkatJwt)) To hoJwt If (Not(IsComObjectCreated(hoJwt))) Begin Send CreateComObject of hoJwt End // Build the JOSE header Get Create (RefClass(cComChilkatJsonObject)) To hoJose If (Not(IsComObjectCreated(hoJose))) Begin Send CreateComObject of hoJose End // Use the brainpool curve name matching the private key you just loaded. // Use "BP256R1", or "BP384R1", etc. Get ComAppendString Of hoJose "alg" "BP256R1" To iSuccess Get ComAppendString Of hoJose "typ" "JWT" To iSuccess // Now build the JWT claims (also known as the payload) Get Create (RefClass(cComChilkatJsonObject)) To hoClaims If (Not(IsComObjectCreated(hoClaims))) Begin Send CreateComObject of hoClaims End Get ComAppendString Of hoClaims "iss" "http://example.org" To iSuccess Get ComAppendString Of hoClaims "sub" "John" To iSuccess Get ComAppendString Of hoClaims "aud" "http://example.com" To iSuccess // Set the timestamp of when the JWT was created to now. Get ComGenNumericDate Of hoJwt 0 To iCurDateTime Get ComAddIntAt Of hoClaims -1 "iat" iCurDateTime To iSuccess // Set the "not process before" timestamp to now. Get ComAddIntAt Of hoClaims -1 "nbf" iCurDateTime To iSuccess // Set the timestamp defining an expiration time (end time) for the token // to be now + 1 hour (3600 seconds) Get ComAddIntAt Of hoClaims -1 "exp" (iCurDateTime + 3600) To iSuccess // Produce the smallest possible JWT: Set ComAutoCompact Of hoJwt To True // Create the JWT token. This is where the ECC signature is created. Get ComEmit Of hoJose To sTemp1 Get ComEmit Of hoClaims To sTemp2 Get pvComObject of hoPrivKey to vPrivKey Get ComCreateJwtPk Of hoJwt sTemp1 sTemp2 vPrivKey To sToken Showln sToken End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.