![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Verify FTP SSL Server CertificateThis example demonstrates how to verify the FTP server's certificate and authenticity. The intent is to verify the authenticity of the server before passing a login/password to it. Note: This example requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoFtp Variant vCert Handle hoCert String sTemp1 Move False To iSuccess // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatFtp2)) To hoFtp If (Not(IsComObjectCreated(hoFtp))) Begin Send CreateComObject of hoFtp End Set ComHostname Of hoFtp To "ftp.myftpserver.com" Set ComUsername Of hoFtp To "myUsername" Set ComPassword Of hoFtp To "myPassword" // Establish an AUTH SSL secure channel after connection // on the standard FTP port 21. Set ComAuthSsl Of hoFtp To True // The Ssl property is for establishing an implicit SSL connection // on port 990. Do not set it. Set ComSsl Of hoFtp To False // Indicate that the FTP server must have a verifiable SSL certificate. // Do not accept self-signed certs or certificates that are // expired, revoked, or cannot be verified to a root authority: Set ComRequireSslCertVerify Of hoFtp To True // You may also set a requirement. In this example, // the certificate's Common Name (CN) must match the // required string exactly: Send ComSetSslCertRequirement To hoFtp "subjectcn" "Chilkat Software, Inc." // Connect and login to the FTP server. Get ComConnect Of hoFtp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoFtp To sTemp1 Showln sTemp1 Procedure_Return End // After logging on, you may examine the FTP server's cert: Get Create (RefClass(cComChilkatCert)) To hoCert If (Not(IsComObjectCreated(hoCert))) Begin Send CreateComObject of hoCert End Get pvComObject of hoCert to vCert Get ComGetServerCert Of hoFtp vCert To iSuccess If (iSuccess = False) Begin Showln "No server certificate!" End Else Begin // Display the distinguished name of the SSL cert. Get ComSubjectDN Of hoCert To sTemp1 Showln sTemp1 End Showln "Secure FTP Channel Established!" // Do whatever you're doing to do ... // upload files, download files, etc... Get ComDisconnect Of hoFtp To iSuccess End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.