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

/* apps/genrsa.c */
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
 * All rights reserved.
 *
 * This package is an SSL implementation written
 * by Eric Young (eay@cryptsoft.com).
 * The implementation was written so as to conform with Netscapes SSL.
 * 
 * This library is free for commercial and non-commercial use as long as
 * the following conditions are aheared to.  The following conditions
 * apply to all code found in this distribution, be it the RC4, RSA,
 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
 * included with this distribution is covered by the same copyright terms
 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
 * 
 * Copyright remains Eric Young's, and as such any Copyright notices in
 * the code are not to be removed.
 * If this package is used in a product, Eric Young should be given attribution
 * as the author of the parts of the library used.
 * This can be in the form of a textual message at program startup or
 * in documentation (online or textual) provided with the package.
 * 
 * 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 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 acknowledgement:
 *    "This product includes cryptographic software written by
 *     Eric Young (eay@cryptsoft.com)"
 *    The word 'cryptographic' can be left out if the rouines from the library
 *    being used are not cryptographic related :-).
 * 4. If you include any Windows specific code (or a derivative thereof) from 
 *    the apps directory (application code) you must include an acknowledgement:
 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
 * 
 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
 * ANY EXPRESS 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 AUTHOR OR 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.
 * 
 * The licence and distribution terms for any publically available version or
 * derivative of this code cannot be changed.  i.e. this code cannot simply be
 * copied and put under another distribution licence
 * [including the GNU Public Licence.]
 */

#include <openssl/opensslconf.h>
/* Until the key-gen callbacks are modified to use newer prototypes, we allow
 * deprecated functions for openssl-internal code */
#ifdef OPENSSL_NO_DEPRECATED
#undef OPENSSL_NO_DEPRECATED
#endif

#ifndef OPENSSL_NO_RSA
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "apps.h"
#include <openssl/bio.h>
#include <openssl/err.h>
#include <openssl/bn.h>
#include <openssl/rsa.h>
#include <openssl/evp.h>
#include <openssl/x509.h>
#include <openssl/pem.h>
#include <openssl/rand.h>

#define DEFBITS	512
#undef PROG
#define PROG genrsa_main

static int MS_CALLBACK genrsa_cb(int p, int n, BN_GENCB *cb);

int MAIN(int, char **);

int MAIN(int argc, char **argv)
	{
	BN_GENCB cb;
#ifndef OPENSSL_NO_ENGINE
	ENGINE *e = NULL;
#endif
	int ret=1;
	int i,num=DEFBITS;
	long l;
	const EVP_CIPHER *enc=NULL;
	unsigned long f4=RSA_F4;
	char *outfile=NULL;
	char *passargout = NULL, *passout = NULL;
#ifndef OPENSSL_NO_ENGINE
	char *engine=NULL;
#endif
	char *inrand=NULL;
	BIO *out=NULL;
	BIGNUM *bn = BN_new();
	RSA *rsa = NULL;

	if(!bn) goto err;

	apps_startup();
	BN_GENCB_set(&cb, genrsa_cb, bio_err);

	if (bio_err == NULL)
		if ((bio_err=BIO_new(BIO_s_file())) != NULL)
			BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);

	if (!load_config(bio_err, NULL))
		goto err;
	if ((out=BIO_new(BIO_s_file())) == NULL)
		{
		BIO_printf(bio_err,"unable to create BIO for output\n");
		goto err;
		}

	argv++;
	argc--;
	for (;;)
		{
		if (argc <= 0) break;
		if (strcmp(*argv,"-out") == 0)
			{
			if (--argc < 1) goto bad;
			outfile= *(++argv);
			}
		else if (strcmp(*argv,"-3") == 0)
			f4=3;
		else if (strcmp(*argv,"-F4") == 0 || strcmp(*argv,"-f4") == 0)
			f4=RSA_F4;
#ifndef OPENSSL_NO_ENGINE
		else if (strcmp(*argv,"-engine") == 0)
			{
			if (--argc < 1) goto bad;
			engine= *(++argv);
			}
#endif
		else if (strcmp(*argv,"-rand") == 0)
			{
			if (--argc < 1) goto bad;
			inrand= *(++argv);
			}
#ifndef OPENSSL_NO_DES
		else if (strcmp(*argv,"-des") == 0)
			enc=EVP_des_cbc();
		else if (strcmp(*argv,"-des3") == 0)
			enc=EVP_des_ede3_cbc();
#endif
#ifndef OPENSSL_NO_IDEA
		else if (strcmp(*argv,"-idea") == 0)
			enc=EVP_idea_cbc();
#endif
#ifndef OPENSSL_NO_SEED
		else if (strcmp(*argv,"-seed") == 0)
			enc=EVP_seed_cbc();
#endif
#ifndef OPENSSL_NO_AES
		else if (strcmp(*argv,"-aes128") == 0)
			enc=EVP_aes_128_cbc();
		else if (strcmp(*argv,"-aes192") == 0)
			enc=EVP_aes_192_cbc();
		else if (strcmp(*argv,"-aes256") == 0)
			enc=EVP_aes_256_cbc();
#endif
#ifndef OPENSSL_NO_CAMELLIA
		else if (strcmp(*argv,"-camellia128") == 0)
			enc=EVP_camellia_128_cbc();
		else if (strcmp(*argv,"-camellia192") == 0)
			enc=EVP_camellia_192_cbc();
		else if (strcmp(*argv,"-camellia256") == 0)
			enc=EVP_camellia_256_cbc();
#endif
		else if (strcmp(*argv,"-passout") == 0)
			{
			if (--argc < 1) goto bad;
			passargout= *(++argv);
			}
		else
			break;
		argv++;
		argc--;
		}
	if ((argc >= 1) && ((sscanf(*argv,"%d",&num) == 0) || (num < 0)))
		{
bad:
		BIO_printf(bio_err,"usage: genrsa [args] [numbits]\n");
		BIO_printf(bio_err," -des            encrypt the generated key with DES in cbc mode\n");
		BIO_printf(bio_err," -des3           encrypt the generated key with DES in ede cbc mode (168 bit key)\n");
#ifndef OPENSSL_NO_IDEA
		BIO_printf(bio_err," -idea           encrypt the generated key with IDEA in cbc mode\n");
#endif
#ifndef OPENSSL_NO_SEED
		BIO_printf(bio_err," -seed\n");
		BIO_printf(bio_err,"                 encrypt PEM output with cbc seed\n");
#endif
#ifndef OPENSSL_NO_AES
		BIO_printf(bio_err," -aes128, -aes192, -aes256\n");
		BIO_printf(bio_err,"                 encrypt PEM output with cbc aes\n");
#endif
#ifndef OPENSSL_NO_CAMELLIA
		BIO_printf(bio_err," -camellia128, -camellia192, -camellia256\n");
		BIO_printf(bio_err,"                 encrypt PEM output with cbc camellia\n");
#endif
		BIO_printf(bio_err," -out file       output the key to 'file\n");
		BIO_printf(bio_err," -passout arg    output file pass phrase source\n");
		BIO_printf(bio_err," -f4             use F4 (0x10001) for the E value\n");
		BIO_printf(bio_err," -3              use 3 for the E value\n");
#ifndef OPENSSL_NO_ENGINE
		BIO_printf(bio_err," -engine e       use engine e, possibly a hardware device.\n");
#endif
		BIO_printf(bio_err," -rand file%cfile%c...\n", LIST_SEPARATOR_CHAR, LIST_SEPARATOR_CHAR);
		BIO_printf(bio_err,"                 load the file (or the files in the directory) into\n");
		BIO_printf(bio_err,"                 the random number generator\n");
		goto err;
		}
		
	ERR_load_crypto_strings();

	if(!app_passwd(bio_err, NULL, passargout, NULL, &passout)) {
		BIO_printf(bio_err, "Error getting password\n");
		goto err;
	}

#ifndef OPENSSL_NO_ENGINE
        e = setup_engine(bio_err, engine, 0);
#endif

	if (outfile == NULL)
		{
		BIO_set_fp(out,stdout,BIO_NOCLOSE);
#ifdef OPENSSL_SYS_VMS
		{
		BIO *tmpbio = BIO_new(BIO_f_linebuffer());
		out = BIO_push(tmpbio, out);
		}
#endif
		}
	else
		{
		if (BIO_write_filename(out,outfile) <= 0)
			{
			perror(outfile);
			goto err;
			}
		}

	if (!app_RAND_load_file(NULL, bio_err, 1) && inrand == NULL
		&& !RAND_status())
		{
		BIO_printf(bio_err,"warning, not much extra random data, consider using the -rand option\n");
		}
	if (inrand != NULL)
		BIO_printf(bio_err,"%ld semi-random bytes loaded\n",
			app_RAND_load_files(inrand));

	BIO_printf(bio_err,"Generating RSA private key, %d bit long modulus\n",
		num);
#ifdef OPENSSL_NO_ENGINE
	rsa = RSA_new();
#else
	rsa = RSA_new_method(e);
#endif
	if (!rsa)
		goto err;

	if(!BN_set_word(bn, f4) || !RSA_generate_key_ex(rsa, num, bn, &cb))
		goto err;
		
	app_RAND_write_file(NULL, bio_err);

	/* We need to do the following for when the base number size is <
	 * long, esp windows 3.1 :-(. */
	l=0L;
	for (i=0; i<rsa->e->top; i++)
		{
#ifndef SIXTY_FOUR_BIT
		l<<=BN_BITS4;
		l<<=BN_BITS4;
#endif
		l+=rsa->e->d[i];
		}
	BIO_printf(bio_err,"e is %ld (0x%lX)\n",l,l);
	{
	PW_CB_DATA cb_data;
	cb_data.password = passout;
	cb_data.prompt_info = outfile;
	if (!PEM_write_bio_RSAPrivateKey(out,rsa,enc,NULL,0,
		(pem_password_cb *)password_callback,&cb_data))
		goto err;
	}

	ret=0;
err:
	if (bn) BN_free(bn);
	if (rsa) RSA_free(rsa);
	if (out) BIO_free_all(out);
	if(passout) OPENSSL_free(passout);
	if (ret != 0)
		ERR_print_errors(bio_err);
	apps_shutdown();
	OPENSSL_EXIT(ret);
	}

static int MS_CALLBACK genrsa_cb(int p, int n, BN_GENCB *cb)
	{
	char c='*';

	if (p == 0) c='.';
	if (p == 1) c='+';
	if (p == 2) c='*';
	if (p == 3) c='\n';
	BIO_write(cb->arg,&c,1);
	(void)BIO_flush(cb->arg);
#ifdef LINT
	p=n;
#endif
	return 1;
	}
#else /* !OPENSSL_NO_RSA */

# if PEDANTIC
static void *dummy=&dummy;
# endif

#endif
Commit	Line	Data
d02b48c6	1	/* apps/genrsa.c */
58964a49	2	/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
d02b48c6 RE	3	* All rights reserved.
	4	*
	5	* This package is an SSL implementation written
	6	* by Eric Young (eay@cryptsoft.com).
	7	* The implementation was written so as to conform with Netscapes SSL.
	8	*
	9	* This library is free for commercial and non-commercial use as long as
	10	* the following conditions are aheared to. The following conditions
	11	* apply to all code found in this distribution, be it the RC4, RSA,
	12	* lhash, DES, etc., code; not just the SSL code. The SSL documentation
	13	* included with this distribution is covered by the same copyright terms
	14	* except that the holder is Tim Hudson (tjh@cryptsoft.com).
	15	*
	16	* Copyright remains Eric Young's, and as such any Copyright notices in
	17	* the code are not to be removed.
	18	* If this package is used in a product, Eric Young should be given attribution
	19	* as the author of the parts of the library used.
	20	* This can be in the form of a textual message at program startup or
	21	* in documentation (online or textual) provided with the package.
	22	*
	23	* Redistribution and use in source and binary forms, with or without
	24	* modification, are permitted provided that the following conditions
	25	* are met:
	26	* 1. Redistributions of source code must retain the copyright
	27	* notice, this list of conditions and the following disclaimer.
	28	* 2. Redistributions in binary form must reproduce the above copyright
	29	* notice, this list of conditions and the following disclaimer in the
	30	* documentation and/or other materials provided with the distribution.
	31	* 3. All advertising materials mentioning features or use of this software
	32	* must display the following acknowledgement:
	33	* "This product includes cryptographic software written by
	34	* Eric Young (eay@cryptsoft.com)"
	35	* The word 'cryptographic' can be left out if the rouines from the library
	36	* being used are not cryptographic related :-).
	37	* 4. If you include any Windows specific code (or a derivative thereof) from
	38	* the apps directory (application code) you must include an acknowledgement:
	39	* "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
	40	*
	41	* THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
	42	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	43	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	44	* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
	45	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	46	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	47	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	48	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	49	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	50	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	51	* SUCH DAMAGE.
	52	*
	53	* The licence and distribution terms for any publically available version or
	54	* derivative of this code cannot be changed. i.e. this code cannot simply be
	55	* copied and put under another distribution licence
	56	* [including the GNU Public Licence.]
	57	*/
	58
3eeaab4b	59	#include <openssl/opensslconf.h>
5daec7ea GT	60	/* Until the key-gen callbacks are modified to use newer prototypes, we allow
	61	* deprecated functions for openssl-internal code */
	62	#ifdef OPENSSL_NO_DEPRECATED
	63	#undef OPENSSL_NO_DEPRECATED
	64	#endif
	65
cf1b7d96	66	#ifndef OPENSSL_NO_RSA
d02b48c6 RE	67	#include <stdio.h>
	68	#include <string.h>
	69	#include <sys/types.h>
	70	#include <sys/stat.h>
	71	#include "apps.h"
ec577822	72	#include <openssl/bio.h>
ec577822 BM	73	#include <openssl/err.h>
	74	#include <openssl/bn.h>
	75	#include <openssl/rsa.h>
	76	#include <openssl/evp.h>
	77	#include <openssl/x509.h>
	78	#include <openssl/pem.h>
1372965e	79	#include <openssl/rand.h>
d02b48c6 RE	80
	81	#define DEFBITS 512
	82	#undef PROG
	83	#define PROG genrsa_main
	84
2aaec9cc	85	static int MS_CALLBACK genrsa_cb(int p, int n, BN_GENCB *cb);
667ac4ec RE	86
	87	int MAIN(int, char **);
	88
6b691a5c	89	int MAIN(int argc, char **argv)
d02b48c6	90	{
2aaec9cc	91	BN_GENCB cb;
0b13e9f0	92	#ifndef OPENSSL_NO_ENGINE
5270e702	93	ENGINE *e = NULL;
0b13e9f0	94	#endif
d02b48c6	95	int ret=1;
d02b48c6	96	int i,num=DEFBITS;
a31011e8	97	long l;
13588350	98	const EVP_CIPHER *enc=NULL;
d02b48c6 RE	99	unsigned long f4=RSA_F4;
d02b48c6 RE	100	char *outfile=NULL;
a3fe382e	101	char passargout = NULL, passout = NULL;
0b13e9f0	102	#ifndef OPENSSL_NO_ENGINE
5270e702	103	char *engine=NULL;
0b13e9f0	104	#endif
f365611c	105	char *inrand=NULL;
d02b48c6	106	BIO *out=NULL;
bcfea9fb	107	BIGNUM *bn = BN_new();
645532b9	108	RSA *rsa = NULL;
bcfea9fb	109
645532b9	110	if(!bn) goto err;
d02b48c6 RE	111
d02b48c6 RE	112	apps_startup();
2aaec9cc	113	BN_GENCB_set(&cb, genrsa_cb, bio_err);
d02b48c6 RE	114
	115	if (bio_err == NULL)
	116	if ((bio_err=BIO_new(BIO_s_file())) != NULL)
58964a49	117	BIO_set_fp(bio_err,stderr,BIO_NOCLOSE\|BIO_FP_TEXT);
3647bee2 DSH	118
	119	if (!load_config(bio_err, NULL))
	120	goto err;
d02b48c6 RE	121	if ((out=BIO_new(BIO_s_file())) == NULL)
d02b48c6 RE	122	{
657e60fa	123	BIO_printf(bio_err,"unable to create BIO for output\n");
d02b48c6 RE	124	goto err;
	125	}
	126
	127	argv++;
	128	argc--;
	129	for (;;)
	130	{
	131	if (argc <= 0) break;
	132	if (strcmp(*argv,"-out") == 0)
	133	{
	134	if (--argc < 1) goto bad;
	135	outfile= *(++argv);
	136	}
	137	else if (strcmp(*argv,"-3") == 0)
	138	f4=3;
f1d92d94	139	else if (strcmp(argv,"-F4") == 0 \|\| strcmp(argv,"-f4") == 0)
d02b48c6	140	f4=RSA_F4;
0b13e9f0	141	#ifndef OPENSSL_NO_ENGINE
5270e702 RL	142	else if (strcmp(*argv,"-engine") == 0)
	143	{
	144	if (--argc < 1) goto bad;
	145	engine= *(++argv);
	146	}
0b13e9f0	147	#endif
d02b48c6 RE	148	else if (strcmp(*argv,"-rand") == 0)
	149	{
	150	if (--argc < 1) goto bad;
	151	inrand= *(++argv);
	152	}
cf1b7d96	153	#ifndef OPENSSL_NO_DES
d02b48c6 RE	154	else if (strcmp(*argv,"-des") == 0)
	155	enc=EVP_des_cbc();
	156	else if (strcmp(*argv,"-des3") == 0)
	157	enc=EVP_des_ede3_cbc();
	158	#endif
cf1b7d96	159	#ifndef OPENSSL_NO_IDEA
d02b48c6 RE	160	else if (strcmp(*argv,"-idea") == 0)
d02b48c6 RE	161	enc=EVP_idea_cbc();
b3dfaaa1	162	#endif
96afc1cf BM	163	#ifndef OPENSSL_NO_SEED
	164	else if (strcmp(*argv,"-seed") == 0)
	165	enc=EVP_seed_cbc();
	166	#endif
b3dfaaa1 RL	167	#ifndef OPENSSL_NO_AES
	168	else if (strcmp(*argv,"-aes128") == 0)
	169	enc=EVP_aes_128_cbc();
	170	else if (strcmp(*argv,"-aes192") == 0)
	171	enc=EVP_aes_192_cbc();
	172	else if (strcmp(*argv,"-aes256") == 0)
	173	enc=EVP_aes_256_cbc();
f3dea9a5 BM	174	#endif
	175	#ifndef OPENSSL_NO_CAMELLIA
	176	else if (strcmp(*argv,"-camellia128") == 0)
	177	enc=EVP_camellia_128_cbc();
	178	else if (strcmp(*argv,"-camellia192") == 0)
	179	enc=EVP_camellia_192_cbc();
	180	else if (strcmp(*argv,"-camellia256") == 0)
	181	enc=EVP_camellia_256_cbc();
d02b48c6	182	#endif
f07fb9b2 DSH	183	else if (strcmp(*argv,"-passout") == 0)
	184	{
	185	if (--argc < 1) goto bad;
a3fe382e	186	passargout= *(++argv);
f07fb9b2	187	}
d02b48c6 RE	188	else
	189	break;
	190	argv++;
	191	argc--;
	192	}
	193	if ((argc >= 1) && ((sscanf(*argv,"%d",&num) == 0) \|\| (num < 0)))
	194	{
	195	bad:
	196	BIO_printf(bio_err,"usage: genrsa [args] [numbits]\n");
f07fb9b2 DSH	197	BIO_printf(bio_err," -des encrypt the generated key with DES in cbc mode\n");
f07fb9b2 DSH	198	BIO_printf(bio_err," -des3 encrypt the generated key with DES in ede cbc mode (168 bit key)\n");
cf1b7d96	199	#ifndef OPENSSL_NO_IDEA
f07fb9b2	200	BIO_printf(bio_err," -idea encrypt the generated key with IDEA in cbc mode\n");
b3dfaaa1	201	#endif
96afc1cf BM	202	#ifndef OPENSSL_NO_SEED
	203	BIO_printf(bio_err," -seed\n");
	204	BIO_printf(bio_err," encrypt PEM output with cbc seed\n");
	205	#endif
b3dfaaa1 RL	206	#ifndef OPENSSL_NO_AES
	207	BIO_printf(bio_err," -aes128, -aes192, -aes256\n");
	208	BIO_printf(bio_err," encrypt PEM output with cbc aes\n");
f3dea9a5 BM	209	#endif
	210	#ifndef OPENSSL_NO_CAMELLIA
	211	BIO_printf(bio_err," -camellia128, -camellia192, -camellia256\n");
	212	BIO_printf(bio_err," encrypt PEM output with cbc camellia\n");
d02b48c6	213	#endif
f07fb9b2	214	BIO_printf(bio_err," -out file output the key to 'file\n");
a3fe382e	215	BIO_printf(bio_err," -passout arg output file pass phrase source\n");
f07fb9b2 DSH	216	BIO_printf(bio_err," -f4 use F4 (0x10001) for the E value\n");
f07fb9b2 DSH	217	BIO_printf(bio_err," -3 use 3 for the E value\n");
0b13e9f0	218	#ifndef OPENSSL_NO_ENGINE
5270e702	219	BIO_printf(bio_err," -engine e use engine e, possibly a hardware device.\n");
0b13e9f0	220	#endif
afbd0746	221	BIO_printf(bio_err," -rand file%cfile%c...\n", LIST_SEPARATOR_CHAR, LIST_SEPARATOR_CHAR);
f07fb9b2 DSH	222	BIO_printf(bio_err," load the file (or the files in the directory) into\n");
f07fb9b2 DSH	223	BIO_printf(bio_err," the random number generator\n");
d02b48c6 RE	224	goto err;
	225	}
	226
	227	ERR_load_crypto_strings();
a3fe382e DSH	228
	229	if(!app_passwd(bio_err, NULL, passargout, NULL, &passout)) {
	230	BIO_printf(bio_err, "Error getting password\n");
	231	goto err;
	232	}
	233
0b13e9f0	234	#ifndef OPENSSL_NO_ENGINE
531d630b	235	e = setup_engine(bio_err, engine, 0);
0b13e9f0	236	#endif
5270e702	237
d02b48c6	238	if (outfile == NULL)
645749ef	239	{
d02b48c6	240	BIO_set_fp(out,stdout,BIO_NOCLOSE);
bc36ee62	241	#ifdef OPENSSL_SYS_VMS
645749ef RL	242	{
	243	BIO *tmpbio = BIO_new(BIO_f_linebuffer());
	244	out = BIO_push(tmpbio, out);
	245	}
	246	#endif
	247	}
d02b48c6 RE	248	else
	249	{
	250	if (BIO_write_filename(out,outfile) <= 0)
	251	{
	252	perror(outfile);
	253	goto err;
	254	}
	255	}
	256
5270e702 RL	257	if (!app_RAND_load_file(NULL, bio_err, 1) && inrand == NULL
5270e702 RL	258	&& !RAND_status())
d02b48c6	259	{
a31011e8	260	BIO_printf(bio_err,"warning, not much extra random data, consider using the -rand option\n");
d02b48c6	261	}
a31011e8 BM	262	if (inrand != NULL)
	263	BIO_printf(bio_err,"%ld semi-random bytes loaded\n",
	264	app_RAND_load_files(inrand));
d02b48c6 RE	265
	266	BIO_printf(bio_err,"Generating RSA private key, %d bit long modulus\n",
	267	num);
a05b8d0e	268	#ifdef OPENSSL_NO_ENGINE
645532b9	269	rsa = RSA_new();
a05b8d0e DSH	270	#else
	271	rsa = RSA_new_method(e);
	272	#endif
645532b9 DSH	273	if (!rsa)
	274	goto err;
	275
bcfea9fb	276	if(!BN_set_word(bn, f4) \|\| !RSA_generate_key_ex(rsa, num, bn, &cb))
2aaec9cc	277	goto err;
d02b48c6	278
a31011e8	279	app_RAND_write_file(NULL, bio_err);
d02b48c6	280
657e60fa	281	/* We need to do the following for when the base number size is <
d02b48c6 RE	282	* long, esp windows 3.1 :-(. */
	283	l=0L;
	284	for (i=0; i<rsa->e->top; i++)
	285	{
	286	#ifndef SIXTY_FOUR_BIT
	287	l<<=BN_BITS4;
	288	l<<=BN_BITS4;
	289	#endif
	290	l+=rsa->e->d[i];
	291	}
	292	BIO_printf(bio_err,"e is %ld (0x%lX)\n",l,l);
6dcd1c91 RL	293	{
	294	PW_CB_DATA cb_data;
	295	cb_data.password = passout;
	296	cb_data.prompt_info = outfile;
	297	if (!PEM_write_bio_RSAPrivateKey(out,rsa,enc,NULL,0,
	298	(pem_password_cb *)password_callback,&cb_data))
d02b48c6	299	goto err;
6dcd1c91	300	}
d02b48c6 RE	301
	302	ret=0;
	303	err:
bcfea9fb GT	304	if (bn) BN_free(bn);
	305	if (rsa) RSA_free(rsa);
	306	if (out) BIO_free_all(out);
26a3a48d	307	if(passout) OPENSSL_free(passout);
d02b48c6 RE	308	if (ret != 0)
d02b48c6 RE	309	ERR_print_errors(bio_err);
c04f8cf4	310	apps_shutdown();
1c3e4a36	311	OPENSSL_EXIT(ret);
d02b48c6 RE	312	}
d02b48c6 RE	313
2aaec9cc	314	static int MS_CALLBACK genrsa_cb(int p, int n, BN_GENCB *cb)
d02b48c6 RE	315	{
	316	char c='*';
	317
	318	if (p == 0) c='.';
	319	if (p == 1) c='+';
	320	if (p == 2) c='*';
	321	if (p == 3) c='\n';
2aaec9cc GT	322	BIO_write(cb->arg,&c,1);
2aaec9cc GT	323	(void)BIO_flush(cb->arg);
d02b48c6 RE	324	#ifdef LINT
	325	p=n;
	326	#endif
2aaec9cc	327	return 1;
d02b48c6	328	}
cf1b7d96	329	#else /* !OPENSSL_NO_RSA */
752d706a BL	330
	331	# if PEDANTIC
	332	static void *dummy=&dummy;
	333	# endif
	334
f5d7a031	335	#endif