Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Secure FTP with Client CertificateChilkat 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 a .pfx and use it as the client-side SSL cert. Note: Client-side certificates are only needed in situations where the server demands one.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim ftp As Chilkat.Ftp2 Set ftp = Chilkat.NewFtp2 ftp.Hostname = "ftp.***.com" ftp.Port = 21 ftp.Username = "test" ftp.Password = "test" ' 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 ' Load a certificate from a .pfx ' A PFX may contain several certs, including the certificates ' in a chain of authority. Dim certStore As Chilkat.CertStore Set certStore = Chilkat.NewCertStore password = "***" ' Load the certs from a PFX into an in-memory certificate store: success = certStore.LoadPfxFile("chilkat.pfx",password) If (success <> True) Then Debug.Print certStore.LastErrorText Exit Sub End If ' Find the exact cert we'll use: Set cert = certStore.FindCertBySubject("Chilkat Software, Inc.") If (certStore.LastMethodSuccess = False) Then Debug.Print "Certificate not found!" Exit Sub End If ' Use this certificate for our secure (SSL/TLS) connection: success = 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 Debug.Print ftp.LastErrorText Exit Sub Else ' LastErrorText contains information even when ' successful. This allows you to visually verify ' that the secure connection actually occurred. Debug.Print ftp.LastErrorText End If Debug.Print "Secure FTP Channel Established!" ' Do whatever you're doing to do ... ' upload files, download files, etc... ' ..... ' ..... success = ftp.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.