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.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

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

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

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATFTP2Lib_TLB,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
cert: TChilkatCert;
password: String;
pvk: CHILKATCERTIFICATELib_TLB.IPrivateKey;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end;

ftp.Hostname := 'ftp.***.com';
ftp.Port := 21;
ftp.Username := 'testLogin';
ftp.Password := 'testPassword';

//  This example will use explict TLS/SSL.
//  Establish an explicit secure channel after connection
//  on the standard FTP port 21.
ftp.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.Ssl := 0;

cert := TChilkatCert.Create(Self);

//  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) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;

password := 'test';
pvk := TprivateKey.Create(Self).ControlInterface;
success := pvk.LoadPvkFile('Test.pvk',password);
if (success <> 1) then
  begin
    ShowMessage(pvk.LastErrorText);
    Exit;
  end;

success := cert.SetPrivateKey(pvk);
if (success <> 1) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;

//  Use this certificate for our secure (SSL/TLS) connection:
ftp.SetSslClientCert(cert.ControlInterface As CHILKATFTP2Lib_TLB.IChilkatCert);

//  Connect and login to the FTP server.  The connection is
//  made secure because of the AuthTls setting.
success := ftp.Connect();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end
else
  begin
    //  LastErrorText contains information even when
    //  successful. This allows you to visually verify
    //  that the secure connection actually occurred.
    Memo1.Lines.Add(ftp.LastErrorText);
  end;

ShowMessage('Secure FTP Channel Established!');

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

ftp.Disconnect();
end;