(PowerBuilder) Add S/MIME Signature using PFX

Add a digital signature to a MIME message using the certificate + private key from a PFX file.

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

integer li_rc
oleobject loo_Mime
oleobject loo_Cert
string ls_PfxFilepath
string ls_PfxPassword
integer li_Success

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

loo_Mime = create oleobject
// Use "Chilkat_9_5_0.Mime" for versions of Chilkat < 10.0.0
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

// Load a PFX file into a certificate object.
loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

ls_PfxFilepath = "pfxFiles/something.pfx"
ls_PfxPassword = "secret"
li_Success = loo_Cert.LoadPfxFile(ls_PfxFilepath,ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

li_Success = loo_Mime.SetBodyFromPlainText("This is the plain-text MIME body.")

loo_Mime.Charset = "utf-8"
loo_Mime.Encoding = "quoted-printable"

// Sign the MIME (adds a PKCS7 detached signature)
li_Success = loo_Mime.AddDetachedSignature(loo_Cert)
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

// Save the S/MIME to a file.
li_Success = loo_Mime.SaveMime("/temp/signedMime.txt")
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

Write-Debug "success!"


destroy loo_Mime
destroy loo_Cert