(Xojo Plugin) Subject Alternative Name

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim cert As New Chilkat.Cert

Dim success As Boolean
success = cert.LoadFromFile("qa_data/certs/testIcpBrasil.cer")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

Dim subjectAltNameXml As String
subjectAltNameXml = cert.SubjectAlternativeName

System.DebugLog(subjectAltNameXml)

// 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:

Dim xml As New Chilkat.Xml

success = xml.LoadXml(subjectAltNameXml)

Dim oid As String
Dim name As String

Dim i As Int32
i = 0
Dim count_i As Int32
count_i = xml.NumChildrenHavingTag("name")
While i < count_i
    xml.I = i
    oid = xml.ChilkatPath("name[i]|(oid)")
    name = xml.GetChildContent("name[i]")
    i = i + 1
Wend
Dim rfc822Name As String
rfc822Name = xml.GetChildContent("rfc822Name")