Visual FoxPro

Decrypt S/MIME using Added Credential Sources

Loads a CMS/PKCS #7 encrypted S/MIME message and decrypts it back to the original MIME content.

The recipient's certificate and private key are supplied from a PFX added with AddPfxSourceFile, and Decrypt automatically selects the matching private key based on the CMS recipient information.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. Decrypt requires access to the recipient's private key. Chilkat matches the encrypted message's recipient identifiers against the certificates and keys made available through sources such as AddPfxSourceFile, AddDecryptCert, or a certificate vault.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMime
LOCAL lcPfxPassword
LOCAL lcBody

lnSuccess = 0

loMime = CreateObject('Chilkat.Mime')
lnSuccess = loMime.LoadMimeFile("qa_data/encrypted.eml")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

*  Load the recipient's certificate and private key (from a PFX) so decryption can find them.  The
*  PFX password should come from a secure source rather than being hard-coded.
lcPfxPassword = "myPfxPassword"
lnSuccess = loMime.AddPfxSourceFile("qa_data/recipient.pfx",lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

*  Decrypt.  Chilkat identifies the correct recipient from the CMS recipient info and uses the
*  matching private key from the added sources.
lnSuccess = loMime.Decrypt()
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

lcBody = loMime.GetBodyDecoded()
IF (loMime.LastMethodSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

? lcBody

RELEASE loMime