crypto/libressl/apps/openssl/genrsa.c

   1 /* $OpenBSD: genrsa.c,v 1.7 2015/10/17 07:51:10 semarie Exp $ */
   2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
   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
  59 #include <openssl/opensslconf.h>
  60
  61 /* Until the key-gen callbacks are modified to use newer prototypes, we allow
  62  * deprecated functions for openssl-internal code */
  63 #ifdef OPENSSL_NO_DEPRECATED
  64 #undef OPENSSL_NO_DEPRECATED
  65 #endif
  66
  67
  68 #include <sys/types.h>
  69 #include <sys/stat.h>
  70
  71 #include <stdio.h>
  72 #include <string.h>
  73
  74 #include "apps.h"
  75
  76 #include <openssl/bio.h>
  77 #include <openssl/bn.h>
  78 #include <openssl/err.h>
  79 #include <openssl/evp.h>
  80 #include <openssl/pem.h>
  81 #include <openssl/rsa.h>
  82 #include <openssl/x509.h>
  83
  84 #define DEFBITS 2048
  85
  86 static int genrsa_cb(int p, int n, BN_GENCB * cb);
  87
  88 int
  89 genrsa_main(int argc, char **argv)
  90 {
  91         BN_GENCB cb;
  92         int ret = 1;
  93         int i, num = DEFBITS;
  94         long l;
  95         const EVP_CIPHER *enc = NULL;
  96         unsigned long f4 = RSA_F4;
  97         char *outfile = NULL;
  98         char *passargout = NULL, *passout = NULL;
  99         BIO *out = NULL;
 100         BIGNUM *bn = BN_new();
 101         RSA *rsa = NULL;
 102
 103         if (single_execution) {
 104                 if (pledge("stdio rpath wpath cpath tty", NULL) == -1) {
 105                         perror("pledge");
 106                         exit(1);
 107                 }
 108         }
 109
 110         if (!bn)
 111                 goto err;
 112
 113         BN_GENCB_set(&cb, genrsa_cb, bio_err);
 114
 115         if ((out = BIO_new(BIO_s_file())) == NULL) {
 116                 BIO_printf(bio_err, "unable to create BIO for output\n");
 117                 goto err;
 118         }
 119         argv++;
 120         argc--;
 121         for (;;) {
 122                 if (argc <= 0)
 123                         break;
 124                 if (strcmp(*argv, "-out") == 0) {
 125                         if (--argc < 1)
 126                                 goto bad;
 127                         outfile = *(++argv);
 128                 } else if (strcmp(*argv, "-3") == 0)
 129                         f4 = 3;
 130                 else if (strcmp(*argv, "-F4") == 0 || strcmp(*argv, "-f4") == 0)
 131                         f4 = RSA_F4;
 132 #ifndef OPENSSL_NO_DES
 133                 else if (strcmp(*argv, "-des") == 0)
 134                         enc = EVP_des_cbc();
 135                 else if (strcmp(*argv, "-des3") == 0)
 136                         enc = EVP_des_ede3_cbc();
 137 #endif
 138 #ifndef OPENSSL_NO_IDEA
 139                 else if (strcmp(*argv, "-idea") == 0)
 140                         enc = EVP_idea_cbc();
 141 #endif
 142 #ifndef OPENSSL_NO_AES
 143                 else if (strcmp(*argv, "-aes128") == 0)
 144                         enc = EVP_aes_128_cbc();
 145                 else if (strcmp(*argv, "-aes192") == 0)
 146                         enc = EVP_aes_192_cbc();
 147                 else if (strcmp(*argv, "-aes256") == 0)
 148                         enc = EVP_aes_256_cbc();
 149 #endif
 150 #ifndef OPENSSL_NO_CAMELLIA
 151                 else if (strcmp(*argv, "-camellia128") == 0)
 152                         enc = EVP_camellia_128_cbc();
 153                 else if (strcmp(*argv, "-camellia192") == 0)
 154                         enc = EVP_camellia_192_cbc();
 155                 else if (strcmp(*argv, "-camellia256") == 0)
 156                         enc = EVP_camellia_256_cbc();
 157 #endif
 158                 else if (strcmp(*argv, "-passout") == 0) {
 159                         if (--argc < 1)
 160                                 goto bad;
 161                         passargout = *(++argv);
 162                 } else
 163                         break;
 164                 argv++;
 165                 argc--;
 166         }
 167         if ((argc >= 1) && ((sscanf(*argv, "%d", &num) == 0) || (num < 0))) {
 168 bad:
 169                 BIO_printf(bio_err, "usage: genrsa [args] [numbits]\n");
 170                 BIO_printf(bio_err, " -des            encrypt the generated key with DES in cbc mode\n");
 171                 BIO_printf(bio_err, " -des3           encrypt the generated key with DES in ede cbc mode (168 bit key)\n");
 172 #ifndef OPENSSL_NO_IDEA
 173                 BIO_printf(bio_err, " -idea           encrypt the generated key with IDEA in cbc mode\n");
 174 #endif
 175 #ifndef OPENSSL_NO_AES
 176                 BIO_printf(bio_err, " -aes128, -aes192, -aes256\n");
 177                 BIO_printf(bio_err, "                 encrypt PEM output with cbc aes\n");
 178 #endif
 179 #ifndef OPENSSL_NO_CAMELLIA
 180                 BIO_printf(bio_err, " -camellia128, -camellia192, -camellia256\n");
 181                 BIO_printf(bio_err, "                 encrypt PEM output with cbc camellia\n");
 182 #endif
 183                 BIO_printf(bio_err, " -out file       output the key to 'file\n");
 184                 BIO_printf(bio_err, " -passout arg    output file pass phrase source\n");
 185                 BIO_printf(bio_err, " -f4             use F4 (0x10001) for the E value\n");
 186                 BIO_printf(bio_err, " -3              use 3 for the E value\n");
 187                 goto err;
 188         }
 189
 190         if (!app_passwd(bio_err, NULL, passargout, NULL, &passout)) {
 191                 BIO_printf(bio_err, "Error getting password\n");
 192                 goto err;
 193         }
 194
 195         if (outfile == NULL) {
 196                 BIO_set_fp(out, stdout, BIO_NOCLOSE);
 197         } else {
 198                 if (BIO_write_filename(out, outfile) <= 0) {
 199                         perror(outfile);
 200                         goto err;
 201                 }
 202         }
 203
 204         BIO_printf(bio_err, "Generating RSA private key, %d bit long modulus\n",
 205             num);
 206         rsa = RSA_new();
 207         if (!rsa)
 208                 goto err;
 209
 210         if (!BN_set_word(bn, f4) || !RSA_generate_key_ex(rsa, num, bn, &cb))
 211                 goto err;
 212
 213         /*
 214          * We need to do the following for when the base number size is <
 215          * long, esp windows 3.1 :-(.
 216          */
 217         l = 0L;
 218         for (i = 0; i < rsa->e->top; i++) {
 219 #ifndef _LP64
 220                 l <<= BN_BITS4;
 221                 l <<= BN_BITS4;
 222 #endif
 223                 l += rsa->e->d[i];
 224         }
 225         BIO_printf(bio_err, "e is %ld (0x%lX)\n", l, l);
 226         {
 227                 PW_CB_DATA cb_data;
 228                 cb_data.password = passout;
 229                 cb_data.prompt_info = outfile;
 230                 if (!PEM_write_bio_RSAPrivateKey(out, rsa, enc, NULL, 0,
 231                         password_callback, &cb_data))
 232                         goto err;
 233         }
 234
 235         ret = 0;
 236 err:
 237         if (bn)
 238                 BN_free(bn);
 239         if (rsa)
 240                 RSA_free(rsa);
 241         if (out)
 242                 BIO_free_all(out);
 243         free(passout);
 244         if (ret != 0)
 245                 ERR_print_errors(bio_err);
 246
 247         return (ret);
 248 }
 249
 250 static int
 251 genrsa_cb(int p, int n, BN_GENCB * cb)
 252 {
 253         char c = '*';
 254
 255         if (p == 0)
 256                 c = '.';
 257         if (p == 1)
 258                 c = '+';
 259         if (p == 2)
 260                 c = '*';
 261         if (p == 3)
 262                 c = '\n';
 263         BIO_write(cb->arg, &c, 1);
 264         (void) BIO_flush(cb->arg);
 265         return 1;
 266 }