Tcl

FTPS / Implicit SSL

See more FTP Examples

Demonstrates how to connect using implicit SSL on port 990. The FTP component connects using SSL on port 990, which is the de-facto standard FTP SSL port. Not all FTP servers support implicit SSL. An alternative is to use AUTH SSL (also called AUTH TLS). Tcl

load ./chilkat.dll

set success 0

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

set ftp [new_CkFtp2]

# If this example does not work, try using passive mode
# by setting this to 1.
CkFtp2_put_Passive $ftp 0
CkFtp2_put_Hostname $ftp "ftp.something.com"
CkFtp2_put_Username $ftp "test"
CkFtp2_put_Password $ftp "test"
CkFtp2_put_Port $ftp 990

# We don't want AUTH SSL:
CkFtp2_put_AuthTls $ftp 0

# We want Implicit SSL:
CkFtp2_put_Ssl $ftp 1

# Connect and login to the FTP server.
set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
} else {
    # LastErrorText contains information even when
    # successful. This allows you to visually verify
    # that the secure connection actually occurred.
    puts [CkFtp2_lastErrorText $ftp]
}

puts "FTPS Channel Established!"

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

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp