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