(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkCert::ckLoadFromFile(cert,"qa_data/certs/testIcpBrasil.cer")
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; If the cert's Subject Alternative Name contains multiple values, each specified by an OID,
    ; then the Rfc822Name property returns XML.
    subjectAltNameXml.s = CkCert::ckRfc822Name(cert)

    Debug subjectAltNameXml

    ; 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.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(xml,subjectAltNameXml)

    oid.s
    name.s

    i.i = 0
    count_i.i = CkXml::ckNumChildrenHavingTag(xml,"name")
    While i < count_i
        CkXml::setCkI(xml, i)
        oid = CkXml::ckChilkatPath(xml,"name[i]|(oid)")
        name = CkXml::ckGetChildContent(xml,"name[i]")
        Debug oid + ": " + name
        i = i + 1
    Wend


    CkCert::ckDispose(cert)
    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure