![]() |
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
(Classic ASP) Verify SSL Server CertificateDemonstrates how to connect to an SSL server and verify its SSL certificate. Note: This example requires Chilkat v11.0.0 or greater.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set socket = Server.CreateObject("Chilkat.Socket") ssl = 1 maxWaitMillisec = 20000 ' The SSL server hostname may be an IP address, a domain name, ' or "localhost". sslServerHost = "www.paypal.com" sslServerPort = 443 ' Connect to the SSL server: success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If set cert = Server.CreateObject("Chilkat.Cert") success = socket.GetServerCert(cert) If (success <> 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Server Certificate:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Distinguished Name: " & cert.SubjectDN) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Common Name: " & cert.SubjectCN) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Issuer Distinguished Name: " & cert.IssuerDN) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Issuer Common Name: " & cert.IssuerCN) & "</pre>" bExpired = cert.Expired bRevoked = cert.Revoked bSignatureVerified = cert.SignatureVerified bTrustedRoot = cert.TrustedRoot Response.Write "<pre>" & Server.HTMLEncode( "Expired: " & bExpired) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Revoked: " & bRevoked) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Signature Verified: " & bSignatureVerified) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Trusted Root: " & bTrustedRoot) & "</pre>" End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) success = socket.Close(20000) %> </body> </html> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.