Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Verify SSL Server CertificateDemonstrates how to connect to an SSL server and verify its SSL certificate.
LOCAL loSocket LOCAL lnSsl LOCAL lnMaxWaitMillisec LOCAL lcSslServerHost LOCAL lnSslServerPort LOCAL lnSuccess LOCAL loCert LOCAL lnBExpired LOCAL lnBRevoked LOCAL lnBSignatureVerified LOCAL lnBTrustedRoot * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Socket') loSocket = CreateObject('Chilkat.Socket') lnSsl = 1 lnMaxWaitMillisec = 20000 * The SSL server hostname may be an IP address, a domain name, * or "localhost". lcSslServerHost = "www.paypal.com" lnSslServerPort = 443 * Connect to the SSL server: lnSuccess = loSocket.Connect(lcSslServerHost,lnSslServerPort,lnSsl,lnMaxWaitMillisec) IF (lnSuccess <> 1) THEN ? loSocket.LastErrorText RELEASE loSocket CANCEL ENDIF loCert = loSocket.GetSslServerCert() IF (loSocket.LastMethodSuccess <> 0) THEN ? "Server Certificate:" ? "Distinguished Name: " + loCert.SubjectDN ? "Common Name: " + loCert.SubjectCN ? "Issuer Distinguished Name: " + loCert.IssuerDN ? "Issuer Common Name: " + loCert.IssuerCN lnBExpired = loCert.Expired lnBRevoked = loCert.Revoked lnBSignatureVerified = loCert.SignatureVerified lnBTrustedRoot = loCert.TrustedRoot ? "Expired: " + STR(lnBExpired) ? "Revoked: " + STR(lnBRevoked) ? "Signature Verified: " + STR(lnBSignatureVerified) ? "Trusted Root: " + STR(lnBTrustedRoot) RELEASE loCert ENDIF * Close the connection with the server * Wait a max of 20 seconds (20000 millsec) lnSuccess = loSocket.Close(20000) RELEASE loSocket |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.