Visual FoxPro

Use HTTPS Client Certificate from .cer and .key Files

See more HTTP Examples

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL loCert
LOCAL loPrivKey
LOCAL loBd

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat.Http')

loCert = CreateObject('Chilkat.Cert')
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.
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