(DataFlex) Get Text Certificate Extensions by OID

See more Certificates Examples

Demonstrates how to get text certificate extensions by OID. In this example, we have a certificate with the following OID extensions: 1.3.6.1.4.1.49952.5.8.5, 1.3.6.1.4.1.49952.5.8.6, 1.3.6.1.4.1.49952.5.8.7.

Most certificate extensions have values that are ASN.1 (binary). For the majority of cases, an application should call GetExtensionAsXml. For extensions known to have text values (such as the OIDs listed above), an application can instead call GetExtensionAsText.

The GetExtensionAsText method is added in Chilkat v9.5.0.89.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Boolean iSuccess
    String sOid
    String sStr
    String sTemp1
    Boolean bTemp1

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

    Get ComLoadFromFile Of hoCert "qa_data/certs/PUH9.cer" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move "1.3.6.1.4.1.49952.5.8.5" To sOid
    Get ComGetExtensionAsText Of hoCert sOid To sStr
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = True) Begin
        Showln sOid ": " sStr
    End

    Move "1.3.6.1.4.1.49952.5.8.6" To sOid
    Get ComGetExtensionAsText Of hoCert sOid To sStr
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = True) Begin
        Showln sOid ": " sStr
    End

    Move "1.3.6.1.4.1.49952.5.8.7" To sOid
    Get ComGetExtensionAsText Of hoCert sOid To sStr
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = True) Begin
        Showln sOid ": " sStr
    End



End_Procedure