(Lianja) PKCS7 Decrypt MIME

Loads a PKCS7 encrypted MIME file and decrypts. The cert and private key used for decryption is loaded 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 the MIME
llSuccess = loMime.LoadMimeFile("encryptedMime.txt")
if (llSuccess = .F.) then
    ? loMime.LastErrorText
    release loMime
    return
endif

// The AddPfxSourceFile and/or AddPfxSourceData
// methods may be called one or more times (one per PFX)
// to add sources from which the MIME component will
// search for certificates and private keys when decrypting.
lcPfxPassword = "myPassword"
llSuccess = loMime.AddPfxSourceFile("myCertAndPrivateKey.pfx",lcPfxPassword)
if (llSuccess = .F.) then
    ? loMime.LastErrorText
    release loMime
    return
endif

// Decrypt...
llSuccess = loMime.Decrypt()
if (llSuccess = .F.) then
    ? loMime.LastErrorText
    release loMime
    return
endif

// Display the decrypted MIME:
? loMime.GetMime()


release loMime