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

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Use a digital certificate and private key from a PFX file (.pfx or .p12).
    pfxPath.s = "myCertAndKey.pfx"
    pfxPassword.s = "test123"

    success.i = CkCrypt2::ckAddPfxSourceFile(crypt,pfxPath,pfxPassword)
    If success <> 1
        Debug CkCrypt2::ckLastErrorText(crypt)
        CkCrypt2::ckDispose(crypt)
        ProcedureReturn
    EndIf

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

    ; Indicate that we're doing public key decryption (i.e. PKCS7)
    CkCrypt2::setCkCryptAlgorithm(crypt, "pki")

    success = CkCrypt2::ckCkDecryptFile(crypt,inPath,outPath)
    If success = 0
        Debug CkCrypt2::ckLastErrorText(crypt)
        CkCrypt2::ckDispose(crypt)
        ProcedureReturn
    EndIf

    Debug "Success."


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure