| Index: openssl/apps/pkey.c | 
| =================================================================== | 
| --- openssl/apps/pkey.c	(revision 0) | 
| +++ openssl/apps/pkey.c	(revision 0) | 
| @@ -0,0 +1,284 @@ | 
| +/* apps/pkey.c */ | 
| +/* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | 
| + * project 2006 | 
| + */ | 
| +/* ==================================================================== | 
| + * Copyright (c) 2006 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 <string.h> | 
| +#include "apps.h" | 
| +#include <openssl/pem.h> | 
| +#include <openssl/err.h> | 
| +#include <openssl/evp.h> | 
| + | 
| +#define PROG pkey_main | 
| + | 
| +int MAIN(int, char **); | 
| + | 
| +int MAIN(int argc, char **argv) | 
| +	{ | 
| +	ENGINE *e = NULL; | 
| +	char **args, *infile = NULL, *outfile = NULL; | 
| +	char *passargin = NULL, *passargout = NULL; | 
| +	BIO *in = NULL, *out = NULL; | 
| +	const EVP_CIPHER *cipher = NULL; | 
| +	int informat, outformat; | 
| +	int pubin = 0, pubout = 0, pubtext = 0, text = 0, noout = 0; | 
| +	EVP_PKEY *pkey=NULL; | 
| +	char *passin = NULL, *passout = NULL; | 
| +	int badarg = 0; | 
| +#ifndef OPENSSL_NO_ENGINE | 
| +	char *engine=NULL; | 
| +#endif | 
| +	int ret = 1; | 
| + | 
| +	if (bio_err == NULL) | 
| +		bio_err = BIO_new_fp (stderr, BIO_NOCLOSE); | 
| + | 
| +	if (!load_config(bio_err, NULL)) | 
| +		goto end; | 
| + | 
| +	informat=FORMAT_PEM; | 
| +	outformat=FORMAT_PEM; | 
| + | 
| +	ERR_load_crypto_strings(); | 
| +	OpenSSL_add_all_algorithms(); | 
| +	args = argv + 1; | 
| +	while (!badarg && *args && *args[0] == '-') | 
| +		{ | 
| +		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,"-passin")) | 
| +			{ | 
| +			if (!args[1]) goto bad; | 
| +			passargin= *(++args); | 
| +			} | 
| +		else if (!strcmp(*args,"-passout")) | 
| +			{ | 
| +			if (!args[1]) goto bad; | 
| +			passargout= *(++args); | 
| +			} | 
| +#ifndef OPENSSL_NO_ENGINE | 
| +		else if (strcmp(*args,"-engine") == 0) | 
| +			{ | 
| +			if (!args[1]) goto bad; | 
| +			engine= *(++args); | 
| +			} | 
| +#endif | 
| +		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 if (strcmp(*args,"-pubin") == 0) | 
| +			{ | 
| +			pubin=1; | 
| +			pubout=1; | 
| +			pubtext=1; | 
| +			} | 
| +		else if (strcmp(*args,"-pubout") == 0) | 
| +			pubout=1; | 
| +		else if (strcmp(*args,"-text_pub") == 0) | 
| +			{ | 
| +			pubtext=1; | 
| +			text=1; | 
| +			} | 
| +		else if (strcmp(*args,"-text") == 0) | 
| +			text=1; | 
| +		else if (strcmp(*args,"-noout") == 0) | 
| +			noout=1; | 
| +		else | 
| +			{ | 
| +			cipher = EVP_get_cipherbyname(*args + 1); | 
| +			if (!cipher) | 
| +				{ | 
| +				BIO_printf(bio_err, "Unknown cipher %s\n", | 
| +								*args + 1); | 
| +				badarg = 1; | 
| +				} | 
| +			} | 
| +		args++; | 
| +		} | 
| + | 
| +	if (badarg) | 
| +		{ | 
| +		bad: | 
| +		BIO_printf(bio_err, "Usage pkey [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, "-passin arg     input file pass phrase source\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, "-passout arg    output file pass phrase source\n"); | 
| +#ifndef OPENSSL_NO_ENGINE | 
| +		BIO_printf(bio_err, "-engine e       use engine e, possibly a hardware device.\n"); | 
| +#endif | 
| +		return 1; | 
| +		} | 
| + | 
| +#ifndef OPENSSL_NO_ENGINE | 
| +        e = setup_engine(bio_err, engine, 0); | 
| +#endif | 
| + | 
| +	if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) | 
| +		{ | 
| +		BIO_printf(bio_err, "Error getting passwords\n"); | 
| +		goto end; | 
| +		} | 
| + | 
| +	if (outfile) | 
| +		{ | 
| +		if (!(out = BIO_new_file (outfile, "wb"))) | 
| +			{ | 
| +			BIO_printf(bio_err, | 
| +				 "Can't open output file %s\n", outfile); | 
| +			goto end; | 
| +			} | 
| +		} | 
| +	else | 
| +		{ | 
| +		out = BIO_new_fp (stdout, BIO_NOCLOSE); | 
| +#ifdef OPENSSL_SYS_VMS | 
| +			{ | 
| +			BIO *tmpbio = BIO_new(BIO_f_linebuffer()); | 
| +			out = BIO_push(tmpbio, out); | 
| +			} | 
| +#endif | 
| +		} | 
| + | 
| +	if (pubin) | 
| +		pkey = load_pubkey(bio_err, infile, informat, 1, | 
| +			passin, e, "Public Key"); | 
| +	else | 
| +		pkey = load_key(bio_err, infile, informat, 1, | 
| +			passin, e, "key"); | 
| +	if (!pkey) | 
| +		goto end; | 
| + | 
| +	if (!noout) | 
| +		{ | 
| +		if (outformat == FORMAT_PEM) | 
| +			{ | 
| +			if (pubout) | 
| +				PEM_write_bio_PUBKEY(out,pkey); | 
| +			else | 
| +				PEM_write_bio_PrivateKey(out, pkey, cipher, | 
| +							NULL, 0, NULL, passout); | 
| +			} | 
| +		else if (outformat == FORMAT_ASN1) | 
| +			{ | 
| +			if (pubout) | 
| +				i2d_PUBKEY_bio(out, pkey); | 
| +			else | 
| +				i2d_PrivateKey_bio(out, pkey); | 
| +			} | 
| +		else | 
| +			{ | 
| +			BIO_printf(bio_err, "Bad format specified for key\n"); | 
| +			goto end; | 
| +			} | 
| + | 
| +		} | 
| + | 
| +	if (text) | 
| +		{ | 
| +		if (pubtext) | 
| +			EVP_PKEY_print_public(out, pkey, 0, NULL); | 
| +		else | 
| +			EVP_PKEY_print_private(out, pkey, 0, NULL); | 
| +		} | 
| + | 
| +	ret = 0; | 
| + | 
| +	end: | 
| +	EVP_PKEY_free(pkey); | 
| +	BIO_free_all(out); | 
| +	BIO_free(in); | 
| +	if (passin) | 
| +		OPENSSL_free(passin); | 
| +	if (passout) | 
| +		OPENSSL_free(passout); | 
| + | 
| +	return ret; | 
| +	} | 
|  |