Xojo Plugin

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 Xojo Plugin Downloads

Download Chilkat for Xojo Plugin

Xojo Plugin

Dim success As Boolean
success = False

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

Dim imap As New Chilkat.Imap

imap.Ssl = True
imap.Port = 993

success = imap.Connect("imap.example.com")
If (success = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

success = imap.Login("user@example.com","myPassword")
If (success = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

//  Load the PFX data into a BinData.
Dim bdPfx As New Chilkat.BinData
success = bdPfx.LoadFile("qa_data/smime.pfx")
If (success = False) Then
    System.DebugLog(bdPfx.LastErrorText)
    Return
End If

//  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.
Dim pfxPassword As String

//  Add the PFX as a source for S/MIME certificates and private keys.  Call once per source.
success = imap.AddPfxSourceBd(bdPfx,pfxPassword)
If (success = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

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

success = imap.Disconnect()
If (success = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If