PowerBuilder

openssl smime -encrypt -des3 -in <file> <pem file>

See more OpenSSL Examples

OpenSSL SMIME encrypt file using PEM containing a certificate. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Pem
oleobject loo_Cert
oleobject loo_Crypt
oleobject loo_Bd
oleobject loo_SbEncryptedMime

li_Success = 0

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

// Load the cert from a PEM file.

loo_Pem = create oleobject
li_rc = loo_Pem.ConnectToNewObject("Chilkat.Pem")
if li_rc < 0 then
    destroy loo_Pem
    MessageBox("Error","Connecting to COM object failed")
    return
end if
// Our particular PEM was not encrypted, so we pass an empty password.
// Also, a private key is not needed for encryption.  The PEM used to test this example
// happens to have a private key, but it's not actually used.
li_Success = loo_Pem.LoadPemFile("qa_data/openssl/rsaCertAndKey.pem","")
if li_Success = 0 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_Pem
    return
end if

if loo_Pem.NumCerts = 0 then
    Write-Debug "PEM does not contain any certificates."
    destroy loo_Pem
    return
end if

loo_Cert = loo_Pem.GetCert(0)
if loo_Pem.LastMethodSuccess = 0 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_Pem
    return
end if

// -------------------------------------------------------------------------------------
// Duplicate this OpenSSL command:   openssl smime -encrypt -des3 -in <file> <pem file>
// -------------------------------------------------------------------------------------
loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

li_Success = loo_Crypt.SetEncryptCert(loo_Cert)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Cert
    destroy loo_Pem
    destroy loo_Crypt
    return
end if

destroy loo_Cert

loo_Crypt.CryptAlgorithm = "PKI"
loo_Crypt.Pkcs7CryptAlg = "3des"
loo_Crypt.KeyLength = 168

// Load the file to be encrypted.
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Bd.LoadFile("qa_data/openssl/hello.txt")
if li_Success = 0 then
    Write-Debug "Failed to load the input file."
    destroy loo_Pem
    destroy loo_Crypt
    destroy loo_Bd
    return
end if

// Encrypt.
li_Success = loo_Crypt.EncryptBd(loo_Bd)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Pem
    destroy loo_Crypt
    destroy loo_Bd
    return
end if

// The openssl smime -encrypt command produces encrypte MIME such as this:

// MIME-Version: 1.0
// Content-Disposition: attachment; filename="smime.p7m"
// Content-Type: application/x-pkcs7-mime; smime-type=enveloped-data; name="smime.p7m"
// Content-Transfer-Encoding: base64
// 
// MIICzwYJKoZIhvcNAQcDoIICwDCCArwCAQAxggF8MIIBeAIBADBgMEoxCzAJBgNVBAYTAlVTMRYw
// FAYDVQQKEw1MZXQncyBFbmNyeXB0MSMwIQYDVQQDExpMZXQncyBFbmNyeXB0IEF1dGhvcml0eSBY
// MwISA9Nqgb1dH/XTDNeKzN1nR85iMA0GCSqGSIb3DQEBAQUABIIBAIQqPexjxWovgxwKV/r3HL/U
// EP9Yozvz5hBeX5VvRZjKSi4FRw5wapElPK+4FB82hiAR9Mi3c16PvPSVkJv3l78Mv5uaaOs/OmUz
// mIHFB6Z+l2E52BDmUVWJZTQ09vdWy6+NIRlg2R9Z1NkmZ4BZCJk6mHB/Yx03IaOxK8LnwieDMthM
// SvxbhJnIOISN7k7ofs+/0vTXUpdQ+tlmwyVySMGQ6VMk+z4sqZJ2stacqCPtt/aiSwJ9p0OKmihf
// 3KDJceXJtavIQeA97yz1LqPvle35mmd5sBhV9qQYdTV/KJ+YM5uEZ9BHYbvMJbADFHwKzhcEY3qA
// 7T9acmEsb7NycOIwggE1BgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECERX/ZoHweSkgIIBEMmCMx49
// zjVAnGqRaBbvzQT1hg0uQSxIJjxMxC+HSuM+eY9oSOsbrw4uIijHKH9NdOpeDsdRzg2z5EBM7AlP
// Ht9DyPW5C2deV6RPX4F8gyExz+JUXrd+3Yb3AKTdpDkTWDmNCeO0r/YSqp518+mfU5hG8e336u51
// HAM44FeknA8oThWsD/wUB1e8vzsatK4UXW/KSu/166V7z+VT86kd+IHa7t60U9Yp0ZXgcM5Pb5Ni
// 69Qc5MKPzom2801H5UR/WjCgsxOIjOj49sKisjRy79skrJzxY5ZG05T0dKn6KC3TjRpIEEeOyhCd
// Nm2Y7dcW8GLMepdhWay5vePmQxmvmhbAtBprIem14NcrYeG6D5wP

// We have the body in bd
// Construct the header and base64 body...
loo_SbEncryptedMime = create oleobject
li_rc = loo_SbEncryptedMime.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbEncryptedMime.AppendLine("MIME-Version: 1.0",1)
loo_SbEncryptedMime.AppendLine("Content-Disposition: attachment; filename=~"smime.p7m~"",1)
loo_SbEncryptedMime.AppendLine("Content-Type: application/x-pkcs7-mime; smime-type=enveloped-data; name=~"smime.p7m~"",1)
loo_SbEncryptedMime.AppendLine("Content-Transfer-Encoding: base64",1)
loo_SbEncryptedMime.AppendLine("",1)
loo_SbEncryptedMime.AppendLine(loo_Bd.GetEncoded("base64_mime"),1)

// Show the result.
Write-Debug loo_SbEncryptedMime.GetAsString()

// or save to a file..
li_Success = loo_SbEncryptedMime.WriteFile("qa_output/encryptedMime.txt","utf-8",0)


destroy loo_Pem
destroy loo_Crypt
destroy loo_Bd
destroy loo_SbEncryptedMime