Xbase++

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

See more OpenSSL Examples

OpenSSL SMIME encrypt file using PEM containing a certificate. Xbase++

LOCAL nSuccess
LOCAL oPem
LOCAL oCert
LOCAL oCrypt
LOCAL oBd
LOCAL oSbEncryptedMime

nSuccess := 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.

oPem := CreateObject("Chilkat.Pem")
//  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.
nSuccess := oPem:LoadPemFile("qa_data/openssl/rsaCertAndKey.pem", "")
IF (nSuccess == 0)
    ? oPem:LastErrorText
    oPem:destroy()
    RETURN
ENDIF

IF (oPem:NumCerts == 0)
    ? "PEM does not contain any certificates."
    oPem:destroy()
    RETURN
ENDIF

oCert := oPem:GetCert(0)
IF (oPem:LastMethodSuccess == 0)
    ? oPem:LastErrorText
    oPem:destroy()
    RETURN
ENDIF

//  -------------------------------------------------------------------------------------
//  Duplicate this OpenSSL command:   openssl smime -encrypt -des3 -in <file> <pem file>
//  -------------------------------------------------------------------------------------
oCrypt := CreateObject("Chilkat.Crypt2")
nSuccess := oCrypt:SetEncryptCert(oCert)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCert:destroy()
    oPem:destroy()
    oCrypt:destroy()
    RETURN
ENDIF

oCert:destroy()

oCrypt:CryptAlgorithm := "PKI"
oCrypt:Pkcs7CryptAlg := "3des"
oCrypt:KeyLength := 168

//  Load the file to be encrypted.
oBd := CreateObject("Chilkat.BinData")
nSuccess := oBd:LoadFile("qa_data/openssl/hello.txt")
IF (nSuccess == 0)
    ? "Failed to load the input file."
    oPem:destroy()
    oCrypt:destroy()
    oBd:destroy()
    RETURN
ENDIF

//  Encrypt.
nSuccess := oCrypt:EncryptBd(oBd)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oPem:destroy()
    oCrypt:destroy()
    oBd:destroy()
    RETURN
ENDIF

//  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...
oSbEncryptedMime := CreateObject("Chilkat.StringBuilder")

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

//  Show the result.
? oSbEncryptedMime:GetAsString()

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

oPem:destroy()
oCrypt:destroy()
oBd:destroy()
oSbEncryptedMime:destroy()