Xbase++

AddDetachedSignaturePk

See more MIME Examples

Demonstrates how to add a detached signature using a certifcate and it's corresponding private key. The easiest way of doing it is when both the certificate and private key are contained together within a PFX (.pfx or .p12) file. This example demonstrates how to use the certificate and its corresponding private key when they are stored in separate files -- a .cer for the certificate, and a .pem for the private key. Xbase++

LOCAL nSuccess
LOCAL oMime
LOCAL oCert
LOCAL oPrivKey

nSuccess := 0

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

oMime := CreateObject("Chilkat.Mime")

//  Load the certificate from a .cer file.
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadFromFile("aaworkarea/myCert.cer")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oMime:destroy()
    oCert:destroy()
    RETURN
ENDIF

//  Load the private key from an encrypted PEM file.
//  (A private key can be loaded from other file formats also..)
oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPrivKey:LoadEncryptedPemFile("aaworkarea/myPrivateKey.pem", "myPassword")
IF (nSuccess == 0)
    ? oPrivKey:LastErrorText
    oMime:destroy()
    oCert:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

nSuccess := oMime:SetBodyFromPlainText("This is the plain-text MIME body.")

//  Sign the MIME (adds a PKCS7 detached signature)
nSuccess := oMime:AddDetachedSignaturePk(oCert, oPrivKey)
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oCert:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

//  Save the S/MIME to a file.
nSuccess := oMime:SaveMime("aaworkarea/signedMime.txt")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oCert:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

? "success!"

oMime:destroy()
oCert:destroy()
oPrivKey:destroy()