PureBasic

Set the Signing Certificate for an Email

Demonstrates the Chilkat Email.SetSigningCert method, which sets the certificate (with access to its private key) used to create a digital signature when sending signed email. This example loads the signing certificate from a PFX, sets it, and enables signed sending.

Background: Signing uses your own private key (the opposite of encrypting, which uses the recipient's public key), so the signing certificate must include private-key access. A PFX (PKCS#12) file bundles the certificate and its private key together, which is why it is loaded here with LoadPfxFile. If the certificate and key are in separate files, use SetSigningCert2 instead.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the SetSigningCert method, which sets the certificate (with access to its
    ;  private key) used for creating a digital signature when sending signed email.

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

    CkEmail::setCkSubject(email, "Signed email")
    CkEmail::setCkBody(email, "This message will be sent with a digital signature.")
    CkEmail::setCkFrom(email, "alice@example.com")
    CkEmail::ckAddTo(email,"Bob","bob@example.com")

    ;  Load a signing certificate together with its private key from a PFX file.
    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkCert::ckLoadPfxFile(cert,"qa_data/certs/signer.pfx","pfx_password")
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        CkEmail::ckDispose(email)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ;  Set the certificate used to create the signature.
    success = CkEmail::ckSetSigningCert(email,cert)
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ;  Request that the email be sent with a digital signature.
    CkEmail::setCkSendSigned(email, 1)

    Debug "Signing certificate set."

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


    CkEmail::ckDispose(email)
    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure