(Lianja) Add S/MIME Signature using PFX

Add a digital signature to a MIME message using the certificate + private key from a PFX file.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loMime = createobject("CkMime")

// Load a PFX file into a certificate object.
loCert = createobject("CkCert")
lcPfxFilepath = "pfxFiles/something.pfx"
lcPfxPassword = "secret"
llSuccess = loCert.LoadPfxFile(lcPfxFilepath,lcPfxPassword)
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loMime
    release loCert
    return
endif

llSuccess = loMime.SetBodyFromPlainText("This is the plain-text MIME body.")

loMime.Charset = "utf-8"
loMime.Encoding = "quoted-printable"

// Sign the MIME (adds a PKCS7 detached signature)
llSuccess = loMime.AddDetachedSignature(loCert)
if (llSuccess = .F.) then
    ? loMime.LastErrorText
    release loMime
    release loCert
    return
endif

// Save the S/MIME to a file.
llSuccess = loMime.SaveMime("/temp/signedMime.txt")
if (llSuccess = .F.) then
    ? loMime.LastErrorText
    release loMime
    release loCert
    return
endif

? "success!"


release loMime
release loCert