(Visual FoxPro) Extract a File from a .p7m (PKCS7 Signed-Data)

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. It can be verified and restored by calling VerifyP7M.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcOutFile
LOCAL lcInFile

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    QUIT
ENDIF

lcOutFile = "/Users/chilkat/testData/pdf/sample.pdf"

lcInFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m"

*  Verify and restore the original file:
lnSuccess = loCrypt.VerifyP7M(lcInFile,lcOutFile)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    QUIT
ENDIF

=MESSAGEBOX("Success!")