Xojo Plugin

Subject Alternative Name

See more Certificates Examples

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

Dim success As Boolean
success = False

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

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")