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 56#undef PROG 57#define PROG prime_main 58 59int MAIN(int argc, char **argv) 60 { 61 int hex=0; 62 int checks=20; 63 BIGNUM *bn=NULL; 64 BIO *bio_out; 65 66 apps_startup(); 67 68 if (bio_err == NULL) 69 if ((bio_err=BIO_new(BIO_s_file())) != NULL) 70 BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT); 71 72 --argc; 73 ++argv; 74 while (argc >= 1 && **argv == '-') 75 { 76 if(!strcmp(*argv,"-hex")) 77 hex=1; 78 else if(!strcmp(*argv,"-checks")) 79 if(--argc < 1) 80 goto bad; 81 else 82 checks=atoi(*++argv); 83 else 84 { 85 BIO_printf(bio_err,"Unknown option '%s'\n",*argv); 86 goto bad; 87 } 88 --argc; 89 ++argv; 90 } 91 92 if (argv[0] == NULL) 93 { 94 BIO_printf(bio_err,"No prime specified\n"); 95 goto bad; 96 } 97 98 if ((bio_out=BIO_new(BIO_s_file())) != NULL) 99 { 100 BIO_set_fp(bio_out,stdout,BIO_NOCLOSE); 101#ifdef OPENSSL_SYS_VMS 102 { 103 BIO *tmpbio = BIO_new(BIO_f_linebuffer()); 104 bio_out = BIO_push(tmpbio, bio_out); 105 } 106#endif 107 } 108 109 if(hex) 110 BN_hex2bn(&bn,argv[0]); 111 else 112 BN_dec2bn(&bn,argv[0]); 113 114 BN_print(bio_out,bn); 115 BIO_printf(bio_out," is %sprime\n", 116 BN_is_prime(bn,checks,NULL,NULL,NULL) ? "" : "not "); 117 118 BN_free(bn); 119 BIO_free_all(bio_out); 120 121 return 0; 122 123 bad: 124 BIO_printf(bio_err,"options are\n"); 125 BIO_printf(bio_err,"%-14s hex\n","-hex"); 126 BIO_printf(bio_err,"%-14s number of checks\n","-checks <n>"); 127 return 1; 128 } 129