(Visual FoxPro) Secure FTP with Client Certificate

Chilkat FTP2 provides the ability to use a client certificate with secure FTP (implicit or explicit SSL/TLS). This example demonstrates how to load a certificate from a .pfx and use it as the client-side SSL cert. Note: Client-side certificates are only needed in situations where the server demands one.

Note: This example requires Chilkat v10.1.2 or greater.

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

LOCAL loFtp
LOCAL loCertStore
LOCAL lcPassword
LOCAL lnSuccess
LOCAL loJsonCN
LOCAL loCert

* 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.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.example.com"
loFtp.Port = 21
loFtp.Username = "test"
loFtp.Password = "test"

* This example will use explict TLS/SSL.
* Establish an explicit secure channel after connection
* on the standard FTP port 21.
loFtp.AuthTls = 1

* The Ssl property is for establishing an implicit SSL connection
* on port 990.  Because this example uses explicit SSL, it 
* should remain 0.
loFtp.Ssl = 0

* Load a certificate from a .pfx
* A PFX may contain several certs, including the certificates
* in a chain of authority.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

lcPassword = "***"
* Load the certs from a PFX into an in-memory certificate store:
lnSuccess = loCertStore.LoadPfxFile("chilkat.pfx",lcPassword)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loFtp
    RELEASE loCertStore
    CANCEL
ENDIF

* Find the desired certificate.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonCN = CreateObject('Chilkat.JsonObject')
loJsonCN.UpdateString("CN","cert common name")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCertStore.FindCert(loJsonCN,loCert)
IF (lnSuccess = 0) THEN
    ? "Certificate not found!"
    RELEASE loFtp
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    CANCEL
ENDIF

* Use this certificate for our secure (SSL/TLS) connection:
lnSuccess = loFtp.SetSslClientCert(loCert)

* Connect and login to the FTP server.  The connection is 
* made secure because of the AuthTls setting.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    CANCEL
ELSE
    * LastErrorText contains information even when
    * successful. This allows you to visually verify
    * that the secure connection actually occurred.
    ? loFtp.LastErrorText
ENDIF

? "Secure FTP Channel Established!"

* Do whatever you're doing to do ...
* upload files, download files, etc...

* .....
* .....

lnSuccess = loFtp.Disconnect()

RELEASE loFtp
RELEASE loCertStore
RELEASE loJsonCN
RELEASE loCert