Visual FoxPro

Set the Decryption Certificate for an Email

Demonstrates the Chilkat Email.SetDecryptCert method, which explicitly provides a certificate (with access to its private key) for decrypting a received encrypted email. Set the certificate before loading the encrypted message so Chilkat can decrypt it automatically. This example loads the certificate from a PFX, sets it, and then loads an encrypted email.

Background: Decrypting S/MIME email requires the recipient's private key. On Windows and macOS, Chilkat can find an installed certificate automatically, but when the key lives in a standalone PFX file you provide it explicitly with SetDecryptCert. A PFX (PKCS#12) bundles the certificate and its private key in one password-protected file. If the certificate and key are in separate files, use SetDecryptCert2 instead.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loCert

lnSuccess = 0

*  Demonstrates the SetDecryptCert method, which explicitly provides a certificate (with
*  access to its private key) for decrypting a received encrypted email.  Set the cert
*  before loading the encrypted email so it can be decrypted automatically.

loEmail = CreateObject('Chilkat.Email')

*  Load a certificate together with its private key from a PFX file.
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/certs/decryption.pfx","pfx_password")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

*  Provide the certificate to use for decryption.
lnSuccess = loEmail.SetDecryptCert(loCert)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

*  Load the encrypted email; Chilkat decrypts it using the certificate.
lnSuccess = loEmail.LoadEml("qa_data/eml/encrypted.eml")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

? "ReceivedEncrypted = " + STR(loEmail.ReceivedEncrypted)
? "Decrypted = " + STR(loEmail.Decrypted)

*  Note: Paths such as "qa_data/..." are relative local filesystem paths,
*  relative to the current working directory of the running application.

RELEASE loEmail
RELEASE loCert