1*2139Sjp161948 /* ====================================================================
2*2139Sjp161948 * Copyright (c) 2004 The OpenSSL Project. All rights reserved.
3*2139Sjp161948 *
4*2139Sjp161948 * Redistribution and use in source and binary forms, with or without
5*2139Sjp161948 * modification, are permitted provided that the following conditions
6*2139Sjp161948 * are met:
7*2139Sjp161948 *
8*2139Sjp161948 * 1. Redistributions of source code must retain the above copyright
9*2139Sjp161948 * notice, this list of conditions and the following disclaimer.
10*2139Sjp161948 *
11*2139Sjp161948 * 2. Redistributions in binary form must reproduce the above copyright
12*2139Sjp161948 * notice, this list of conditions and the following disclaimer in
13*2139Sjp161948 * the documentation and/or other materials provided with the
14*2139Sjp161948 * distribution.
15*2139Sjp161948 *
16*2139Sjp161948 * 3. All advertising materials mentioning features or use of this
17*2139Sjp161948 * software must display the following acknowledgment:
18*2139Sjp161948 * "This product includes software developed by the OpenSSL Project
19*2139Sjp161948 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
20*2139Sjp161948 *
21*2139Sjp161948 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
22*2139Sjp161948 * endorse or promote products derived from this software without
23*2139Sjp161948 * prior written permission. For written permission, please contact
24*2139Sjp161948 * openssl-core@openssl.org.
25*2139Sjp161948 *
26*2139Sjp161948 * 5. Products derived from this software may not be called "OpenSSL"
27*2139Sjp161948 * nor may "OpenSSL" appear in their names without prior written
28*2139Sjp161948 * permission of the OpenSSL Project.
29*2139Sjp161948 *
30*2139Sjp161948 * 6. Redistributions of any form whatsoever must retain the following
31*2139Sjp161948 * acknowledgment:
32*2139Sjp161948 * "This product includes software developed by the OpenSSL Project
33*2139Sjp161948 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
34*2139Sjp161948 *
35*2139Sjp161948 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
36*2139Sjp161948 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
37*2139Sjp161948 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
38*2139Sjp161948 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
39*2139Sjp161948 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
40*2139Sjp161948 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
41*2139Sjp161948 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
42*2139Sjp161948 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
43*2139Sjp161948 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
44*2139Sjp161948 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
45*2139Sjp161948 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
46*2139Sjp161948 * OF THE POSSIBILITY OF SUCH DAMAGE.
47*2139Sjp161948 *
48*2139Sjp161948 */
49*2139Sjp161948
50*2139Sjp161948 #include <string.h>
51*2139Sjp161948
52*2139Sjp161948 #include "apps.h"
53*2139Sjp161948 #include <openssl/bn.h>
54*2139Sjp161948
55*2139Sjp161948
56*2139Sjp161948 #undef PROG
57*2139Sjp161948 #define PROG prime_main
58*2139Sjp161948
59*2139Sjp161948 int MAIN(int, char **);
60*2139Sjp161948
MAIN(int argc,char ** argv)61*2139Sjp161948 int MAIN(int argc, char **argv)
62*2139Sjp161948 {
63*2139Sjp161948 int hex=0;
64*2139Sjp161948 int checks=20;
65*2139Sjp161948 BIGNUM *bn=NULL;
66*2139Sjp161948 BIO *bio_out;
67*2139Sjp161948
68*2139Sjp161948 apps_startup();
69*2139Sjp161948
70*2139Sjp161948 if (bio_err == NULL)
71*2139Sjp161948 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
72*2139Sjp161948 BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
73*2139Sjp161948
74*2139Sjp161948 --argc;
75*2139Sjp161948 ++argv;
76*2139Sjp161948 while (argc >= 1 && **argv == '-')
77*2139Sjp161948 {
78*2139Sjp161948 if(!strcmp(*argv,"-hex"))
79*2139Sjp161948 hex=1;
80*2139Sjp161948 else if(!strcmp(*argv,"-checks"))
81*2139Sjp161948 if(--argc < 1)
82*2139Sjp161948 goto bad;
83*2139Sjp161948 else
84*2139Sjp161948 checks=atoi(*++argv);
85*2139Sjp161948 else
86*2139Sjp161948 {
87*2139Sjp161948 BIO_printf(bio_err,"Unknown option '%s'\n",*argv);
88*2139Sjp161948 goto bad;
89*2139Sjp161948 }
90*2139Sjp161948 --argc;
91*2139Sjp161948 ++argv;
92*2139Sjp161948 }
93*2139Sjp161948
94*2139Sjp161948 if (argv[0] == NULL)
95*2139Sjp161948 {
96*2139Sjp161948 BIO_printf(bio_err,"No prime specified\n");
97*2139Sjp161948 goto bad;
98*2139Sjp161948 }
99*2139Sjp161948
100*2139Sjp161948 if ((bio_out=BIO_new(BIO_s_file())) != NULL)
101*2139Sjp161948 {
102*2139Sjp161948 BIO_set_fp(bio_out,stdout,BIO_NOCLOSE);
103*2139Sjp161948 #ifdef OPENSSL_SYS_VMS
104*2139Sjp161948 {
105*2139Sjp161948 BIO *tmpbio = BIO_new(BIO_f_linebuffer());
106*2139Sjp161948 bio_out = BIO_push(tmpbio, bio_out);
107*2139Sjp161948 }
108*2139Sjp161948 #endif
109*2139Sjp161948 }
110*2139Sjp161948
111*2139Sjp161948 if(hex)
112*2139Sjp161948 BN_hex2bn(&bn,argv[0]);
113*2139Sjp161948 else
114*2139Sjp161948 BN_dec2bn(&bn,argv[0]);
115*2139Sjp161948
116*2139Sjp161948 BN_print(bio_out,bn);
117*2139Sjp161948 BIO_printf(bio_out," is %sprime\n",
118*2139Sjp161948 BN_is_prime_ex(bn,checks,NULL,NULL) ? "" : "not ");
119*2139Sjp161948
120*2139Sjp161948 BN_free(bn);
121*2139Sjp161948 BIO_free_all(bio_out);
122*2139Sjp161948
123*2139Sjp161948 return 0;
124*2139Sjp161948
125*2139Sjp161948 bad:
126*2139Sjp161948 BIO_printf(bio_err,"options are\n");
127*2139Sjp161948 BIO_printf(bio_err,"%-14s hex\n","-hex");
128*2139Sjp161948 BIO_printf(bio_err,"%-14s number of checks\n","-checks <n>");
129*2139Sjp161948 return 1;
130*2139Sjp161948 }
131