(Perl) Find a Certificate by it's SHA-1 Thumbprint

Finds 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.

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

use chilkat();

$certStore = chilkat::CkCertStore->new();

$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) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Find the certificate with the desired thumbprint
# cert is a Cert
$cert = $certStore->FindCertBySha1Thumbprint($thumbprint);
if ($certStore->get_LastMethodSuccess() != 1) {
    print "Failed to find the certificate." . "\r\n";
    exit;
}

print "Found: " . $cert->subjectCN() . "\r\n";

# -------------------------------------------------------------------------------------
# Alternatively, one could load a certificate store object with certs from a PEM file,
# and do the same thing..
$certStorePem = chilkat::CkCertStore->new();

$success = $certStorePem->LoadPemFile("pemFiles/certificates.pem");
if ($success != 1) {
    print $certStorePem->lastErrorText() . "\r\n";
    exit;
}

# cert is a Cert
$cert = $certStorePem->FindCertBySha1Thumbprint($thumbprint);
if ($certStorePem->get_LastMethodSuccess() != 1) {
    print "Failed to find the certificate." . "\r\n";
    exit;
}

print "Found: " . $cert->subjectCN() . "\r\n";