Commit 4ef9d25c authored by Niels Möller's avatar Niels Möller

* testsuite/rsa-keygen-test.c: New file.

* testsuite/knuth-lfib-test.c: New file.

Rev: src/nettle/testsuite/knuth-lfib-test.c:1.1
Rev: src/nettle/testsuite/rsa-keygen-test.c:1.1
parent e89a1126
#include "testutils.h"
#include "knuth-lfib.h"
int
test_main(void)
{
struct knuth_lfib_ctx ctx;
uint32_t a[2009];
uint32_t x;
unsigned m;
knuth_lfib_init(&ctx, 310952);
for (m = 0; m<2009; m++)
knuth_lfib_get_array(&ctx, 1009, a);
x = knuth_lfib_get(&ctx);
if (x != 461390032)
FAIL();
SUCCESS();
}
#include "testutils.h"
#include "knuth-lfib.h"
static void
progress(void *ctx, int c)
{
fputc(c, stderr);
}
static void
test_rsa_key(struct rsa_public_key *pub,
struct rsa_private_key *key)
{
mpz_t tmp;
mpz_t phi;
mpz_init(tmp); mpz_init(phi);
if (verbose)
{
/* FIXME: Use gmp_printf */
fprintf(stderr, "Public key: n=");
mpz_out_str(stderr, 16, pub->n);
fprintf(stderr, "\n e=");
mpz_out_str(stderr, 16, pub->e);
fprintf(stderr, "\n\nPrivate key: d=");
mpz_out_str(stderr, 16, key->d);
fprintf(stderr, "\n p=");
mpz_out_str(stderr, 16, key->p);
fprintf(stderr, "\n q=");
mpz_out_str(stderr, 16, key->q);
fprintf(stderr, "\n a=");
mpz_out_str(stderr, 16, key->a);
fprintf(stderr, "\n b=");
mpz_out_str(stderr, 16, key->b);
fprintf(stderr, "\n c=");
mpz_out_str(stderr, 16, key->c);
fprintf(stderr, "\n\n");
}
/* Check n = p q */
mpz_mul(tmp, key->p, key->q);
if (mpz_cmp(tmp, pub->n))
FAIL();
/* Check c q = 1 mod p */
mpz_mul(tmp, key->c, key->q);
mpz_fdiv_r(tmp, tmp, key->p);
if (mpz_cmp_ui(tmp, 1))
FAIL();
/* Check ed = 1 (mod phi) */
mpz_sub_ui(phi, key->p, 1);
mpz_sub_ui(tmp, key->q, 1);
mpz_mul(phi, phi, tmp);
mpz_mul(tmp, pub->e, key->d);
mpz_fdiv_r(tmp, tmp, phi);
if (mpz_cmp_ui(tmp, 1))
FAIL();
/* Check a e = 1 (mod (p-1) ) */
mpz_sub_ui(phi, key->p, 1);
mpz_mul(tmp, pub->e, key->a);
mpz_fdiv_r(tmp, tmp, phi);
if (mpz_cmp_ui(tmp, 1))
FAIL();
/* Check b e = 1 (mod (q-1) ) */
mpz_sub_ui(phi, key->q, 1);
mpz_mul(tmp, pub->e, key->b);
mpz_fdiv_r(tmp, tmp, phi);
if (mpz_cmp_ui(tmp, 1))
FAIL();
mpz_clear(tmp); mpz_clear(phi);
}
int
test_main(void)
{
#if HAVE_LIBGMP
struct rsa_public_key pub;
struct rsa_private_key key;
struct knuth_lfib_ctx lfib;
mpz_t expected;
mpz_init(expected);
rsa_init_private_key(&key);
rsa_init_public_key(&pub);
/* Generate a 1024 bit key with random e */
knuth_lfib_init(&lfib, 13);
if (!rsa_generate_keypair(&pub, &key,
&lfib, (nettle_random_func) knuth_lfib_random,
NULL, verbose ? progress : NULL,
1024, 50))
FAIL();
test_rsa_key(&pub, &key);
mpz_set_str(expected,
"34db1d465b94b12f" "bc1c024d2c6385ff" "a52a6aeb1754a58b"
"b9f0ace0186cfd45" "3963e33440b88696" "513b50956ff463c6"
"c369830dbe9f0605" "68c796cfe29ab35e" "722af1d3f5835610"
"4fb7bb44d6f319d9" "1a1fcc789ab79e82" "98bac0d68187f05a"
"1d0c1fcc324d1e0e" "69a4653de09c7c5b" "2278b3658b95b104"
"bafcfe2b5f9f88e3", 16);
test_rsa_md5(&pub, &key, expected);
/* Generate a 2000 bit key with fixed e */
knuth_lfib_init(&lfib, 17);
mpz_set_ui(pub.e, 17);
if (!rsa_generate_keypair(&pub, &key,
&lfib, (nettle_random_func) knuth_lfib_random,
NULL, verbose ? progress : NULL,
2000, 0))
FAIL();
test_rsa_key(&pub, &key);
mpz_set_str(expected,
"a311f80570e2c7b3" "d4888aae13c4c29b" "aa0139339809e581"
"98722ca37c4a95ea" "0c94aae3b712f2a1" "ea0784a7ddea5127"
"ca5dd218b96a9dac" "f607a90dfcb9458e" "cebdd0c25d84d0b9"
"3c74ac49d678f25a" "4a4493092c2e79d2" "d3b399ec589643a6"
"244e7b5c202fda3a" "9de1b5224d95ddb2" "a381b7cd061a85cb"
"dc65af62213da9d0" "636439ee50642694" "11137ef8c2e8887f"
"55e795e0b0ac6eb2" "b8576973a0d8ebda" "a8ee1e4ba23e4338"
"15121310036920d0" "906844742e6ed25f" "b2bb3fe9caadf7ae"
"fcd84d53730cf570" "1c8666c60238cfd4" "2fd1b6346a7d06fa"
"44df010cfc7a3bca" "8cadd0cd9b68fa8b" "41204cbf8fdb6775"
"f92107ef036bf139" "99bf", 16);
test_rsa_sha1(&pub, &key, expected);
rsa_clear_private_key(&key);
rsa_clear_public_key(&pub);
mpz_clear(expected);
SUCCESS();
#else /* !HAVE_LIBGMP */
SKIP();
#endif /* !HAVE_LIBGMP */
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment