(Perl) Get Certificate User Principal Name (UPN)

See more Certificates Examples

Demonstrates how to get a certificate's UPN from the SAN (Subject Alternative Name). Most certificates do not have a UPN. This example only applies to those certificates that have a User Principal Name.

Note: This example requires Chilkat v9.5.0.90 or greater due to fixes made in getting the UPN from the SAN.

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

use chilkat();

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

$success = $cert->LoadFromFile("qa_data/certs/sample.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$xml->LoadXml($cert->subjectAlternativeName());
print $xml->getXml() . "\r\n";

# A certificate with a User Principal Name in the SAN might have this:

# <SubjectAltName>
#     <rfc822Name>joe@example.com</rfc822Name>
#     <name type="oid" oid="1.3.6.1.4.1.311.20.2.3">joe@example.com</name>
# </SubjectAltName>

# The OID 1.3.6.1.4.1.311.20.2.3 is for the User Principal Name.
$upn = $xml->chilkatPath("/A/name,oid,1.3.6.1.4.1.311.20.2.3|*");
if ($xml->get_LastMethodSuccess() == 0) {
    print "No user principle name." . "\r\n";
}
else {
    print "User Principle Name = " . $upn . "\r\n";
}