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) Use HTTPS Client Certificate from .cer and .key FilesDemonstrates how to load a cert + private key from .cer and .key (base64) files and use it for mutual TLS authentication (client-side certificate).
LOCAL loHttp LOCAL loCert LOCAL loPrivKey LOCAL lnSuccess LOCAL loBd * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = CreateObject('Chilkat.Http') * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert') loCert = CreateObject('Chilkat.Cert') * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey') loPrivKey = CreateObject('Chilkat.PrivateKey') * Load any type of certificate (.cer, .p7b, .pem, etc.) by calling LoadFromFile. lnSuccess = loCert.LoadFromFile("qa_data/certs/sample_cert_a.cer") IF (lnSuccess <> 1) THEN ? loCert.LastErrorText RELEASE loHttp RELEASE loCert RELEASE loPrivKey CANCEL ENDIF * Load the private key. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData') loBd = CreateObject('Chilkat.BinData') lnSuccess = loBd.LoadFile("qa_data/certs/sample_key_a.key") lnSuccess = loPrivKey.LoadAnyFormat(loBd,"privateKeyPasswordIfNecessary") IF (lnSuccess <> 1) THEN ? loPrivKey.LastErrorText RELEASE loHttp RELEASE loCert RELEASE loPrivKey RELEASE loBd CANCEL ENDIF * Associate the private key with the cert. lnSuccess = loCert.SetPrivateKey(loPrivKey) IF (lnSuccess <> 1) THEN ? loCert.LastErrorText RELEASE loHttp RELEASE loCert RELEASE loPrivKey RELEASE loBd CANCEL ENDIF * Set the certificate to be used for mutual TLS authentication * (i.e. sets the client-side certificate for two-way TLS authentication) lnSuccess = loHttp.SetSslClientCert(loCert) IF (lnSuccess <> 1) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loCert RELEASE loPrivKey RELEASE loBd CANCEL ENDIF * At this point, the HTTP object instance is setup with the client-side cert, and any SSL/TLS * connection will automatically use it if the server demands a client-side cert. RELEASE loHttp RELEASE loCert RELEASE loPrivKey RELEASE loBd |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.