PKCS7 Decrypt MIME

Loads a PKCS7 encrypted MIME file and decrypts.

Download Chilkat MIME ActiveX

LOCAL loMime
LOCAL lnSuccess
LOCAL lcPfxPassword

loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    QUIT
ENDIF

*  Load the MIME
lnSuccess = loMime.LoadMimeFile("encrypted.mim")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    QUIT
ENDIF

*  Decrypt...
lnSuccess = loMime.Decrypt()
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    QUIT
ENDIF

*  Display the decrypted MIME:
? loMime.GetMime()

*  How is it possible to magically decrypt with no information?
*  Answer: It is possible to decrypt if the certificate with private key
*  needed for decryption was previously installed onto the
*  Windows computer.  PKCS7 encrypted (enveloped) data always
*  includes information about the certificate required for
*  decryption.  Chilkat uses it to automatically search the
*  Windows registry-based certificate stores to find the
*  certificate.

*  If the certificate required for decryption was not installed, but
*  you have a PFX file containing the cert + private key,
*  then it may be used like this:

*  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.

lcPfxPassword = "myPassword"
lnSuccess = loMime.AddPfxSourceFile("myCertAndPrivateKey.pfx",lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    QUIT
ENDIF

*  Now call Decrypt, and it will search the PFX sources
*  previously added...