Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oBdPfx
LOCAL oEmail

nSuccess := 0

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

oMailman := CreateObject("Chilkat.MailMan")

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

//  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
oBdPfx := CreateObject("Chilkat.BinData")
nSuccess := oBdPfx:LoadFile("qa_data/certs/decryption.pfx")
IF (nSuccess == 0)
    ? oBdPfx:LastErrorText
    oMailman:destroy()
    oBdPfx:destroy()
    RETURN
ENDIF

//  Add the PFX as a source of certificates and private keys.
nSuccess := oMailman:AddPfxSourceBd(oBdPfx, "pfx_password")
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oBdPfx:destroy()
    RETURN
ENDIF

//  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
oEmail := CreateObject("Chilkat.Email")
nSuccess := oMailman:FetchOne(0, 0, 1, oEmail)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oBdPfx:destroy()
    oEmail:destroy()
    RETURN
ENDIF

? "Decrypted = " + Str(oEmail: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.

oMailman:destroy()
oBdPfx:destroy()
oEmail:destroy()