Classic ASP
Classic ASP
Find Certificate by Email Address
See more Cert Store Examples
Demonstrates how to find a certificate having the specified email address either within the cert's subject email, or the RFC822 name.In an X.509 certificate, an email address can typically be located in two places:
- RFC822 Name (Subject Alternative Name extension) -
- The certificate may include an email address in the Subject Alternative Name (SAN) extension under the RFC822 Name field. This is a modern and preferred method because it allows for flexibility and alignment with security best practices.
- To find it, Chilkat inspects the SAN extension in the certificate details.
- Subject (Common Name or Email Address attribute) -
- Older certificates may store the email address directly in the Subject field, typically under the Email Address attribute ("emailAddress") or, less commonly, the Common Name (CN).
- This method is less preferred in modern standards but can still be encountered in legacy implementations. Chilkat also searches here for the email address.
Note: Requires Chilkat v10.1.2 or later.
Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
set certStore = Server.CreateObject("Chilkat.CertStore")
' This opens the Current User certificate store on Windows,
' On MacOS and iOS it opens the default Keychain.
readOnly = 0
success = certStore.OpenCurrentUserStore(readOnly)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>"
Response.End
End If
' Find the certificate having the specified email address in either the RFC822 Name or in the Subject.
set json = Server.CreateObject("Chilkat.JsonObject")
email_address = "joe@example.com"
success = json.UpdateString("email",email_address)
set cert = Server.CreateObject("Chilkat.Cert")
success = certStore.FindCert(json,cert)
If (success = 1) Then
' Show the full distinguished name of the certificate.
Response.Write "<pre>" & Server.HTMLEncode( "Found: " & cert.SubjectDN) & "</pre>"
Else
Response.Write "<pre>" & Server.HTMLEncode( "Not found.") & "</pre>"
End If
%>
</body>
</html>