Perl

Download and Trust the DigiCert Global Root CA

See more Certificates Examples

Demonstrates how to download a root certificate and trust it. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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

my $certUrl = 'https://dl.cacerts.digicert.com/DigiCertGlobalRootG3.crt';

my $http = Chilkat2::Http->new;
my $bdCert = Chilkat2::BinData->new;
my $success = $http->DownloadBd($certUrl, $bdCert);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

# Load it into a Chilkat cert object.
my $cert = Chilkat2::Cert->new;
$success = $cert->LoadFromBd($bdCert);
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

# Examine the common name,serial, and thumbprint:
print 'CN: ', $cert->SubjectCN, "\n";
print 'Serial: ', $cert->SerialNumber, "\n";
print 'Thumbprint: ', $cert->Sha1Thumbprint, "\n";

# 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.
my $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:
my $troots = Chilkat2::TrustedRoots->new;

$troots->AddCert($cert);
$troots->Activate();

print $cert->SubjectCN, " is now trusted for this run of this application.\n";