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.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loFtp
LOCAL lnSuccess
LOCAL loCertStore
LOCAL lcPassword
LOCAL loCert

loFtp = CreateObject('Chilkat.Ftp2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Hostname = "ftp.***.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.
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
    QUIT
ENDIF

*  Find the exact cert we'll use:

loCert = loCertStore.FindCertBySubject("Chilkat Software, Inc.")
IF (loCert = NULL ) THEN
    ? "Certificate not found!"
    QUIT
ENDIF

*  Use this certificate for our secure (SSL/TLS) connection:
loFtp.SetSslClientCert(loCert)
RELEASE 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
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ELSE
    *  LastErrorText contains information even when
    *  successful. This allows you to visually verify
    *  that the secure connection actually occurred.
    ? loFtp.LastErrorText
ENDIF

=MESSAGEBOX("Secure FTP Channel Established!")

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

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

loFtp.Disconnect()