(Visual FoxPro) PKCS7 Encrypt MIME

Encrypt MIME using a digital certificate to create PKCS7 encrypted S/MIME.

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

LOCAL loMime
LOCAL lnSuccess
LOCAL loCert

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Mime')
loMime = CreateObject('Chilkat.Mime')

* Build a simple MIME message to be encrypted:
lnSuccess = loMime.AddHeaderField("Content-Type","text/plain")
lnSuccess = loMime.AddHeaderField("abc","123")
loMime.SetBody("This is a test")

* A digital certificate is required to create PKCS7 encrypted MIME.
* It can come from a variety of sources: .cer file, .pfx file, PEM files,
* an in-memory representation, or directly from a Windows
* registry-based certificate store.

* This example will load a certificate object from a .cer file.
* Note: Only the public-key is required to encrypt.  (Decryption
* requires a private key.)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("myCert.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loMime
    RELEASE loCert
    CANCEL
ENDIF

* Encrypt the MIME:
lnSuccess = loMime.Encrypt(loCert)
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    RELEASE loCert
    CANCEL
ENDIF

* Display the MIME:
? loMime.GetMime()

* The resulting S/MIME looks something like this:

* abc: 123
* Content-Disposition: attachment; filename="smime.p7m"
* Content-Transfer-Encoding: base64
* Content-Type: application/x-pkcs7-mime;
*  name="smime.p7m"
* 
* MIICAQYJKoZIhvcNAQcDoIIB8jCCAe4CAQAxggGFMIIBgQIBADBpMFUxCzAJBgNVBAYTAlpBMSUw
* IwYDVQQKExxUaGF3dGUgQ29uc3VsdGluZyAoUHR5KSBMdGQuMR8wHQYDVQQDExZUaGF3dGUgQ29k
* ZSBTaWduaW5nIENBAhB4ouTcAmLszrGi170k1deSMA0GCSqGSIb3DQEBAQUABIIBABz59iwVufLZ
* QIPs0whUYMtBjIQxg5IOCxpoKJeJmLVzu9Q5Q1poxG9uYOveybS9c4wbl5A0DFfKTW5O4HhHcOHW
* TgcH4iqdwhiFWm/q9d5rjceJWBFQsGOcgoXSU/U2Xp+N47/+Pqyc5XJbxKnOc4YhPzO320JZsNB6
* p1NGk5SNnWqgbUDmEnfH8ZPHSV7dNi2aiFALYTyLjyp0lqJCsdZ524OPTZFfusrl/9ibPAW7jKuI
* FgDCcBtRJvolVF8iIHxaTw4rhk0qb1KWzxvB5j9HSLdyIKIPhZbxeS10bx18YkSsBlKfdKRalQag
* 3oWSRdsK9/N75YHG8Pm+x9BOHUAwYAYJKoZIhvcNAQcBMBkGCCqGSIb3DQMCMA0CAToECAb+toBW
* txZigDhGZKSpUpuTiWvvSMemX/c79sSnMpuefVwGKFTDgXVLE2SoD5a9Yh5vcG7Mhl2IkilVwOMc
* fi23+g==

RELEASE loMime
RELEASE loCert