(Visual FoxPro) ConvertToSignedPk

Demonstrates how to digitally sign MIME to create an "opaque" signature. The MIME is converted to an application/x-pkcs7-mime which is a PKCS7 signature that includes both the original MIME message and the signature. This is different than AddDetachedSignaturePk, where the signature is appended to the MIME. 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMime
LOCAL loCert
LOCAL lnSuccess
LOCAL loPrivKey

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Mime')
loMime = CreateObject('Chilkat.Mime')

* Load the certificate from a .cer file.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("aaworkarea/myCert.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loMime
    RELEASE loCert
    CANCEL
ENDIF

* Load the private key from an encrypted PEM file.
* (A private key can be loaded from other file formats also..)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadEncryptedPemFile("aaworkarea/myPrivateKey.pem","myPassword")
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loMime
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

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

* Convert the MIME to application/x-pkcs7-mime, which
* is PKCS7 containing both the original content and the signature.
lnSuccess = loMime.ConvertToSignedPk(loCert,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

* Save the S/MIME to a file.
lnSuccess = loMime.SaveMime("aaworkarea/opaqueSignedMime.txt")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

? "success!"

RELEASE loMime
RELEASE loCert
RELEASE loPrivKey