(PureBasic) Load .eml and Decrypt (smime.p7m)

Loads an encrypted email from a .eml file and decrypts using certificate w/ private key found in a .p12 (or .pfx) file.

The Content-Type and Content-Disposition email headers of the email to be decrypted look similar to this:

Content-Type: application/x-pkcs7-mime; smime-type=enveloped-data;
	name="smime.p7m"
Content-Disposition: attachment; filename="smime.p7m"

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ; Add a PFX (or .p12) to be used for decryption
    success = CkEmail::ckAddPfxSourceFile(email,"myCert.p12","passwordForP12")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; Loading the .eml automatically decrypts.
    success = CkEmail::ckLoadEml(email,"encrypted.eml")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; The email now exists as it was prior to encryption.
    ; Your app may access the email's subject, body, attachments,
    ; etc. using the Chilkat Email API...

    ; Save the decrypted email:
    success = CkEmail::ckSaveEml(email,"decrypted.eml")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    Debug "Success."


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure