Visual FoxPro

Subject Alternative Name

See more Certificates Examples

Demonstrates the usage of the SubjectAlternativeName property to get the certificate SAN (subject alternative name) as XML. Visual FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL lcSubjectAltNameXml
LOCAL loXml
LOCAL lcOid
LOCAL lcName
LOCAL i
LOCAL lnCount_i
LOCAL lcRfc822Name

lnSuccess = 0

* Note: Not all certificates contain a Subject Alternative Name.
* If it does not, the SubjectAlternativeName property will contain the empty string.

loCert = CreateObject('Chilkat.Cert')

lnSuccess = loCert.LoadFromFile("qa_data/certs/testIcpBrasil.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

lcSubjectAltNameXml = loCert.SubjectAlternativeName

? lcSubjectAltNameXml

* Here's a sample of the subjectAltNameXml:

* <?xml version="1.0" encoding="utf-8"?>
* <SubjectAltName>
*     <name type="oid" oid="2.16.76.1.3.4">...</name>
*     <name type="oid" oid="2.16.76.1.3.2">...</name>
*     <name type="oid" oid="2.16.76.1.3.3">...</name>
*     <name type="oid" oid="2.16.76.1.3.7">...</name>
*     <rfc822Name>...</rfc822Name>
* </SubjectAltName>

* The XML can be parsed like this:

loXml = CreateObject('Chilkat.Xml')

loXml.LoadXml(lcSubjectAltNameXml)

i = 0
lnCount_i = loXml.NumChildrenHavingTag("name")
DO WHILE i < lnCount_i
    loXml.I = i
    lcOid = loXml.ChilkatPath("name[i]|(oid)")
    lcName = loXml.GetChildContent("name[i]")
    i = i + 1
ENDDO
lcRfc822Name = loXml.GetChildContent("rfc822Name")

RELEASE loCert
RELEASE loXml