diff options
Diffstat (limited to 'regress/lib/libcrypto')
| -rw-r--r-- | regress/lib/libcrypto/bn/general/Makefile | 8 | ||||
| -rw-r--r-- | regress/lib/libcrypto/bn/general/bn_primes.c | 90 |
2 files changed, 97 insertions, 1 deletions
diff --git a/regress/lib/libcrypto/bn/general/Makefile b/regress/lib/libcrypto/bn/general/Makefile index 4f1fcc852a0..4c36648ec76 100644 --- a/regress/lib/libcrypto/bn/general/Makefile +++ b/regress/lib/libcrypto/bn/general/Makefile @@ -1,16 +1,18 @@ -# $OpenBSD: Makefile,v 1.10 2022/03/16 12:37:44 bluhm Exp $ +# $OpenBSD: Makefile,v 1.11 2022/06/18 19:53:19 tb Exp $ .include "../../Makefile.inc" PROGS += bntest PROGS += bn_mod_exp2_mont PROGS += bn_mod_sqrt +PROGS += bn_primes PROGS += bn_to_string LDADD = ${CRYPTO_INT} DPADD = ${LIBCRYPTO} WARNINGS = Yes CFLAGS += -Werror +CFLAGS += -I${.CURDIR}/../../../../../lib/libcrypto/bn/ CLEANFILES = bntest.out bc.out REGRESS_TARGETS += run-bntest @@ -30,6 +32,10 @@ REGRESS_TARGETS += run-bn_mod_sqrt run-bn_mod_sqrt: bn_mod_sqrt ./bn_mod_sqrt +REGRESS_TARGETS += run-bn_primes +run-bn_primes: bn_primes + ./bn_primes + REGRESS_TARGETS += run-bn_to_string run-bn_to_string: bn_to_string ./bn_to_string diff --git a/regress/lib/libcrypto/bn/general/bn_primes.c b/regress/lib/libcrypto/bn/general/bn_primes.c new file mode 100644 index 00000000000..f9d358f7091 --- /dev/null +++ b/regress/lib/libcrypto/bn/general/bn_primes.c @@ -0,0 +1,90 @@ +/* $OpenBSD: bn_primes.c,v 1.1 2022/06/18 19:53:19 tb Exp $ */ +/* + * Copyright (c) 2022 Theo Buehler <tb@openbsd.org> + * + * Permission to use, copy, modify, and distribute this software for any + * purpose with or without fee is hereby granted, provided that the above + * copyright notice and this permission notice appear in all copies. + * + * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES + * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF + * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR + * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES + * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN + * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF + * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + */ + +#include <openssl/bn.h> + +#include "bn_prime.h" + +static int +test_bn_is_prime_fasttest(int do_trial_division) +{ + BIGNUM *n = NULL; + char *descr = NULL; + prime_t i, j, max; + int is_prime, ret; + int failed = 1; + + if (asprintf(&descr, "with%s trial divisions", + do_trial_division ? "" : "out") == -1) { + descr = NULL; + fprintf(stderr, "asprintf failed\n"); + goto err; + } + + if ((n = BN_new()) == NULL) { + fprintf(stderr, "BN_new failed\n"); + goto err; + } + + max = primes[NUMPRIMES - 1] + 1; + + failed = 0; + for (i = 1, j = 0; i < max && j < NUMPRIMES; i++) { + if (!BN_set_word(n, i)) { + fprintf(stderr, "BN_set_word(%d) failed", i); + failed = 1; + goto err; + } + + is_prime = i == primes[j]; + if (is_prime) + j++; + + ret = BN_is_prime_fasttest_ex(n, BN_prime_checks, NULL, + do_trial_division, NULL); + if (ret != is_prime) { + fprintf(stderr, + "BN_is_prime_fasttest_ex(%d) %s: want %d, got %d\n", + i, descr, is_prime, ret); + failed = 1; + } + } + + if (i < max || j < NUMPRIMES) { + fprintf(stderr, "%s: %d < %d or %d < %d\n", descr, i, max, j, + NUMPRIMES); + failed = 1; + } + + err: + BN_free(n); + free(descr); + return failed; +} + +int +main(void) +{ + int failed = 0; + + failed |= test_bn_is_prime_fasttest(0); + failed |= test_bn_is_prime_fasttest(1); + + printf("%s\n", failed ? "FAILED" : "SUCCESS"); + + return failed; +} |