(Perl) Find Certificate for Email Address in Current-User Certificate Store (Windows-Only)

This is a Windows-only example to find a certificate for a given email address in the current-user certificate store (located in the Windows Registry).

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

use chilkat();

# This is a Windows-only example because it lists the certificates
# stored in the Windows Current User Certificate Store located in the
# Windows Registry.

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

$readOnly = 1;
$success = $certStore->OpenCurrentUserStore($readOnly);
if ($success == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

$emailAddr = 'support@chilkatsoft.com';
# cert is a Cert
$cert = $certStore->FindCertBySubjectE($emailAddr);
if ($certStore->get_LastMethodSuccess() != 1) {
    print "No certificate found for " . $emailAddr . "\r\n";
    exit;
}

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

# It should be case-insensitive, however it was found not to be.
# The case-insensitive search is fixed starting in Chilkat v9.5.0.65.
$emailAddr = 'SUPPORT@chilkatsoft.com';
# cert is a Cert
$cert = $certStore->FindCertBySubjectE($emailAddr);
if ($certStore->get_LastMethodSuccess() != 1) {
    print "No certificate found for " . $emailAddr . "\r\n";
    exit;
}

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