Perl

Apple Keychain - Get Certificate by Common Name

See more Apple Keychain Examples

Retrieves the certificate from the Apple Keychain that matches the specified common name (CN).

Note: This example requires Chilkat v10.0.0 or greater.

Perl

use chilkat();

$success = 0;

# On MacOS or iOS, this searches both the Default keychains and System keychains for the certificate
# having the specified CN.
$cert = chilkat::CkCert->new();
$success = $cert->LoadByCommonName("Certum CA");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

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

# Note: In the Apple Keychain, a certificate with its private key represents an identity because it combines the certificate and its private key.
# When Chilkat loads a certificate from the Apple Keychain, it also gets the associated private key.
# You can simply use the cert in other places in Chilkat where a cert w/ private key is required.
$cert2 = chilkat::CkCert->new();
$success = $cert2->LoadByCommonName("Chilkat Software, Inc.");
if ($success == 0) {
    print $cert2->lastErrorText() . "\r\n";
    exit;
}

print $cert2->subjectDN() . "\r\n";
$hasPrivKey = $cert2->HasPrivateKey();
print "Has private key: " . $hasPrivKey . "\r\n";

print "Success." . "\r\n";