(Perl) Subject Alternative Name for ICP Brasil Certs

Demonstrates how to access the multiple names contained in the Subject Alternative Name of a certificate. This example is for an ICP Brasil certificate.

For more information, see http://oidref.com/2.16.76.1.3

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

use chilkat();

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

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

# If the cert's Subject Alternative Name contains multiple values, each specified by an OID,
# then the Rfc822Name property returns XML.
$subjectAltNameXml = $cert->rfc822Name();

print $subjectAltNameXml . "\r\n";

# Here's a sample of the subjectAltNameXml:

# <SubjectAltName>
#     <name type="oid" oid="2.16.76.1.3.4">290999653223955019700000000000000000000150424SRJUXPTS</name>
#     <name type="oid" oid="2.16.76.1.3.2">JOAO SILVA</name>
#     <name type="oid" oid="2.16.76.1.3.3">02408939000115</name>
#     <name type="oid" oid="2.16.76.1.3.7">000000000000</name>
# </SubjectAltName>

# The XML can be parsed like this:

$xml = chilkat::CkXml->new();
$xml->LoadXml($subjectAltNameXml);

$i = 0;
$count_i = $xml->NumChildrenHavingTag("name");
while ($i < $count_i) {
    $xml->put_I($i);
    $oid = $xml->chilkatPath("name[i]|(oid)");
    $name = $xml->getChildContent("name[i]");
    print $oid . ": " . $name . "\r\n";
    $i = $i + 1;
}