PureBasic

Provide a Certificate Vault to MailMan

Demonstrates the Chilkat MailMan.UseCertVault method, which provides an XML certificate vault to be searched for certificates and private keys when MailMan performs operations such as encryption, decryption, signing, or signature verification. This example builds a vault from a PFX, attaches it, and fetches a message that Chilkat can decrypt using the vault.

Background: A certificate vault is a portable, in-memory store of certificates and private keys. Rather than wiring up a specific certificate for each operation, you load your credentials into one XmlCertVault and hand it to MailMan, which then searches it automatically whenever a key is needed. This is especially useful on platforms without an OS certificate store, or when one application handles several identities.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"
IncludeFile "CkXmlCertVault.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the MailMan.UseCertVault method, which provides an XML certificate vault to
    ;  be searched for certificates and private keys when MailMan performs operations such as
    ;  encryption, decryption, signing, or signature verification.

    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")

    ;  Build a certificate vault from a PFX (certificate + private key).
    vault.i = CkXmlCertVault::ckCreate()
    If vault.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkXmlCertVault::ckAddPfxFile(vault,"qa_data/certs/certs.pfx","pfx_password")
    If success = 0
        Debug CkXmlCertVault::ckLastErrorText(vault)
        CkMailMan::ckDispose(mailman)
        CkXmlCertVault::ckDispose(vault)
        ProcedureReturn
    EndIf

    ;  Make the vault available to MailMan for crypto operations.
    success = CkMailMan::ckUseCertVault(mailman,vault)
    If success = 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkXmlCertVault::ckDispose(vault)
        ProcedureReturn
    EndIf

    ;  Fetch a message; Chilkat draws on the vault if a private key is needed to decrypt it.
    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)
        CkXmlCertVault::ckDispose(vault)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

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

    ;  Note: The path "qa_data/certs/certs.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)
    CkXmlCertVault::ckDispose(vault)
    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure