(Visual FoxPro) Extract PKCS7 from MIME and Decrypt

Extracts the base64-encoded PKCS7 body of a MIME message to a file, and then decrypts using Chilkat Crypt2.

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

LOCAL loMime
LOCAL lnSuccess
LOCAL loCrypt
LOCAL lcInPath
LOCAL lcOutPath

* This example assumes 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.Mime')
loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.LoadMimeFile("c:/aaworkarea/EmailInBytes.txt")
IF (lnSuccess <> 1) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

lnSuccess = loMime.SaveBody("c:/aaworkarea/smime.p7m")
IF (lnSuccess <> 1) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

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

lnSuccess = loCrypt.AddPfxSourceFile("c:/aaworkarea/my.pfx","pfxPassword")
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loMime
    RELEASE loCrypt
    CANCEL
ENDIF

* Indicate the public-key (PKCS7) encryption/decryption should be used:
loCrypt.CryptAlgorithm = "pki"

lcInPath = "c:/aaworkarea/smime.p7m"
lcOutPath = "c:/aaworkarea/decrypted.dat"

lnSuccess = loCrypt.CkDecryptFile(lcInPath,lcOutPath)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loMime
    RELEASE loCrypt
    CANCEL
ENDIF

? "Success."

RELEASE loMime
RELEASE loCrypt