1ebfedea0SLionel Sambuc /* Simple S/MIME compress example */
2ebfedea0SLionel Sambuc #include <openssl/pem.h>
3ebfedea0SLionel Sambuc #include <openssl/cms.h>
4ebfedea0SLionel Sambuc #include <openssl/err.h>
5ebfedea0SLionel Sambuc
main(int argc,char ** argv)6ebfedea0SLionel Sambuc int main(int argc, char **argv)
7ebfedea0SLionel Sambuc {
8ebfedea0SLionel Sambuc BIO *in = NULL, *out = NULL;
9ebfedea0SLionel Sambuc CMS_ContentInfo *cms = NULL;
10ebfedea0SLionel Sambuc int ret = 1;
11ebfedea0SLionel Sambuc
12ebfedea0SLionel Sambuc /*
13*0a6a1f1dSLionel Sambuc * On OpenSSL 1.0.0+ only:
14ebfedea0SLionel Sambuc * for streaming set CMS_STREAM
15ebfedea0SLionel Sambuc */
16ebfedea0SLionel Sambuc int flags = CMS_STREAM;
17ebfedea0SLionel Sambuc
18ebfedea0SLionel Sambuc OpenSSL_add_all_algorithms();
19ebfedea0SLionel Sambuc ERR_load_crypto_strings();
20ebfedea0SLionel Sambuc
21ebfedea0SLionel Sambuc /* Open content being compressed */
22ebfedea0SLionel Sambuc
23ebfedea0SLionel Sambuc in = BIO_new_file("comp.txt", "r");
24ebfedea0SLionel Sambuc
25ebfedea0SLionel Sambuc if (!in)
26ebfedea0SLionel Sambuc goto err;
27ebfedea0SLionel Sambuc
28ebfedea0SLionel Sambuc /* compress content */
29ebfedea0SLionel Sambuc cms = CMS_compress(in, NID_zlib_compression, flags);
30ebfedea0SLionel Sambuc
31ebfedea0SLionel Sambuc if (!cms)
32ebfedea0SLionel Sambuc goto err;
33ebfedea0SLionel Sambuc
34ebfedea0SLionel Sambuc out = BIO_new_file("smcomp.txt", "w");
35ebfedea0SLionel Sambuc if (!out)
36ebfedea0SLionel Sambuc goto err;
37ebfedea0SLionel Sambuc
38ebfedea0SLionel Sambuc /* Write out S/MIME message */
39ebfedea0SLionel Sambuc if (!SMIME_write_CMS(out, cms, in, flags))
40ebfedea0SLionel Sambuc goto err;
41ebfedea0SLionel Sambuc
42ebfedea0SLionel Sambuc ret = 0;
43ebfedea0SLionel Sambuc
44ebfedea0SLionel Sambuc err:
45ebfedea0SLionel Sambuc
46*0a6a1f1dSLionel Sambuc if (ret) {
47ebfedea0SLionel Sambuc fprintf(stderr, "Error Compressing Data\n");
48ebfedea0SLionel Sambuc ERR_print_errors_fp(stderr);
49ebfedea0SLionel Sambuc }
50ebfedea0SLionel Sambuc
51ebfedea0SLionel Sambuc if (cms)
52ebfedea0SLionel Sambuc CMS_ContentInfo_free(cms);
53ebfedea0SLionel Sambuc if (in)
54ebfedea0SLionel Sambuc BIO_free(in);
55ebfedea0SLionel Sambuc if (out)
56ebfedea0SLionel Sambuc BIO_free(out);
57ebfedea0SLionel Sambuc
58ebfedea0SLionel Sambuc return ret;
59ebfedea0SLionel Sambuc
60ebfedea0SLionel Sambuc }
61