demos/smime/smenc.c

   1 /*
   2  * Copyright 2007-2016 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the OpenSSL license (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 /* Simple S/MIME encrypt example */
  11 #include <openssl/pem.h>
  12 #include <openssl/pkcs7.h>
  13 #include <openssl/err.h>
  14
  15 int main(int argc, char **argv)
  16 {
  17     BIO *in = NULL, *out = NULL, *tbio = NULL;
  18     X509 *rcert = NULL;
  19     STACK_OF(X509) *recips = NULL;
  20     PKCS7 *p7 = NULL;
  21     int ret = 1;
  22
  23     /*
  24      * On OpenSSL 0.9.9 only:
  25      * for streaming set PKCS7_STREAM
  26      */
  27     int flags = PKCS7_STREAM;
  28
  29     OpenSSL_add_all_algorithms();
  30     ERR_load_crypto_strings();
  31
  32     /* Read in recipient certificate */
  33     tbio = BIO_new_file("signer.pem", "r");
  34
  35     if (!tbio)
  36         goto err;
  37
  38     rcert = PEM_read_bio_X509(tbio, NULL, 0, NULL);
  39
  40     if (!rcert)
  41         goto err;
  42
  43     /* Create recipient STACK and add recipient cert to it */
  44     recips = sk_X509_new_null();
  45
  46     if (!recips || !sk_X509_push(recips, rcert))
  47         goto err;
  48
  49     /*
  50      * sk_X509_pop_free will free up recipient STACK and its contents so set
  51      * rcert to NULL so it isn't freed up twice.
  52      */
  53     rcert = NULL;
  54
  55     /* Open content being encrypted */
  56
  57     in = BIO_new_file("encr.txt", "r");
  58
  59     if (!in)
  60         goto err;
  61
  62     /* encrypt content */
  63     p7 = PKCS7_encrypt(recips, in, EVP_des_ede3_cbc(), flags);
  64
  65     if (!p7)
  66         goto err;
  67
  68     out = BIO_new_file("smencr.txt", "w");
  69     if (!out)
  70         goto err;
  71
  72     /* Write out S/MIME message */
  73     if (!SMIME_write_PKCS7(out, p7, in, flags))
  74         goto err;
  75
  76     ret = 0;
  77
  78  err:
  79     if (ret) {
  80         fprintf(stderr, "Error Encrypting Data\n");
  81         ERR_print_errors_fp(stderr);
  82     }
  83     PKCS7_free(p7);
  84     X509_free(rcert);
  85     sk_X509_pop_free(recips, X509_free);
  86     BIO_free(in);
  87     BIO_free(out);
  88     BIO_free(tbio);
  89     return ret;
  90
  91 }