Xojo Plugin

Get Certificate Subject Part by Name or OID

Demonstrates the GetSubjectPart method where a name or OID can be passed. Xojo Plugin

Dim success As Boolean
success = False

Dim cert As New Chilkat.Cert

success = cert.LoadByCommonName("myCert")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// This example demonstrates getting the SERIALNUMBER part of the subject,
// if one such part exists in the cert's subject.
// Not too many certicates include the serial number in the Subject.
// (Chilean issued certificates for SII is one such case where the SERIALNUMBER part exists within the Subject.)
Dim serialNum As String
serialNum = cert.GetSubjectPart("SERIALNUMBER")
If (cert.LastMethodSuccess = False) Then
    System.DebugLog("No SERIALNUMBER part exists.")
    Return
End If

System.DebugLog(serialNum)

// We could also get the part by the OID.
// See https://oidref.com/2.5.4.5 for a list of OID's in the 2.5.4.* range..
// The OID for SERIALNUMBER is "2.5.4.5"
serialNum = cert.GetSubjectPart("2.5.4.5")
If (cert.LastMethodSuccess = False) Then
    System.DebugLog("No SERIALNUMBER part exists.")
    Return
End If

System.DebugLog(serialNum)