(Lianja) Decrypt a .p7m File (using a PFX)

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loCrypt = createobject("CkCrypt2")

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

llSuccess = loCrypt.AddPfxSourceFile(lcPfxPath,lcPfxPassword)
if (llSuccess <> .T.) then
    ? loCrypt.LastErrorText
    release loCrypt
    return
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"

llSuccess = loCrypt.CkDecryptFile(lcInPath,lcOutPath)
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loCrypt
    return
endif

? "Success."


release loCrypt