OpenSSLDie --> OPENSSL_die
[openssl.git] / demos / pkcs12 / pkread.c
1
2 #include <stdio.h>
3 #include <stdlib.h>
4 #include <openssl/pem.h>
5 #include <openssl/err.h>
6 #include <openssl/pkcs12.h>
7
8 /* Simple PKCS#12 file reader */
9
10 int main(int argc, char **argv)
11 {
12     FILE *fp;
13     EVP_PKEY *pkey;
14     X509 *cert;
15     STACK_OF(X509) *ca = NULL;
16     PKCS12 *p12;
17     int i;
18     if (argc != 4) {
19         fprintf(stderr, "Usage: pkread p12file password opfile\n");
20         exit(1);
21     }
22     OpenSSL_add_all_algorithms();
23     ERR_load_crypto_strings();
24     if ((fp = fopen(argv[1], "rb")) == NULL) {
25         fprintf(stderr, "Error opening file %s\n", argv[1]);
26         exit(1);
27     }
28     p12 = d2i_PKCS12_fp(fp, NULL);
29     fclose(fp);
30     if (!p12) {
31         fprintf(stderr, "Error reading PKCS#12 file\n");
32         ERR_print_errors_fp(stderr);
33         exit(1);
34     }
35     if (!PKCS12_parse(p12, argv[2], &pkey, &cert, &ca)) {
36         fprintf(stderr, "Error parsing PKCS#12 file\n");
37         ERR_print_errors_fp(stderr);
38         exit(1);
39     }
40     PKCS12_free(p12);
41     if ((fp = fopen(argv[3], "w")) == NULL) {
42         fprintf(stderr, "Error opening file %s\n", argv[1]);
43         exit(1);
44     }
45     if (pkey) {
46         fprintf(fp, "***Private Key***\n");
47         PEM_write_PrivateKey(fp, pkey, NULL, NULL, 0, NULL, NULL);
48     }
49     if (cert) {
50         fprintf(fp, "***User Certificate***\n");
51         PEM_write_X509_AUX(fp, cert);
52     }
53     if (ca && sk_X509_num(ca)) {
54         fprintf(fp, "***Other Certificates***\n");
55         for (i = 0; i < sk_X509_num(ca); i++)
56             PEM_write_X509_AUX(fp, sk_X509_value(ca, i));
57     }
58     fclose(fp);
59     return 0;
60 }