(PowerBuilder) Verify FTP SSL Server Certificate

This example demonstrates how to verify the FTP server's certificate and authenticity. The intent is to verify the authenticity of the server before passing a login/password to it.

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

integer li_rc
oleobject loo_Ftp
integer li_Success
oleobject loo_Cert

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

loo_Ftp = create oleobject
// Use "Chilkat_9_5_0.Ftp2" for versions of Chilkat < 10.0.0
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Ftp.Hostname = "ftp.myftpserver.com"
loo_Ftp.Username = "myUsername"
loo_Ftp.Password = "myPassword"

// Establish an AUTH SSL secure channel after connection
// on the standard FTP port 21.
loo_Ftp.AuthSsl = 1

// The Ssl property is for establishing an implicit SSL connection
// on port 990.  Do not set it.
loo_Ftp.Ssl = 0

// Indicate that the FTP server must have a verifiable SSL certificate.
// Do not accept self-signed certs or certificates that are
// expired, revoked, or cannot be verified to a root authority:
loo_Ftp.RequireSslCertVerify = 1

// You may also set a requirement.  In this example,
// the certificate's Common Name (CN) must match the
// required string exactly:
loo_Ftp.SetSslCertRequirement("subjectcn","Chilkat Software, Inc.")

// Connect and login to the FTP server.
li_Success = loo_Ftp.Connect()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
else
    // LastErrorText contains information even when
    // successful. This allows you to visually verify
    // that the secure connection actually occurred.
    Write-Debug loo_Ftp.LastErrorText
end if

// After logging on, you may examine the FTP server's cert:

loo_Cert = loo_Ftp.GetSslServerCert()
if loo_Ftp.LastMethodSuccess <> 1 then
    Write-Debug "No server certificate!"
else
    // Display the distinguished name of the SSL cert.
    Write-Debug loo_Cert.SubjectDN
end if

Write-Debug "Secure FTP Channel Established!"

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

li_Success = loo_Ftp.Disconnect()


destroy loo_Ftp