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 Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim ftp As New Chilkat.Ftp2()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
End If


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 = true

'  The Ssl property is for establishing an implicit SSL connection
'  on port 990.  Because this example uses explicit SSL, it
'  should remain False.
ftp.Ssl = false

Dim cert As New Chilkat.Cert()

'  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 <> true) Then
    MsgBox(cert.LastErrorText)
    Exit Sub
End If


Dim password As String
password = "test"
Dim pvk As New Chilkat.PrivateKey()
success = pvk.LoadPvkFile("Test.pvk",password)
If (success <> true) Then
    MsgBox(pvk.LastErrorText)
    Exit Sub
End If


success = cert.SetPrivateKey(pvk)
If (success <> true) Then
    MsgBox(cert.LastErrorText)
    Exit Sub
End If



'  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 <> true) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
Else
    '  LastErrorText contains information even when
    '  successful. This allows you to visually verify
    '  that the secure connection actually occurred.
    TextBox1.Text = TextBox1.Text & ftp.LastErrorText & vbCrLf
End If


MsgBox("Secure FTP Channel Established!")

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

ftp.Disconnect()