PowerBuilder

Encrypt File to PKCS7 .p7m

See more Encryption Examples

_LANGUAGE_ example to public-key encrypt a file creating a PKCS#7 .p7m file as output. Also demonstrates how to decrypt the .p7m to recover the original file. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Crypt
oleobject loo_EncryptCert
string ls_InFile
string ls_OutFile
oleobject loo_Decrypt
string ls_PfxFilename
string ls_PfxPassword

li_Success = 0

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

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

//  Indicate the public-key encryption is to be used.
//  Do this by setting the encryption algorithm equal 
//  to "PKI" (an acroynm for public-key infrastructure).
loo_Crypt.CryptAlgorithm = "PKI"

//  Indicate the inner symmetric encryption algorithm to be used.
//  possible values are "aes", "des", "3des", and "rc2".
//  For this example, we'll use 256-bit AES encryption.
loo_Crypt.Pkcs7CryptAlg = "aes"
loo_Crypt.KeyLength = 256

//  To encrypt, only a certificate w/ public key is needed.
//  (The certificate w/ private key is required for decryption.)

//  The LoadFromFile method can load virtually any certificate format:
//  1. DER encoded binary X.509 (.CER)
//  2. Base-64 encoded X.509 (.CER)
//  3. Cryptographic Message Syntax Standard - PKCS #7 Certificates (.P7B)
//  4. PEM format
loo_EncryptCert = create oleobject
li_rc = loo_EncryptCert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_EncryptCert.LoadFromFile("/Users/chilkat/testData/cer/acme.cer")
if li_Success <> 1 then
    Write-Debug loo_EncryptCert.LastErrorText
    destroy loo_Crypt
    destroy loo_EncryptCert
    return
end if

//  Tell the crypt object to use the certificate for encrypting:
loo_Crypt.AddEncryptCert(loo_EncryptCert)

//  Encrypt a file, producing a .p7m as output.
//  The input file is unchanged, the output .p7m contains the encrypted
//  contents of the input file.
ls_InFile = "/Users/chilkat/testData/pdf/sample.pdf"
ls_OutFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m"
li_Success = loo_Crypt.CkEncryptFile(ls_InFile,ls_OutFile)
if li_Success <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Crypt
    destroy loo_EncryptCert
    return
end if

//  For demonstration purposes, a different instance of the object will be used
//  for decryption.
loo_Decrypt = create oleobject
li_rc = loo_Decrypt.ConnectToNewObject("Chilkat.Crypt2")

//  To decrypt, the certificate w/ private key is required.  A PFX (also known
//  as PKCS#12) is a common secure container for certs and private keys.
ls_PfxFilename = "/Users/chilkat/testData/pfx/acme.pfx"
ls_PfxPassword = "secret"

//  Tell the component to look in the PFX file for certs and private keys.
li_Success = loo_Decrypt.AddPfxSourceFile(ls_PfxFilename,ls_PfxPassword)
if li_Success <> 1 then
    Write-Debug loo_Decrypt.LastErrorText
    destroy loo_Crypt
    destroy loo_EncryptCert
    destroy loo_Decrypt
    return
end if

//  Tell the decrypt object that PKI (public key encryption) is to be used
//  for decryptiong.
loo_Decrypt.CryptAlgorithm = "PKI"
//  There is no need to set the Pkcs7Alg or KeyLength because this information
//  is contained within the .p7m

//  Decrypt the .p7m
ls_InFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m"
ls_OutFile = "/Users/chilkat/testData/pdf/recovered.pdf"
li_Success = loo_Decrypt.CkDecryptFile(ls_InFile,ls_OutFile)
if li_Success = 0 then
    Write-Debug loo_Decrypt.LastErrorText
    destroy loo_Crypt
    destroy loo_EncryptCert
    destroy loo_Decrypt
    return
end if

Write-Debug "Success!"


destroy loo_Crypt
destroy loo_EncryptCert
destroy loo_Decrypt