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

See more Cert Store Examples

Note: This example requires Chilkat v10.1.2 or later.

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

use chilkat();

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

$thumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2";

# This opens the Current User certificate store on Windows,
# On MacOS and iOS it opens the default Keychain.
$bReadOnly = 1;
$success = $certStore->OpenCurrentUserStore($bReadOnly);
if ($success == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Find the certificate having a specific SHA1 thumbprint.
$json = chilkat::CkJsonObject->new();
$json->UpdateString("thumbprint",$thumbprint);

$cert = chilkat::CkCert->new();
$success = $certStore->FindCert($json,$cert);
if ($success == 0) {
    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 == 0) {
    print $certStorePem->lastErrorText() . "\r\n";
    exit;
}

$success = $certStore->FindCert($json,$cert);
if ($success == 0) {
    print "Failed to find the certificate." . "\r\n";
    exit;
}

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