![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) Get ETK Public Key (api-acpt.ehealth.fgov.be)See more Belgian eHealth Platform ExamplesThe following URL returns JSON, which contains a PKCS7 signed data:https://api-acpt.ehealth.fgov.be/etee/v1/etks?identifier=12345678901&type=SSIN This example extracts the signed data, validates it, and then extracts the public key from the certificate (obtained from signed content in the PKCS7) Note: The URL above uses "12345678901" which is not valid. You should replace it with a valid number. Note: This example requires Chilkat v11.0.0 or greater.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set http = Server.CreateObject("Chilkat.Http") jsonStr = http.QuickGetStr("https://api-acpt.ehealth.fgov.be/etee/v1/etks?identifier=12345678901&type=SSIN") If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( jsonStr) & "</pre>" ' The JSON contains something like this: ' [ ' { ' "key": { ' "applicationIdentifier": "", ' "ssin": "12345678901" ' }, ' "value": "MIAGCSq....AAAAAAAA==" ' } ' ] ' Note: The above is a JSON array (not a JSON object) ' It should be loaded into a Chilkat JSON array. set jarr = Server.CreateObject("Chilkat.JsonArray") success = jarr.Load(jsonStr) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to load JSON.") & "</pre>" Response.End End If ' json is a Chilkat.JsonObject Set json = jarr.ObjectAt(0) set bdPkcs7 = Server.CreateObject("Chilkat.BinData") success = bdPkcs7.AppendEncoded(json.StringOf("value"),"base64") ' Let's verify the PKCS7, and then examine the signing cert, ' and get the signing cert's public key. set crypt = Server.CreateObject("Chilkat.Crypt2") ' Validate the signedData PKCS7, and replace the contents of bdPkcs7 with the extracted signed content. success = crypt.OpaqueVerifyBd(bdPkcs7) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>" Response.End End If ' The signed content is the DER of a certificate. ' In other words, bdPkcs7 now contains a certificate. set cert = Server.CreateObject("Chilkat.Cert") success = cert.LoadFromBd(bdPkcs7) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>" Response.End End If ' Show some certificate information: Response.Write "<pre>" & Server.HTMLEncode( "Subject: " & cert.SubjectDN) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Serial: " & cert.SerialNumber) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Issuer: " & cert.IssuerDN) & "</pre>" ' Let's get the cert's public key... set pubKey = Server.CreateObject("Chilkat.PublicKey") success = cert.GetPublicKey(pubKey) ' OK, you now have the public key and can do whatever is needed.. Response.Write "<pre>" & Server.HTMLEncode( pubKey.KeyType) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( pubKey.KeySize) & "</pre>" %> </body> </html> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.