PowerBuilder

ConvertToSignedPk

See more MIME Examples

Demonstrates how to digitally sign MIME to create an "opaque" signature. The MIME is converted to an application/x-pkcs7-mime which is a PKCS7 signature that includes both the original MIME message and the signature. This is different than AddDetachedSignaturePk, where the signature is appended to the MIME. This example demonstrates how to use the certificate and its corresponding private key when they are stored in separate files -- a .cer for the certificate, and a .pem for the private key. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mime
oleobject loo_Cert
oleobject loo_PrivKey

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

// Load the certificate from a .cer file.
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert.LoadFromFile("aaworkarea/myCert.cer")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

// Load the private key from an encrypted PEM file.
// (A private key can be loaded from other file formats also..)
loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_PrivKey.LoadEncryptedPemFile("aaworkarea/myPrivateKey.pem","myPassword")
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

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

// Convert the MIME to application/x-pkcs7-mime, which
// is PKCS7 containing both the original content and the signature.
li_Success = loo_Mime.ConvertToSignedPk(loo_Cert,loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

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

Write-Debug "success!"


destroy loo_Mime
destroy loo_Cert
destroy loo_PrivKey