1*ebfedea0SLionel Sambuc /* pkwrite.c */
2*ebfedea0SLionel Sambuc
3*ebfedea0SLionel Sambuc #include <stdio.h>
4*ebfedea0SLionel Sambuc #include <stdlib.h>
5*ebfedea0SLionel Sambuc #include <openssl/pem.h>
6*ebfedea0SLionel Sambuc #include <openssl/err.h>
7*ebfedea0SLionel Sambuc #include <openssl/pkcs12.h>
8*ebfedea0SLionel Sambuc
9*ebfedea0SLionel Sambuc /* Simple PKCS#12 file creator */
10*ebfedea0SLionel Sambuc
main(int argc,char ** argv)11*ebfedea0SLionel Sambuc int main(int argc, char **argv)
12*ebfedea0SLionel Sambuc {
13*ebfedea0SLionel Sambuc FILE *fp;
14*ebfedea0SLionel Sambuc EVP_PKEY *pkey;
15*ebfedea0SLionel Sambuc X509 *cert;
16*ebfedea0SLionel Sambuc PKCS12 *p12;
17*ebfedea0SLionel Sambuc if (argc != 5) {
18*ebfedea0SLionel Sambuc fprintf(stderr, "Usage: pkwrite infile password name p12file\n");
19*ebfedea0SLionel Sambuc exit(1);
20*ebfedea0SLionel Sambuc }
21*ebfedea0SLionel Sambuc SSLeay_add_all_algorithms();
22*ebfedea0SLionel Sambuc ERR_load_crypto_strings();
23*ebfedea0SLionel Sambuc if (!(fp = fopen(argv[1], "r"))) {
24*ebfedea0SLionel Sambuc fprintf(stderr, "Error opening file %s\n", argv[1]);
25*ebfedea0SLionel Sambuc exit(1);
26*ebfedea0SLionel Sambuc }
27*ebfedea0SLionel Sambuc cert = PEM_read_X509(fp, NULL, NULL, NULL);
28*ebfedea0SLionel Sambuc rewind(fp);
29*ebfedea0SLionel Sambuc pkey = PEM_read_PrivateKey(fp, NULL, NULL, NULL);
30*ebfedea0SLionel Sambuc fclose(fp);
31*ebfedea0SLionel Sambuc p12 = PKCS12_create(argv[2], argv[3], pkey, cert, NULL, 0, 0, 0, 0, 0);
32*ebfedea0SLionel Sambuc if (!p12) {
33*ebfedea0SLionel Sambuc fprintf(stderr, "Error creating PKCS#12 structure\n");
34*ebfedea0SLionel Sambuc ERR_print_errors_fp(stderr);
35*ebfedea0SLionel Sambuc exit(1);
36*ebfedea0SLionel Sambuc }
37*ebfedea0SLionel Sambuc if (!(fp = fopen(argv[4], "wb"))) {
38*ebfedea0SLionel Sambuc fprintf(stderr, "Error opening file %s\n", argv[1]);
39*ebfedea0SLionel Sambuc ERR_print_errors_fp(stderr);
40*ebfedea0SLionel Sambuc exit(1);
41*ebfedea0SLionel Sambuc }
42*ebfedea0SLionel Sambuc i2d_PKCS12_fp(fp, p12);
43*ebfedea0SLionel Sambuc PKCS12_free(p12);
44*ebfedea0SLionel Sambuc fclose(fp);
45*ebfedea0SLionel Sambuc return 0;
46*ebfedea0SLionel Sambuc }
47