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