B4X

Get Certificate Subject Part by Name or OID

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

Dim success As Boolean = False

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

success = cert.LoadByCommonName("myCert")
If success = False Then
    Log(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 = cert.GetSubjectPart("SERIALNUMBER")
If cert.LastMethodSuccess = False Then
    Log("No SERIALNUMBER part exists.")
    Return
End If


Log(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
    Log("No SERIALNUMBER part exists.")
    Return
End If


Log(serialNum)