Visual FoxPro

Decrypt a .p7m File (using a PFX)

See more Encryption Examples

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

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

lnSuccess = 0

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

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