Perl Requires Chilkat v10.0.0+

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). Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# On MacOS or iOS, this searches both the Default keychains and System keychains for the certificate
# having the specified CN.
my $cert = Chilkat2::Cert->new;
my $success = $cert->LoadByCommonName('Certum CA');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

print $cert->SubjectDN, "\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.
my $cert2 = Chilkat2::Cert->new;
$success = $cert2->LoadByCommonName('Chilkat Software, Inc.');
if (!$success) {
    print $cert2->LastErrorText, "\n";
    exit;
}

print $cert2->SubjectDN, "\n";
my $hasPrivKey = $cert2->HasPrivateKey();
print 'Has private key: ', ($hasPrivKey ? 1 : 0), "\n";

print "Success.\n";