PowerBuilder

Extract PKCS7 from MIME and Decrypt

See more MIME Examples

Extracts the base64-encoded PKCS7 body of a MIME message to a file, and then decrypts using Chilkat Crypt2. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mime
oleobject loo_Crypt
string ls_InPath
string ls_OutPath

li_Success = 0

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

loo_Mime = create oleobject
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
    destroy loo_Mime
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Mime.LoadMimeFile("c:/aaworkarea/EmailInBytes.txt")
if li_Success <> 1 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

li_Success = loo_Mime.SaveBody("c:/aaworkarea/smime.p7m")
if li_Success <> 1 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

li_Success = loo_Crypt.AddPfxSourceFile("c:/aaworkarea/my.pfx","pfxPassword")
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Mime
    destroy loo_Crypt
    return
end if

// Indicate the public-key (PKCS7) encryption/decryption should be used:
loo_Crypt.CryptAlgorithm = "pki"

ls_InPath = "c:/aaworkarea/smime.p7m"
ls_OutPath = "c:/aaworkarea/decrypted.dat"

li_Success = loo_Crypt.CkDecryptFile(ls_InPath,ls_OutPath)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Mime
    destroy loo_Crypt
    return
end if

Write-Debug "Success."


destroy loo_Mime
destroy loo_Crypt