free NULL cleanup 5a
[openssl.git] / demos / cms / cms_ddec.c
1 /*
2  * S/MIME detached data decrypt example: rarely done but should the need
3  * arise this is an example....
4  */
5 #include <openssl/pem.h>
6 #include <openssl/cms.h>
7 #include <openssl/err.h>
8
9 int main(int argc, char **argv)
10 {
11     BIO *in = NULL, *out = NULL, *tbio = NULL, *dcont = NULL;
12     X509 *rcert = NULL;
13     EVP_PKEY *rkey = NULL;
14     CMS_ContentInfo *cms = NULL;
15     int ret = 1;
16
17     OpenSSL_add_all_algorithms();
18     ERR_load_crypto_strings();
19
20     /* Read in recipient certificate and private key */
21     tbio = BIO_new_file("signer.pem", "r");
22
23     if (!tbio)
24         goto err;
25
26     rcert = PEM_read_bio_X509(tbio, NULL, 0, NULL);
27
28     BIO_reset(tbio);
29
30     rkey = PEM_read_bio_PrivateKey(tbio, NULL, 0, NULL);
31
32     if (!rcert || !rkey)
33         goto err;
34
35     /* Open PEM file containing enveloped data */
36
37     in = BIO_new_file("smencr.pem", "r");
38
39     if (!in)
40         goto err;
41
42     /* Parse PEM content */
43     cms = PEM_read_bio_CMS(in, NULL, 0, NULL);
44
45     if (!cms)
46         goto err;
47
48     /* Open file containing detached content */
49     dcont = BIO_new_file("smencr.out", "rb");
50
51     if (!in)
52         goto err;
53
54     out = BIO_new_file("encrout.txt", "w");
55     if (!out)
56         goto err;
57
58     /* Decrypt S/MIME message */
59     if (!CMS_decrypt(cms, rkey, rcert, dcont, out, 0))
60         goto err;
61
62     ret = 0;
63
64  err:
65
66     if (ret) {
67         fprintf(stderr, "Error Decrypting Data\n");
68         ERR_print_errors_fp(stderr);
69     }
70
71     if (cms)
72         CMS_ContentInfo_free(cms);
73     X509_free(rcert);
74     EVP_PKEY_free(rkey);
75
76     BIO_free(in);
77     BIO_free(out);
78     BIO_free(tbio);
79     BIO_free(dcont);
80
81     return ret;
82
83 }