]>
Commit | Line | Data |
---|---|---|
b08868c4 DSH |
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 | |
0f113f3e | 9 | * notice, this list of conditions and the following disclaimer. |
b08868c4 DSH |
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 | ||
7e1b7485 RS |
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) | |
0f113f3e | 75 | { |
0f113f3e | 76 | BIGNUM *bn = NULL; |
7e1b7485 RS |
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: | |
0f113f3e | 93 | hex = 1; |
7e1b7485 RS |
94 | break; |
95 | case OPT_GENERATE: | |
0f113f3e | 96 | generate = 1; |
7e1b7485 RS |
97 | break; |
98 | case OPT_BITS: | |
99 | bits = atoi(opt_arg()); | |
100 | break; | |
101 | case OPT_SAFE: | |
0f113f3e | 102 | safe = 1; |
7e1b7485 RS |
103 | break; |
104 | case OPT_CHECKS: | |
105 | checks = atoi(opt_arg()); | |
106 | break; | |
0f113f3e | 107 | } |
0f113f3e | 108 | } |
7e1b7485 RS |
109 | argc = opt_num_rest(); |
110 | argv = opt_rest(); | |
0f113f3e | 111 | |
296f54ee RL |
112 | if (!app_load_modules(NULL)) |
113 | goto end; | |
114 | ||
7e1b7485 RS |
115 | if (argc == 0 && !generate) { |
116 | BIO_printf(bio_err, "%s: No prime specified\n", prog); | |
117 | goto end; | |
0f113f3e MC |
118 | } |
119 | ||
120 | if (generate) { | |
121 | char *s; | |
122 | ||
123 | if (!bits) { | |
5573ee36 | 124 | BIO_printf(bio_err, "Specify the number of bits.\n"); |
7e1b7485 | 125 | goto end; |
0f113f3e MC |
126 | } |
127 | bn = BN_new(); | |
128 | BN_generate_prime_ex(bn, bits, safe, NULL, NULL, NULL); | |
129 | s = hex ? BN_bn2hex(bn) : BN_bn2dec(bn); | |
130 | BIO_printf(bio_out, "%s\n", s); | |
131 | OPENSSL_free(s); | |
132 | } else { | |
7e1b7485 RS |
133 | for ( ; *argv; argv++) { |
134 | if (hex) | |
135 | BN_hex2bn(&bn, argv[0]); | |
136 | else | |
137 | BN_dec2bn(&bn, argv[0]); | |
0f113f3e | 138 | |
7e1b7485 RS |
139 | BN_print(bio_out, bn); |
140 | BIO_printf(bio_out, " (%s) %s prime\n", | |
141 | argv[0], | |
142 | BN_is_prime_ex(bn, checks, NULL, NULL) | |
143 | ? "is" : "is not"); | |
144 | } | |
0f113f3e | 145 | } |
b08868c4 DSH |
146 | |
147 | BN_free(bn); | |
b08868c4 | 148 | |
7e1b7485 RS |
149 | end: |
150 | return ret; | |
0f113f3e | 151 | } |