PureBasic

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

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 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.

    mailman.i = CkMailMan::ckCreate()
    If mailman.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  Configure the POP3 server connection.
    CkMailMan::setCkMailHost(mailman, "pop.example.com")
    CkMailMan::setCkMailPort(mailman, 995)
    CkMailMan::setCkPopSsl(mailman, 1)
    CkMailMan::setCkPopUsername(mailman, "user@example.com")
    CkMailMan::setCkPopPassword(mailman, "myPassword")

    ;  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
    bdPfx.i = CkBinData::ckCreate()
    If bdPfx.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkBinData::ckLoadFile(bdPfx,"qa_data/certs/decryption.pfx")
    If success = 0
        Debug CkBinData::ckLastErrorText(bdPfx)
        CkMailMan::ckDispose(mailman)
        CkBinData::ckDispose(bdPfx)
        ProcedureReturn
    EndIf

    ;  Add the PFX as a source of certificates and private keys.
    success = CkMailMan::ckAddPfxSourceBd(mailman,bdPfx,"pfx_password")
    If success = 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkBinData::ckDispose(bdPfx)
        ProcedureReturn
    EndIf

    ;  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkMailMan::ckFetchOne(mailman,0,0,1,email)
    If success = 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkBinData::ckDispose(bdPfx)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    Debug "Decrypted = " + Str(CkEmail::ckDecrypted(email))

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


    CkMailMan::ckDispose(mailman)
    CkBinData::ckDispose(bdPfx)
    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure