Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
|
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.
LOCAL loFtp LOCAL lnSuccess LOCAL loCertStore LOCAL lcPassword LOCAL loCert loFtp = CreateObject('Chilkat.Ftp2') * Any string unlocks the component for the 1st 30-days. lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial") IF (lnSuccess <> 1) THEN =MESSAGEBOX(loFtp.LastErrorText) QUIT ENDIF loFtp.Hostname = "ftp.***.com" loFtp.Port = 21 loFtp.Username = "test" loFtp.Password = "test" * This example will use explict TLS/SSL. * Establish an explicit secure channel after connection * on the standard FTP port 21. loFtp.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. loFtp.Ssl = 0 * Load a certificate from a .pfx * A PFX may contain several certs, including the certificates * in a chain of authority. loCertStore = CreateObject('Chilkat.CertStore') lcPassword = "***" * Load the certs from a PFX into an in-memory certificate store: lnSuccess = loCertStore.LoadPfxFile("chilkat.pfx",lcPassword) IF (lnSuccess <> 1) THEN ? loCertStore.LastErrorText QUIT ENDIF * Find the exact cert we'll use: loCert = loCertStore.FindCertBySubject("Chilkat Software, Inc.") IF (loCert = NULL ) THEN ? "Certificate not found!" QUIT ENDIF * Use this certificate for our secure (SSL/TLS) connection: loFtp.SetSslClientCert(loCert) RELEASE loCert * Connect and login to the FTP server. The connection is * made secure because of the AuthTls setting. lnSuccess = loFtp.Connect() IF (lnSuccess <> 1) THEN =MESSAGEBOX(loFtp.LastErrorText) QUIT ELSE * LastErrorText contains information even when * successful. This allows you to visually verify * that the secure connection actually occurred. ? loFtp.LastErrorText ENDIF =MESSAGEBOX("Secure FTP Channel Established!") * Do whatever you're doing to do ... * upload files, download files, etc... * ..... * ..... loFtp.Disconnect() |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.
Mail Component · .NET Email Component · ASP Mail Component · XML Parser