(Xojo Plugin) Get Certificate Subject Part by Name or OID

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

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

Dim cert As New Chilkat.Cert

Dim success As Boolean
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)