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

Visual FoxPro example to extract the original XML from a .p7m (Signed-Data PKCS7 Format) provided as a byte array.

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

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

LOCAL loFac
LOCAL loP7mBytes
LOCAL loCrypt
LOCAL lcOriginalXml

* 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.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')

loP7mBytes = loFac.ReadEntireFile("testData/p7m/fattura_signature.p7m")
IF (loFac.LastMethodSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loFac
    CANCEL
ENDIF

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

lcOriginalXml = loCrypt.OpaqueVerifyString(loP7mBytes)
IF (loCrypt.LastMethodSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loFac
    RELEASE loCrypt
    CANCEL
ENDIF

? "Original XML:"
? lcOriginalXml

? "Success!"

RELEASE loFac
RELEASE loCrypt