Xbase++

Decrypt2

See more MIME Examples

Demonstrates how to decrypt MIME using a certificate and private key where the certificate and its corresponding private key 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:LoadMimeFile("aaworkarea/encryptedMime.txt")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oCert:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

//  Decrypt using the cert and associated private key
nSuccess := oMime:Decrypt2(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/decryptedMime.txt")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    oCert:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

? "success!"

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