(PureBasic) Extract XML File from a .p7m (e.g. FATTURA ELETTRONICA, ITALY)

PureBasic example to extract the original file from a .p7m (Signed-Data PKCS7 Format) The .p7m contains the signed contents of the original file.

One use for this example is to extract the XML file from a Fattura Elettronica .p7m signature.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    outputFile.s = "testData/xml/original.xml"
    inFile.s = "testData/p7m/fattura_signature.p7m"

    ; Verify the signature and extract the XML file.
    success.i = CkCrypt2::ckVerifyP7M(crypt,inFile,outputFile)
    If success = 0
        Debug CkCrypt2::ckLastErrorText(crypt)
        CkCrypt2::ckDispose(crypt)
        ProcedureReturn
    EndIf

    Debug "Success!"


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure