Big apps cleanup (option-parsing, etc)
[openssl.git] / 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 primarility\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, "Specifiy 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 }