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) FTP Connect, Examine Server Certificate, and then AuthenticateDemonstrates how to connect to an FTP server, examine the server's SSL/TLS certificate, and then, if it meets the application's security requirements, proceed to authenticate.
' This example assumes Chilkat Ftp2 to have been previously unlocked. ' See Unlock Ftp2 for sample code. Dim ftp As Chilkat.Ftp2 Set ftp = Chilkat.NewFtp2 ftp.Hostname = "www.authtls-ftps-server.com" ftp.Username = "FTP_LOGIN" ftp.Password = "FTP_PASSWORD" ftp.AuthTls = True ftp.Port = 21 ' Connect to the FTP server using explicit TLS (AUTH TLS). success = ftp.ConnectOnly() If (success <> True) Then Debug.Print ftp.LastErrorText Exit Sub End If ' Get the FTP server's certificate. Set serverCert = ftp.GetSslServerCert() If (ftp.LastMethodSuccess <> True) Then Debug.Print ftp.LastErrorText Exit Sub End If ' Now that we have the certificate, we can check it in any way we desire. ' (See the online reference documentation for the certificate object's methods ' and properties)... ' Assuming the certificate is OK, proceed to authenticate with the FTP server. success = ftp.LoginAfterConnectOnly() If (success <> True) Then Debug.Print ftp.LastErrorText Exit Sub End If ' ' Proceed with uploading/download files, etc... ' Dim success As Boolean success = ftp.Disconnect() Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.