(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http

Dim cert As New Chilkat.Cert
Dim privKey As New Chilkat.PrivateKey

// Load any type of certificate (.cer, .p7b, .pem, etc.) by calling LoadFromFile.
Dim success As Boolean
success = cert.LoadFromFile("qa_data/certs/sample_cert_a.cer")
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Load the private key.
Dim bd As New Chilkat.BinData
success = bd.LoadFile("qa_data/certs/sample_key_a.key")
success = privKey.LoadAnyFormat(bd,"privateKeyPasswordIfNecessary")
If (success <> True) Then
    System.DebugLog(privKey.LastErrorText)
    Return
End If

// Associate the private key with the cert.
success = cert.SetPrivateKey(privKey)
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Set the certificate to be used for mutual TLS authentication
// (i.e. sets the client-side certificate for two-way TLS authentication)
success = http.SetSslClientCert(cert)
If (success <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// 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.