(Perl) Iterate over Certificates on Connected Smart Cards and USB Tokens

See more Cert Store Examples

Note: Requires Chilkat v10.1.2 or later.

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

use chilkat();

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

# Detects connected smart cards and USB tokens
# and loads the certificate store object with the certificates found.
# Works on Windows, MacOS, iOS, and Linux.
# Note: If something is not detected, contact info@chilkatsoft.com
# for help or for workarounds.
$argNotUsed = "";
$success = $certStore->OpenSmartcard($argNotUsed);
if ($success == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

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

$numCerts = $certStore->get_NumCertificates();
$i = 0;

while ($i < $numCerts) {
    # Load the cert object with the Nth certificate found in the connected HSMs
    $certStore->GetCert($i,$cert);
    print $i . ": " . $cert->subjectCN() . "\r\n";
    $i = $i + 1;
}