[thirdparty/openssl.git] / apps / pkcs8.c

/* pkcs8.c */
/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
 * project 1999.
 */
/* ====================================================================
 * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    licensing@OpenSSL.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */
#include <stdio.h>
#include <openssl/pem.h>
#include <openssl/err.h>
#include <openssl/evp.h>
#include <openssl/pkcs12.h>

#include "apps.h"
#define PROG pkcs8_main


int MAIN(int argc, char **argv)
{
	char **args, *infile = NULL, *outfile = NULL;
	BIO *in = NULL, *out = NULL;
	int topk8 = 0;
	int pbe_nid = -1;
	const EVP_CIPHER *cipher = NULL;
	int iter = PKCS12_DEFAULT_ITER;
	int informat, outformat;
	int p8_broken = PKCS8_OK;
	int nocrypt = 0;
	X509_SIG *p8;
	PKCS8_PRIV_KEY_INFO *p8inf;
	EVP_PKEY *pkey;
	char pass[50];
	int badarg = 0;
	if (bio_err == NULL) bio_err = BIO_new_fp (stderr, BIO_NOCLOSE);
	informat=FORMAT_PEM;
	outformat=FORMAT_PEM;
	ERR_load_crypto_strings();
	SSLeay_add_all_algorithms();
	args = argv + 1;
	while (!badarg && *args && *args[0] == '-') {
		if (!strcmp(*args,"-v2")) {
			if (args[1]) {
				args++;
				cipher=EVP_get_cipherbyname(*args);
				if(!cipher) {
					BIO_printf(bio_err,
						 "Unknown cipher %s\n", *args);
					badarg = 1;
				}
			} else badarg = 1;
		} else if (!strcmp(*args,"-inform")) {
			if (args[1]) {
				args++;
				informat=str2fmt(*args);
			} else badarg = 1;
		} else if (!strcmp(*args,"-outform")) {
			if (args[1]) {
				args++;
				outformat=str2fmt(*args);
			} else badarg = 1;
		} else if (!strcmp (*args, "-topk8")) topk8 = 1;
		else if (!strcmp (*args, "-noiter")) iter = 1;
		else if (!strcmp (*args, "-nocrypt")) nocrypt = 1;
		else if (!strcmp (*args, "-nooct")) p8_broken = PKCS8_NO_OCTET;
		else if (!strcmp (*args, "-in")) {
			if (args[1]) {
				args++;
				infile = *args;
			} else badarg = 1;
		} else if (!strcmp (*args, "-out")) {
			if (args[1]) {
				args++;
				outfile = *args;
			} else badarg = 1;
		} else badarg = 1;
		args++;
	}

	if (badarg) {
		BIO_printf (bio_err, "Usage pkcs8 [options]\n");
		BIO_printf (bio_err, "where options are\n");
		BIO_printf (bio_err, "-in file   input file\n");
		BIO_printf (bio_err, "-inform X  input format (DER or PEM)\n");
		BIO_printf (bio_err, "-outform X output format (DER or PEM)\n");
		BIO_printf (bio_err, "-out file  output file\n");
		BIO_printf (bio_err, "-topk8     output PKCS8 file\n");
		BIO_printf (bio_err, "-nooct     use (broken) no octet form\n");
		BIO_printf (bio_err, "-noiter    use 1 as iteration count\n");
		BIO_printf (bio_err, "-nocrypt   use or expect unencrypted private key\n");
		BIO_printf (bio_err, "-v2 alg    use PKCS#5 v2.0 and cipher \"alg\"\n");
		return (1);
	}

	if ((pbe_nid == -1) && !cipher) pbe_nid = NID_pbeWithMD5AndDES_CBC;

	if (infile) {
		if (!(in = BIO_new_file (infile, "rb"))) {
			BIO_printf (bio_err,
				 "Can't open input file %s\n", infile);
			return (1);
		}
	} else in = BIO_new_fp (stdin, BIO_NOCLOSE);

	if (outfile) {
		if (!(out = BIO_new_file (outfile, "wb"))) {
			BIO_printf (bio_err,
				 "Can't open output file %s\n", outfile);
			return (1);
		}
	} else out = BIO_new_fp (stdout, BIO_NOCLOSE);

	if (topk8) {
		if (!(pkey = PEM_read_bio_PrivateKey(in, NULL, NULL, NULL))) {
			BIO_printf (bio_err, "Error reading key\n", outfile);
			ERR_print_errors(bio_err);
			return (1);
		}
		BIO_free(in);
		if (!(p8inf = EVP_PKEY2PKCS8(pkey))) {
			BIO_printf (bio_err, "Error converting key\n", outfile);
			ERR_print_errors(bio_err);
			return (1);
		}
		PKCS8_set_broken(p8inf, p8_broken);
		if(nocrypt) {
			if(outformat == FORMAT_PEM) 
				PEM_write_bio_PKCS8_PRIV_KEY_INFO(out, p8inf);
			else if(outformat == FORMAT_ASN1)
				i2d_PKCS8_PRIV_KEY_INFO_bio(out, p8inf);
			else {
				BIO_printf(bio_err, "Bad format specified for key\n");
				return (1);
			}
		} else {
			EVP_read_pw_string(pass, 50, "Enter Encryption Password:", 1);
			if (!(p8 = PKCS8_encrypt(pbe_nid, cipher,
					pass, strlen(pass),
					NULL, 0, iter, p8inf))) {
				BIO_printf (bio_err, "Error encrypting key\n",
								 outfile);
				ERR_print_errors(bio_err);
				return (1);
			}
			if(outformat == FORMAT_PEM) 
				PEM_write_bio_PKCS8 (out, p8);
			else if(outformat == FORMAT_ASN1)
				i2d_PKCS8_bio(out, p8);
			else {
				BIO_printf(bio_err, "Bad format specified for key\n");
				return (1);
			}
			X509_SIG_free(p8);
		}
		PKCS8_PRIV_KEY_INFO_free (p8inf);
		EVP_PKEY_free(pkey);
		BIO_free(out);
		return (0);
	}

	if(nocrypt) {
		if(informat == FORMAT_PEM) 
			p8inf = PEM_read_bio_PKCS8_PRIV_KEY_INFO(in,NULL,NULL, NULL);
		else if(informat == FORMAT_ASN1)
			p8inf = d2i_PKCS8_PRIV_KEY_INFO_bio(in, NULL);
		else {
			BIO_printf(bio_err, "Bad format specified for key\n");
			return (1);
		}
	} else {
		if(informat == FORMAT_PEM) 
			p8 = PEM_read_bio_PKCS8(in, NULL, NULL, NULL);
		else if(informat == FORMAT_ASN1)
			p8 = d2i_PKCS8_bio(in, NULL);
		else {
			BIO_printf(bio_err, "Bad format specified for key\n");
			return (1);
		}

		if (!p8) {
			BIO_printf (bio_err, "Error reading key\n", outfile);
			ERR_print_errors(bio_err);
			return (1);
		}
		EVP_read_pw_string(pass, 50, "Enter Password:", 0);
		p8inf = M_PKCS8_decrypt(p8, pass, strlen(pass));
		X509_SIG_free(p8);
	}

	if (!p8inf) {
		BIO_printf(bio_err, "Error decrypting key\n", outfile);
		ERR_print_errors(bio_err);
		return (1);
	}

	if (!(pkey = EVP_PKCS82PKEY(p8inf))) {
		BIO_printf(bio_err, "Error converting key\n", outfile);
		ERR_print_errors(bio_err);
		return (1);
	}
	
	if (p8inf->broken) {
		BIO_printf(bio_err, "Warning: broken key encoding: ");
		switch (p8inf->broken) {
			case PKCS8_NO_OCTET:
			BIO_printf(bio_err, "No Octet String\n");
			break;

			default:
			BIO_printf(bio_err, "Unknown broken type\n");
			break;
		}
	}
	
	PKCS8_PRIV_KEY_INFO_free(p8inf);

	PEM_write_bio_PrivateKey(out, pkey, NULL, NULL, 0, NULL, NULL);

	EVP_PKEY_free(pkey);
	BIO_free(out);
	BIO_free(in);

	return (0);
}
Commit	Line	Data
600dec15 DSH	1	/* pkcs8.c */
	2	/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
	3	* project 1999.
	4	*/
	5	/* ====================================================================
	6	* Copyright (c) 1999 The OpenSSL Project. All rights reserved.
	7	*
	8	* Redistribution and use in source and binary forms, with or without
	9	* modification, are permitted provided that the following conditions
	10	* are met:
	11	*
	12	* 1. Redistributions of source code must retain the above copyright
	13	* notice, this list of conditions and the following disclaimer.
	14	*
	15	* 2. Redistributions in binary form must reproduce the above copyright
	16	* notice, this list of conditions and the following disclaimer in
	17	* the documentation and/or other materials provided with the
	18	* distribution.
	19	*
	20	* 3. All advertising materials mentioning features or use of this
	21	* software must display the following acknowledgment:
	22	* "This product includes software developed by the OpenSSL Project
	23	* for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
	24	*
	25	* 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
	26	* endorse or promote products derived from this software without
	27	* prior written permission. For written permission, please contact
	28	* licensing@OpenSSL.org.
	29	*
	30	* 5. Products derived from this software may not be called "OpenSSL"
	31	* nor may "OpenSSL" appear in their names without prior written
	32	* permission of the OpenSSL Project.
	33	*
	34	* 6. Redistributions of any form whatsoever must retain the following
	35	* acknowledgment:
	36	* "This product includes software developed by the OpenSSL Project
	37	* for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
	38	*
	39	* THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
	40	* EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	41	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
	42	* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
	43	* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
	44	* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
	45	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
	46	* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	47	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	48	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
	49	* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
	50	* OF THE POSSIBILITY OF SUCH DAMAGE.
	51	* ====================================================================
	52	*
	53	* This product includes cryptographic software written by Eric Young
	54	* (eay@cryptsoft.com). This product includes software written by Tim
	55	* Hudson (tjh@cryptsoft.com).
	56	*
	57	*/
	58	#include <stdio.h>
	59	#include <openssl/pem.h>
	60	#include <openssl/err.h>
	61	#include <openssl/evp.h>
	62	#include <openssl/pkcs12.h>
	63
	64	#include "apps.h"
65	#define PROG pkcs8_main
66
67
68	int MAIN(int argc, char **argv)
69	{
70	char *args, infile = NULL, *outfile = NULL;
71	BIO in = NULL, out = NULL;
72	int topk8 = 0;
73	int pbe_nid = -1;
8eb57af5	74	const EVP_CIPHER *cipher = NULL;
600dec15	75	int iter = PKCS12_DEFAULT_ITER;
3cbb7937	76	int informat, outformat;
600dec15	77	int p8_broken = PKCS8_OK;
e7871ffa	78	int nocrypt = 0;
600dec15 DSH	79	X509_SIG *p8;
	80	PKCS8_PRIV_KEY_INFO *p8inf;
	81	EVP_PKEY *pkey;
	82	char pass[50];
	83	int badarg = 0;
	84	if (bio_err == NULL) bio_err = BIO_new_fp (stderr, BIO_NOCLOSE);
3cbb7937 DSH	85	informat=FORMAT_PEM;
3cbb7937 DSH	86	outformat=FORMAT_PEM;
600dec15 DSH	87	ERR_load_crypto_strings();
	88	SSLeay_add_all_algorithms();
	89	args = argv + 1;
	90	while (!badarg && args && args[0] == '-') {
8eb57af5 DSH	91	if (!strcmp(*args,"-v2")) {
	92	if (args[1]) {
	93	args++;
	94	cipher=EVP_get_cipherbyname(*args);
	95	if(!cipher) {
	96	BIO_printf(bio_err,
	97	"Unknown cipher %s\n", *args);
	98	badarg = 1;
	99	}
	100	} else badarg = 1;
	101	} else if (!strcmp(*args,"-inform")) {
3cbb7937 DSH	102	if (args[1]) {
	103	args++;
	104	informat=str2fmt(*args);
	105	} else badarg = 1;
	106	} else if (!strcmp(*args,"-outform")) {
	107	if (args[1]) {
	108	args++;
	109	outformat=str2fmt(*args);
	110	} else badarg = 1;
	111	} else if (!strcmp (*args, "-topk8")) topk8 = 1;
600dec15	112	else if (!strcmp (*args, "-noiter")) iter = 1;
e7871ffa	113	else if (!strcmp (*args, "-nocrypt")) nocrypt = 1;
600dec15 DSH	114	else if (!strcmp (*args, "-nooct")) p8_broken = PKCS8_NO_OCTET;
	115	else if (!strcmp (*args, "-in")) {
	116	if (args[1]) {
	117	args++;
	118	infile = *args;
	119	} else badarg = 1;
	120	} else if (!strcmp (*args, "-out")) {
	121	if (args[1]) {
	122	args++;
	123	outfile = *args;
	124	} else badarg = 1;
	125	} else badarg = 1;
	126	args++;
	127	}
	128
	129	if (badarg) {
	130	BIO_printf (bio_err, "Usage pkcs8 [options]\n");
	131	BIO_printf (bio_err, "where options are\n");
e7871ffa DSH	132	BIO_printf (bio_err, "-in file input file\n");
	133	BIO_printf (bio_err, "-inform X input format (DER or PEM)\n");
	134	BIO_printf (bio_err, "-outform X output format (DER or PEM)\n");
	135	BIO_printf (bio_err, "-out file output file\n");
	136	BIO_printf (bio_err, "-topk8 output PKCS8 file\n");
	137	BIO_printf (bio_err, "-nooct use (broken) no octet form\n");
	138	BIO_printf (bio_err, "-noiter use 1 as iteration count\n");
	139	BIO_printf (bio_err, "-nocrypt use or expect unencrypted private key\n");
8eb57af5	140	BIO_printf (bio_err, "-v2 alg use PKCS#5 v2.0 and cipher \"alg\"\n");
600dec15 DSH	141	return (1);
	142	}
	143
8eb57af5	144	if ((pbe_nid == -1) && !cipher) pbe_nid = NID_pbeWithMD5AndDES_CBC;
600dec15 DSH	145
600dec15 DSH	146	if (infile) {
3cbb7937	147	if (!(in = BIO_new_file (infile, "rb"))) {
600dec15 DSH	148	BIO_printf (bio_err,
	149	"Can't open input file %s\n", infile);
	150	return (1);
	151	}
	152	} else in = BIO_new_fp (stdin, BIO_NOCLOSE);
	153
	154	if (outfile) {
3cbb7937	155	if (!(out = BIO_new_file (outfile, "wb"))) {
600dec15 DSH	156	BIO_printf (bio_err,
	157	"Can't open output file %s\n", outfile);
	158	return (1);
	159	}
	160	} else out = BIO_new_fp (stdout, BIO_NOCLOSE);
	161
	162	if (topk8) {
74678cc2	163	if (!(pkey = PEM_read_bio_PrivateKey(in, NULL, NULL, NULL))) {
600dec15 DSH	164	BIO_printf (bio_err, "Error reading key\n", outfile);
	165	ERR_print_errors(bio_err);
	166	return (1);
	167	}
8eb57af5	168	BIO_free(in);
600dec15 DSH	169	if (!(p8inf = EVP_PKEY2PKCS8(pkey))) {
	170	BIO_printf (bio_err, "Error converting key\n", outfile);
	171	ERR_print_errors(bio_err);
	172	return (1);
	173	}
	174	PKCS8_set_broken(p8inf, p8_broken);
e7871ffa DSH	175	if(nocrypt) {
	176	if(outformat == FORMAT_PEM)
	177	PEM_write_bio_PKCS8_PRIV_KEY_INFO(out, p8inf);
	178	else if(outformat == FORMAT_ASN1)
	179	i2d_PKCS8_PRIV_KEY_INFO_bio(out, p8inf);
	180	else {
	181	BIO_printf(bio_err, "Bad format specified for key\n");
	182	return (1);
	183	}
	184	} else {
	185	EVP_read_pw_string(pass, 50, "Enter Encryption Password:", 1);
8eb57af5 DSH	186	if (!(p8 = PKCS8_encrypt(pbe_nid, cipher,
	187	pass, strlen(pass),
	188	NULL, 0, iter, p8inf))) {
e7871ffa DSH	189	BIO_printf (bio_err, "Error encrypting key\n",
	190	outfile);
	191	ERR_print_errors(bio_err);
	192	return (1);
	193	}
	194	if(outformat == FORMAT_PEM)
	195	PEM_write_bio_PKCS8 (out, p8);
	196	else if(outformat == FORMAT_ASN1)
	197	i2d_PKCS8_bio(out, p8);
	198	else {
	199	BIO_printf(bio_err, "Bad format specified for key\n");
	200	return (1);
	201	}
	202	X509_SIG_free(p8);
600dec15 DSH	203	}
600dec15 DSH	204	PKCS8_PRIV_KEY_INFO_free (p8inf);
8eb57af5 DSH	205	EVP_PKEY_free(pkey);
8eb57af5 DSH	206	BIO_free(out);
600dec15 DSH	207	return (0);
	208	}
	209
e7871ffa DSH	210	if(nocrypt) {
e7871ffa DSH	211	if(informat == FORMAT_PEM)
74678cc2	212	p8inf = PEM_read_bio_PKCS8_PRIV_KEY_INFO(in,NULL,NULL, NULL);
e7871ffa DSH	213	else if(informat == FORMAT_ASN1)
	214	p8inf = d2i_PKCS8_PRIV_KEY_INFO_bio(in, NULL);
	215	else {
	216	BIO_printf(bio_err, "Bad format specified for key\n");
	217	return (1);
	218	}
	219	} else {
	220	if(informat == FORMAT_PEM)
74678cc2	221	p8 = PEM_read_bio_PKCS8(in, NULL, NULL, NULL);
e7871ffa DSH	222	else if(informat == FORMAT_ASN1)
	223	p8 = d2i_PKCS8_bio(in, NULL);
	224	else {
	225	BIO_printf(bio_err, "Bad format specified for key\n");
	226	return (1);
	227	}
3cbb7937	228
e7871ffa DSH	229	if (!p8) {
	230	BIO_printf (bio_err, "Error reading key\n", outfile);
	231	ERR_print_errors(bio_err);
	232	return (1);
	233	}
	234	EVP_read_pw_string(pass, 50, "Enter Password:", 0);
	235	p8inf = M_PKCS8_decrypt(p8, pass, strlen(pass));
8eb57af5	236	X509_SIG_free(p8);
600dec15	237	}
e7871ffa	238
600dec15 DSH	239	if (!p8inf) {
	240	BIO_printf(bio_err, "Error decrypting key\n", outfile);
	241	ERR_print_errors(bio_err);
	242	return (1);
	243	}
	244
	245	if (!(pkey = EVP_PKCS82PKEY(p8inf))) {
	246	BIO_printf(bio_err, "Error converting key\n", outfile);
	247	ERR_print_errors(bio_err);
	248	return (1);
	249	}
	250
	251	if (p8inf->broken) {
	252	BIO_printf(bio_err, "Warning: broken key encoding: ");
	253	switch (p8inf->broken) {
	254	case PKCS8_NO_OCTET:
	255	BIO_printf(bio_err, "No Octet String\n");
	256	break;
	257
	258	default:
	259	BIO_printf(bio_err, "Unknown broken type\n");
	260	break;
	261	}
	262	}
	263
	264	PKCS8_PRIV_KEY_INFO_free(p8inf);
	265
74678cc2	266	PEM_write_bio_PrivateKey(out, pkey, NULL, NULL, 0, NULL, NULL);
600dec15	267
8eb57af5 DSH	268	EVP_PKEY_free(pkey);
	269	BIO_free(out);
	270	BIO_free(in);
	271
600dec15 DSH	272	return (0);
600dec15 DSH	273	}