(Perl) Load Base64-encoded X.509 Certificate (.cer)

Loads a digital certificate from a base64 encoded DER X.509 Certificate (.cer, .crt) and fetches information about the cert.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$cert = chilkat::CkCert->new();

#  LoadFromFile will load virtually any certificate format file.
#  It will auto-recognize the format and load appropiately.
#  A base64-encoded DER X.509 certificate file
#  contains the binary DER in base64 encoded form.
#  Therefore, it is a text file that will begin like this:
#  -----BEGIN CERTIFICATE-----
#  MIIFbjCCBFagAwIBAgIGdDPNv/L0MA0GCSqGSIb3DQEBBQUAMIHKMQswCQYDVQQG
#  EwJVUzEQMA4GA1UECBMHQXJpem9uYTETMBEGA1UEBxMKU2NvdHRzZGFsZTEaMBgG
#  ...

$success = $cert->LoadFromFile("/Users/chilkat/testData/cer/chilkat_base64.cer");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

#  DN = "Distinguished Name"
print "SubjectDN:" . $cert->subjectDN() . "\r\n";

print "Common Name:" . $cert->subjectCN() . "\r\n";
print "Issuer Common Name:" . $cert->issuerCN() . "\r\n";

print "Serial Number:" . $cert->serialNumber() . "\r\n";