(Visual FoxPro) Use HTTPS Client Certificate from .cer and .key Files

Demonstrates how to load a cert + private key from .cer and .key (base64) files and use it for mutual TLS authentication (client-side certificate).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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