|
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
(Classic ASP) Examine SSL/TLS Server CertificateSee more Socket/SSL/TLS ExamplesDemonstrates how an application can examine and check a server's SSL/TLS certificate.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes 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") set socket = Server.CreateObject("Chilkat.Socket") ' Connect to a server. useTls = 1 maxWaitMs = 2000 success = socket.Connect("www.intel.com",443,useTls,maxWaitMs) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If ' If we get here, the TLS connection ws made.. ' In any SSL/TLS handshake, the server sends its certificate in a TLS handshake message. ' Chilkat will keep it cached within the object that made the connection. ' Get the server's cert and examine a few things. ' cert is a Chilkat.Cert Set cert = socket.GetSslServerCert() If (socket.LastMethodSuccess = 0) Then ' This is unexpected.. Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If 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>" Response.Write "<pre>" & Server.HTMLEncode( "Expired: " & cert.Expired) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Revoked: " & cert.Revoked) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Signature Verified: " & cert.SignatureVerified) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Trusted Root: " & cert.TrustedRoot) & "</pre>" ' Sample output: ' Distinguished Name: C=US, ST=California, O=Intel Corporation, CN=*.intel.com ' Common Name: *.intel.com ' Issuer Distinguished Name: C=GB, ST=Greater Manchester, L=Salford, O=Sectigo Limited, CN=Sectigo RSA Organization Validation Secure Server CA ' Issuer Common Name: Sectigo RSA Organization Validation Secure Server CA ' Expired: False ' Revoked: False ' Signature Verified: True ' Trusted Root: True %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.