|
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) Find a Certificate by it's SHA-1 ThumbprintFinds a certificate by it's SHA-1 hex thumbprint. Parts of this example are specific to Windows because it searches the Windows Current User certificate store.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore") set certStore = Server.CreateObject("Chilkat.CertStore") thumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2" ' This part of the example is specific to Windows because it is opening the Windows Current-User certificate store. bReadOnly = 1 success = certStore.OpenCurrentUserStore(bReadOnly) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>" Response.End End If ' Find the certificate with the desired thumbprint ' cert is a Chilkat.Cert Set cert = certStore.FindCertBySha1Thumbprint(thumbprint) If (certStore.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to find the certificate.") & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Found: " & cert.SubjectCN) & "</pre>" ' ------------------------------------------------------------------------------------- ' Alternatively, one could load a certificate store object with certs from a PEM file, ' and do the same thing.. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore") set certStorePem = Server.CreateObject("Chilkat.CertStore") success = certStorePem.LoadPemFile("pemFiles/certificates.pem") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( certStorePem.LastErrorText) & "</pre>" Response.End End If ' cert is a Chilkat.Cert Set cert = certStorePem.FindCertBySha1Thumbprint(thumbprint) If (certStorePem.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to find the certificate.") & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Found: " & cert.SubjectCN) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.