Visual FoxPro

FTP over Implicit TLS (Ssl, AuthSsl, AutoFix)

Demonstrates the SSL/TLS connection-mode properties Ssl, AuthSsl, and AutoFix. Setting Ssl true selects implicit FTPS, in which TLS begins immediately after the TCP connection on port 990.

Background: FTP has two ways to add TLS: implicit (this example) starts encrypted from the first byte on a dedicated port, 990; explicit (via AuthTls) connects in the clear on port 21 and issues AUTH TLS to upgrade. Explicit is the modern standard; implicit persists mainly for legacy servers. AuthSsl is an obsolete AUTH SSL variant to avoid. AutoFix, on by default, infers the mode from the port — disable it when you set these properties explicitly so it does not override your choice.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp

lnSuccess = 0

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "myFtpLogin"

*  Normally you would not hard-code the password in source.  You should instead obtain it
*  from an interactive prompt, environment variable, or a secrets vault.
loFtp.Password = "myPassword"

*  Ssl = 1 selects IMPLICIT FTPS: TLS begins immediately after the TCP connection, before
*  the greeting.  Port 990 is conventional for implicit FTPS.  Ssl takes priority over AuthTls
*  and AuthSsl.
loFtp.Ssl = 1
loFtp.Port = 990

*  AuthSsl selects the legacy AUTH SSL command and is very uncommon -- use AuthTls (explicit
*  FTPS) for modern servers instead.  Left 0 here.
loFtp.AuthSsl = 0

*  AutoFix (default 1) automatically adjusts Ssl/AuthTls/AuthSsl based solely on the Port
*  (21 or 990).  Disable it when setting these properties explicitly, as here.
loFtp.AutoFix = 0

lnSuccess = loFtp.Connect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

? "Connected using implicit FTPS."

lnSuccess = loFtp.Disconnect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

RELEASE loFtp