Classic ASP
Download and Trust the DigiCert Global Root CA

Demonstrates how to download a root certificate and trust it.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  This requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  In this example, the URLs for the DigiCert root CA certs are available at this web page:
'  https://www.digicert.com/digicert-root-certificates.htm

'  This example downloads the "DigiCert Global Root G3"
'  Valid until: 15/Jan/2038
'  Serial #: 05:55:56:BC:F2:5E:A4:35:35:C3:A4:0F:D5:AB:45:72
'  Thumbprint: 7E04DE896A3E666D00E687D33FFAD93BE83D349E

certUrl = "https://dl.cacerts.digicert.com/DigiCertGlobalRootG3.crt"

set http = Server.CreateObject("Chilkat.Http")
set bdCert = Server.CreateObject("Chilkat.BinData")
success = http.DownloadBd(certUrl,bdCert)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

'  Load it into a Chilkat cert object.
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadFromBd(bdCert)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

'  Examine the common name,serial, and thumbprint:
Response.Write "<pre>" & Server.HTMLEncode( "CN: " & cert.SubjectCN) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Serial: " & cert.SerialNumber) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Thumbprint: " & cert.Sha1Thumbprint) & "</pre>"

'  Output from the above:
'  CN: DigiCert Global Root G3
'  Serial: 055556BCF25EA43535C3A40FD5AB4572
'  Thumbprint: 7E04DE896A3E666D00E687D33FFAD93BE83D349E

'  If desired, the certificate can be saved to a local file so it does not need
'  to be downloaded from the website every time.  
certPath = "qa_data/certs/DigiCertGlobalRootG3.crt"
success = bdCert.WriteFile(certPath)

'  To load the cert from a file...
success = cert.LoadFromFile(certPath)

'  Do the following to add the cert to the collection of trusted roots
'  for this application.  (Note:  The trust is not persisted.  Each time the
'  application runs, it should load the cert (from whatever source, whether it is
'  a file, a database,etc.) and do the following:
set troots = Server.CreateObject("Chilkat.TrustedRoots")

success = troots.AddCert(cert)
success = troots.Activate()

Response.Write "<pre>" & Server.HTMLEncode( cert.SubjectCN & " is now trusted for this run of this application.") & "</pre>"

%>
</body>
</html>