(DataFlex) Get Certificate Subject Part by Name or OID

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Boolean iSuccess
    String sSerialNum
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    Get ComLoadByCommonName Of hoCert "myCert" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.)
    Get ComGetSubjectPart Of hoCert "SERIALNUMBER" To sSerialNum
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = False) Begin
        Showln "No SERIALNUMBER part exists."
        Procedure_Return
    End

    Showln sSerialNum

    // 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"
    Get ComGetSubjectPart Of hoCert "2.5.4.5" To sSerialNum
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = False) Begin
        Showln "No SERIALNUMBER part exists."
        Procedure_Return
    End

    Showln sSerialNum


End_Procedure