(Visual FoxPro) openssl smime -encrypt -des3 -in

See more OpenSSL Examples

OpenSSL SMIME encrypt file using PEM containing a certificate.

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

LOCAL loPem
LOCAL lnSuccess
LOCAL loCert
LOCAL loCrypt
LOCAL loBd
LOCAL loSbEncryptedMime

* 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.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pem')
loPem = 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.
lnSuccess = loPem.LoadPemFile("qa_data/openssl/rsaCertAndKey.pem","")
IF (lnSuccess = 0) THEN
    ? loPem.LastErrorText
    RELEASE loPem
    CANCEL
ENDIF

IF (loPem.NumCerts = 0) THEN
    ? "PEM does not contain any certificates."
    RELEASE loPem
    CANCEL
ENDIF

loCert = loPem.GetCert(0)
IF (loPem.LastMethodSuccess = 0) THEN
    ? loPem.LastErrorText
    RELEASE loPem
    CANCEL
ENDIF

* -------------------------------------------------------------------------------------
* Duplicate this OpenSSL command:   openssl smime -encrypt -des3 -in <file> <pem file>
* -------------------------------------------------------------------------------------
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
lnSuccess = loCrypt.SetEncryptCert(loCert)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCert
    RELEASE loPem
    RELEASE loCrypt
    CANCEL
ENDIF

RELEASE loCert

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

* Load the file to be encrypted.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/openssl/hello.txt")
IF (lnSuccess = 0) THEN
    ? "Failed to load the input file."
    RELEASE loPem
    RELEASE loCrypt
    RELEASE loBd
    CANCEL
ENDIF

* Encrypt.
lnSuccess = loCrypt.EncryptBd(loBd)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loPem
    RELEASE loCrypt
    RELEASE loBd
    CANCEL
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...
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbEncryptedMime = CreateObject('Chilkat.StringBuilder')

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

* Show the result.
? loSbEncryptedMime.GetAsString()

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

RELEASE loPem
RELEASE loCrypt
RELEASE loBd
RELEASE loSbEncryptedMime