Secure FTP with .crt and .pvk (private key file)

(The LoadPvkFile method used in this example is only available in Chilkat builds for the Windows operating system.)

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 separate .crt (or .cer) and .pvk files and use it as the client-side SSL cert. The .pvk contains the private key. The .crt/.cer file contains the PEM or DER encoded digital certificate. Note: Client-side certificates are only needed in situations where the server demands one.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$ftp = new chilkat::CkFtp2();

#  Any string unlocks the component for the 1st 30-days.
$success = $ftp->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

$ftp->put_Hostname("ftp.***.com");
$ftp->put_Port(21);
$ftp->put_Username("testLogin");
$ftp->put_Password("testPassword");

#  This example will use explict TLS/SSL.
#  Establish an explicit secure channel after connection
#  on the standard FTP port 21.
$ftp->put_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.
$ftp->put_Ssl(0);

$cert = new chilkat::CkCert();

#  LoadFromFile will load either PEM and DER formatted files.
#  It automatically recognizes the file format based on the
#  file contents.
$success = $cert->LoadFromFile("Test.crt");
if ($success != 1) {
    print $cert->lastErrorText() . "\n";
    exit;
}

$password = "test";
$pvk = new chilkat::CkPrivateKey();
$success = $pvk->LoadPvkFile("Test.pvk",$password);
if ($success != 1) {
    print $pvk->lastErrorText() . "\n";
    exit;
}

$success = $cert->SetPrivateKey($pvk);
if ($success != 1) {
    print $cert->lastErrorText() . "\n";
    exit;
}

#  Use this certificate for our secure (SSL/TLS) connection:
$ftp->SetSslClientCert($cert);

#  Connect and login to the FTP server.  The connection is
#  made secure because of the AuthTls setting.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}
else {
    #  LastErrorText contains information even when
    #  successful. This allows you to visually verify
    #  that the secure connection actually occurred.
    print $ftp->lastErrorText() . "\r\n";
}

print "Secure FTP Channel Established!" . "\n";

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

$ftp->Disconnect();