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

Visual FoxPro 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lcOutputFile
LOCAL lcInFile
LOCAL lnSuccess

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

lcOutputFile = "testData/xml/original.xml"
lcInFile = "testData/p7m/fattura_signature.p7m"

* Verify the signature and extract the XML file.
lnSuccess = loCrypt.VerifyP7M(lcInFile,lcOutputFile)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    CANCEL
ENDIF

? "Success!"

RELEASE loCrypt