B4X

Get Certificate User Principal Name (UPN)

See more Certificates Examples

Demonstrates how to get a certificate's UPN from the SAN (Subject Alternative Name). Most certificates do not have a UPN. This example only applies to those certificates that have a User Principal Name.

Note: This example requires Chilkat v9.5.0.90 or greater due to fixes made in getting the UPN from the SAN.

B4X

Dim success As Boolean = False

Dim cert As ChilkatCert
cert.Initialize("cert")

success = cert.LoadFromFile("qa_data/certs/sample.cer")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


Dim xml As ChilkatXml
xml.Initialize
xml.LoadXml(cert.SubjectAlternativeName)
Log(xml.GetXml)

'  A certificate with a User Principal Name in the SAN might have this:

'  <SubjectAltName>
'      <rfc822Name>joe@example.com</rfc822Name>
'      <name type="oid" oid="1.3.6.1.4.1.311.20.2.3">joe@example.com</name>
'  </SubjectAltName>

'  The OID 1.3.6.1.4.1.311.20.2.3 is for the User Principal Name.
Dim upn As String = xml.ChilkatPath("/A/name,oid,1.3.6.1.4.1.311.20.2.3|*")
If xml.LastMethodSuccess = False Then
    Log("No user principle name.")
Else
    Log("User Principle Name = " & upn)
End If