B4X

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

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

Dim cert As ChilkatCert
cert.Initialize("cert")
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")

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


'  Load the private key.
Dim bd As ChilkatBinData
bd.Initialize
success = bd.LoadFile("qa_data/certs/sample_key_a.key")
success = privKey.LoadAnyFormat(bd, "privateKeyPasswordIfNecessary")
If success <> True Then
    Log(privKey.LastErrorText)
    Return
End If


'  Associate the private key with the cert.
success = cert.SetPrivateKey(privKey)
If success <> True Then
    Log(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
    Log(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.