Visual FoxPro

Add a PFX Source (BinData) for S/MIME Decryption

Demonstrates the Chilkat Imap.AddPfxSourceBd method, which adds PFX data held in a BinData as a source of certificates and private keys for S/MIME processing. The first argument is the BinData and the second is the PFX password. Call it once for each additional source.

Note: The certificate path is relative to the application's current working directory. Supply the path to your own certificate file.

Background: When downloading encrypted (S/MIME) email, Chilkat needs the recipient's private key to decrypt it. Adding one or more PFX sources gives Chilkat a pool of keys to search; the matching key is used automatically as messages are fetched. The BinData form is handy when the PFX comes from memory — a database blob or a downloaded buffer — rather than a file on disk. On Windows and macOS the system certificate stores are also searched automatically.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loImap
LOCAL loBdPfx
LOCAL lcPfxPassword

lnSuccess = 0

*  Demonstrates the Imap.AddPfxSourceBd method, which adds PFX data (from a BinData) as a
*  source of certificates and private keys for S/MIME decryption.  The 1st argument is the
*  BinData containing the PFX, and the 2nd is the PFX password.

loImap = CreateObject('Chilkat.Imap')

loImap.Ssl = 1
loImap.Port = 993

lnSuccess = loImap.Connect("imap.example.com")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

lnSuccess = loImap.Login("user@example.com","myPassword")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

*  Load the PFX data into a BinData.
loBdPfx = CreateObject('Chilkat.BinData')
lnSuccess = loBdPfx.LoadFile("qa_data/smime.pfx")
IF (lnSuccess = 0) THEN
    ? loBdPfx.LastErrorText
    RELEASE loImap
    RELEASE loBdPfx
    CANCEL
ENDIF

*  The PFX password is not hard-coded in source.  Insert code here to obtain it from an
*  interactive prompt, environment variable, or a secrets vault.

*  Add the PFX as a source for S/MIME certificates and private keys.  Call once per source.
lnSuccess = loImap.AddPfxSourceBd(loBdPfx,lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loBdPfx
    CANCEL
ENDIF

*  Messages downloaded after this are automatically decrypted when a matching key is found.

lnSuccess = loImap.Disconnect()
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loBdPfx
    CANCEL
ENDIF

RELEASE loImap
RELEASE loBdPfx