apps/prime.c

   1 /* ====================================================================
   2  * Copyright (c) 2004 The OpenSSL Project.  All rights reserved.
   3  *
   4  * Redistribution and use in source and binary forms, with or without
   5  * modification, are permitted provided that the following conditions
   6  * are met:
   7  *
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  *
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in
  13  *    the documentation and/or other materials provided with the
  14  *    distribution.
  15  *
  16  * 3. All advertising materials mentioning features or use of this
  17  *    software must display the following acknowledgment:
  18  *    "This product includes software developed by the OpenSSL Project
  19  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
  20  *
  21  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  22  *    endorse or promote products derived from this software without
  23  *    prior written permission. For written permission, please contact
  24  *    openssl-core@openssl.org.
  25  *
  26  * 5. Products derived from this software may not be called "OpenSSL"
  27  *    nor may "OpenSSL" appear in their names without prior written
  28  *    permission of the OpenSSL Project.
  29  *
  30  * 6. Redistributions of any form whatsoever must retain the following
  31  *    acknowledgment:
  32  *    "This product includes software developed by the OpenSSL Project
  33  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
  34  *
  35  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  36  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  37  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  38  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
  39  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  40  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  41  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  42  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  43  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  44  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  45  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  46  * OF THE POSSIBILITY OF SUCH DAMAGE.
  47  *
  48  */
  49
  50 #include <string.h>
  51
  52 #include "apps.h"
  53 #include <openssl/bn.h>
  54
  55 typedef enum OPTION_choice {
  56     OPT_ERR = -1, OPT_EOF = 0, OPT_HELP,
  57     OPT_HEX, OPT_GENERATE, OPT_BITS, OPT_SAFE, OPT_CHECKS
  58 } OPTION_CHOICE;
  59
  60 OPTIONS prime_options[] = {
  61     {OPT_HELP_STR, 1, '-', "Usage: %s [options] [number...]\n"},
  62     {OPT_HELP_STR, 1, '-',
  63         "  number Number to check for primality\n"},
  64     {"help", OPT_HELP, '-', "Display this summary"},
  65     {"hex", OPT_HEX, '-', "Hex output"},
  66     {"generate", OPT_GENERATE, '-', "Generate a prime"},
  67     {"bits", OPT_BITS, 'p', "Size of number in bits"},
  68     {"safe", OPT_SAFE, '-',
  69      "When used with -generate, generate a safe prime"},
  70     {"checks", OPT_CHECKS, 'p', "Number of checks"},
  71     {NULL}
  72 };
  73
  74 int prime_main(int argc, char **argv)
  75 {
  76     BIGNUM *bn = NULL;
  77     int hex = 0, checks = 20, generate = 0, bits = 0, safe = 0, ret = 1;
  78     char *prog;
  79     OPTION_CHOICE o;
  80
  81     prog = opt_init(argc, argv, prime_options);
  82     while ((o = opt_next()) != OPT_EOF) {
  83         switch (o) {
  84         case OPT_EOF:
  85         case OPT_ERR:
  86             BIO_printf(bio_err, "%s: Use -help for summary.\n", prog);
  87             goto end;
  88         case OPT_HELP:
  89             opt_help(prime_options);
  90             ret = 0;
  91             goto end;
  92         case OPT_HEX:
  93             hex = 1;
  94             break;
  95         case OPT_GENERATE:
  96             generate = 1;
  97             break;
  98         case OPT_BITS:
  99             bits = atoi(opt_arg());
 100             break;
 101         case OPT_SAFE:
 102             safe = 1;
 103             break;
 104         case OPT_CHECKS:
 105             checks = atoi(opt_arg());
 106             break;
 107         }
 108     }
 109     argc = opt_num_rest();
 110     argv = opt_rest();
 111
 112     if (argc == 0 && !generate) {
 113         BIO_printf(bio_err, "%s: No prime specified\n", prog);
 114         goto end;
 115     }
 116
 117     if (generate) {
 118         char *s;
 119
 120         if (!bits) {
 121             BIO_printf(bio_err, "Specify the number of bits.\n");
 122             goto end;
 123         }
 124         bn = BN_new();
 125         BN_generate_prime_ex(bn, bits, safe, NULL, NULL, NULL);
 126         s = hex ? BN_bn2hex(bn) : BN_bn2dec(bn);
 127         BIO_printf(bio_out, "%s\n", s);
 128         OPENSSL_free(s);
 129     } else {
 130         for ( ; *argv; argv++) {
 131             if (hex)
 132                 BN_hex2bn(&bn, argv[0]);
 133             else
 134                 BN_dec2bn(&bn, argv[0]);
 135
 136             BN_print(bio_out, bn);
 137             BIO_printf(bio_out, " (%s) %s prime\n",
 138                        argv[0],
 139                        BN_is_prime_ex(bn, checks, NULL, NULL)
 140                            ? "is" : "is not");
 141         }
 142     }
 143
 144     BN_free(bn);
 145
 146  end:
 147     return ret;
 148 }