Lianja

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). Lianja

llSuccess = .F.

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

loHttp = createobject("CkHttp")

loCert = createobject("CkCert")
loPrivKey = createobject("CkPrivateKey")

// Load any type of certificate (.cer, .p7b, .pem, etc.) by calling LoadFromFile.
llSuccess = loCert.LoadFromFile("qa_data/certs/sample_cert_a.cer")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loHttp
    release loCert
    release loPrivKey
    return
endif

// Load the private key.
loBd = createobject("CkBinData")
llSuccess = loBd.LoadFile("qa_data/certs/sample_key_a.key")
llSuccess = loPrivKey.LoadAnyFormat(loBd,"privateKeyPasswordIfNecessary")
if (llSuccess <> .T.) then
    ? loPrivKey.LastErrorText
    release loHttp
    release loCert
    release loPrivKey
    release loBd
    return
endif

// Associate the private key with the cert.
llSuccess = loCert.SetPrivateKey(loPrivKey)
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loHttp
    release loCert
    release loPrivKey
    release loBd
    return
endif

// Set the certificate to be used for mutual TLS authentication
// (i.e. sets the client-side certificate for two-way TLS authentication)
llSuccess = loHttp.SetSslClientCert(loCert)
if (llSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loHttp
    release loCert
    release loPrivKey
    release loBd
    return
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