Xojo Plugin

Add a PFX Source to MailMan from BinData

Demonstrates the Chilkat MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store to the MailMan object's internal list of sources used for locating certificates and private keys. The first argument is a BinData containing the PFX bytes and the second is the PFX password. This example loads a PFX into a BinData, registers it, and fetches a message Chilkat can decrypt.

Background: This is the in-memory (BinData) counterpart to AddPfxSourceFile. It is the right choice when the PFX bytes come from somewhere other than a file — a database, a secrets manager, or an HTTPS download — letting you supply the certificate and private key without first writing sensitive key material to disk.

Chilkat Xojo Plugin Downloads

Download Chilkat for Xojo Plugin

Xojo Plugin

Dim success As Boolean
success = False

//  Demonstrates the MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store
//  to the MailMan object's internal list of sources used for locating certificates and
//  private keys.  The 1st argument is a BinData containing the PFX bytes and the 2nd is the
//  PFX password.

Dim mailman As New Chilkat.MailMan

//  Configure the POP3 server connection.
mailman.MailHost = "pop.example.com"
mailman.MailPort = 995
mailman.PopSsl = True
mailman.PopUsername = "user@example.com"
mailman.PopPassword = "myPassword"

//  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
Dim bdPfx As New Chilkat.BinData
success = bdPfx.LoadFile("qa_data/certs/decryption.pfx")
If (success = False) Then
    System.DebugLog(bdPfx.LastErrorText)
    Return
End If

//  Add the PFX as a source of certificates and private keys.
success = mailman.AddPfxSourceBd(bdPfx,"pfx_password")
If (success = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

//  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
Dim email As New Chilkat.Email
success = mailman.FetchOne(False,0,1,email)
If (success = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

System.DebugLog("Decrypted = " + Str(email.Decrypted))

//  Note: The path "qa_data/certs/decryption.pfx" is a relative local filesystem path,
//  relative to the current working directory of the running application.

//  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
//  connects and authenticates -- using the property settings above -- whenever a server
//  operation requires it.  Calling the explicit connect/authenticate methods can still be
//  helpful to determine whether a failure occurs while connecting or while authenticating.