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)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set ftp = Server.CreateObject("Chilkat.Ftp2")

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(ftp.LastErrorText) & "</pre>"

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

set cert = Server.CreateObject("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 <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(cert.LastErrorText) & "</pre>"

End If

password = "test"
set pvk = Server.CreateObject("Chilkat.PrivateKey")
success = pvk.LoadPvkFile("Test.pvk",password)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(pvk.LastErrorText) & "</pre>"

End If

success = cert.SetPrivateKey(pvk)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(cert.LastErrorText) & "</pre>"

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 <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(ftp.LastErrorText) & "</pre>"

Else
    '  LastErrorText contains information even when
    '  successful. This allows you to visually verify
    '  that the secure connection actually occurred.
    Response.Write "<pre>" & Server.HTMLEncode( ftp.LastErrorText) & "</pre>"
End If

Response.Write "<pre>" & Server.HTMLEncode("Secure FTP Channel Established!") & "</pre>"

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

ftp.Disconnect 
%>
</body>
</html>