(DataFlex) Example: Crypt2.LastSignerCert method

Demonstrates how to call the LastSignerCert method.

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sP7m_path
    String sOut_path
    Boolean iSuccess
    Integer iNumSigners
    Integer i
    Variant vCert
    Handle hoCert
    String sTemp1

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

    Move "qa_data/p7m/Firma.docx.p7m" To sP7m_path
    Move "qa_output/Firma.docx" To sOut_path

    Get ComVerifyP7M Of hoCrypt sP7m_path sOut_path To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCrypt To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine the certificate(s) used for signing.
    Get ComNumSignerCerts Of hoCrypt To iNumSigners
    Move 0 To i

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

    While (i < iNumSigners)
        Get pvComObject of hoCert to vCert
        Get ComLastSignerCert Of hoCrypt i vCert To iSuccess
        Get ComSubjectDN Of hoCert To sTemp1
        Showln "Signer: " sTemp1
        Move (i + 1) To i
    Loop



End_Procedure