Xbase++

PKCS7 Decrypt MIME

See more MIME Examples

Loads a PKCS7 encrypted MIME file and decrypts. The cert and private key used for decryption is loaded from a PFX file. Xbase++

LOCAL nSuccess
LOCAL oMime
LOCAL cPfxPassword

nSuccess := 0

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

oMime := CreateObject("Chilkat.Mime")

//  Load the MIME
nSuccess := oMime:LoadMimeFile("encryptedMime.txt")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    RETURN
ENDIF

//  The AddPfxSourceFile and/or AddPfxSourceData
//  methods may be called one or more times (one per PFX)
//  to add sources from which the MIME component will
//  search for certificates and private keys when decrypting.
cPfxPassword := "myPassword"
nSuccess := oMime:AddPfxSourceFile("myCertAndPrivateKey.pfx", cPfxPassword)
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    RETURN
ENDIF

//  Decrypt...
nSuccess := oMime:Decrypt()
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    RETURN
ENDIF

//  Display the decrypted MIME:
? oMime:GetMime()

oMime:destroy()