B4X

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 B4X Downloads

Download Chilkat for B4X

B4X

Dim success As Boolean = 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 ChilkatMailMan
mailman.Initialize("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 ChilkatBinData
bdPfx.Initialize
success = bdPfx.LoadFile("qa_data/certs/decryption.pfx")
If success = False Then
    Log(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
    Log(mailman.LastErrorText)
    Return
End If


'  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
Dim email As ChilkatEmail
email.Initialize
success = mailman.FetchOne(False, 0, 1, email)
If success = False Then
    Log(mailman.LastErrorText)
    Return
End If


Log("Decrypted = " & 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.