(Visual FoxPro) Decrypt a .p7m File (using a PFX)

Visual FoxPro sample code showing how to decrypt a .p7m using a .p12 / .pfx certificate w/ private key.

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

LOCAL loCrypt
LOCAL lcPfxPath
LOCAL lcPfxPassword
LOCAL lnSuccess
LOCAL lcInPath
LOCAL lcOutPath

* 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')

* Use a digital certificate and private key from a PFX file (.pfx or .p12).
lcPfxPath = "myCertAndKey.pfx"
lcPfxPassword = "test123"

lnSuccess = loCrypt.AddPfxSourceFile(lcPfxPath,lcPfxPassword)
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    CANCEL
ENDIF

* Set the  outPath to whatever is appropriate.
* If you are decrypting a PDF, your output might be "out.pdf"...
lcInPath = "smime.p7m"
lcOutPath = "original.txt"

* Indicate that we're doing public key decryption (i.e. PKCS7)
loCrypt.CryptAlgorithm = "pki"

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

? "Success."

RELEASE loCrypt