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 }