Convert memset calls to OPENSSL_cleanse
[openssl.git] / crypto / bn / divtest.c
1 #include <openssl/bn.h>
2 #include <openssl/rand.h>
3
4 static int Rand(n)
5 {
6     unsigned char x[2];
7     RAND_pseudo_bytes(x, 2);
8     return (x[0] + 2 * x[1]);
9 }
10
11 static void bug(char *m, BIGNUM *a, BIGNUM *b)
12 {
13     printf("%s!\na=", m);
14     BN_print_fp(stdout, a);
15     printf("\nb=");
16     BN_print_fp(stdout, b);
17     printf("\n");
18     fflush(stdout);
19 }
20
21 main()
22 {
23     BIGNUM *a = BN_new(), *b = BN_new(), *c = BN_new(), *d = BN_new(),
24         *C = BN_new(), *D = BN_new();
25     BN_RECP_CTX *recp = BN_RECP_CTX_new();
26     BN_CTX *ctx = BN_CTX_new();
27
28     for (;;) {
29         BN_pseudo_rand(a, Rand(), 0, 0);
30         BN_pseudo_rand(b, Rand(), 0, 0);
31         if (BN_is_zero(b))
32             continue;
33
34         BN_RECP_CTX_set(recp, b, ctx);
35         if (BN_div(C, D, a, b, ctx) != 1)
36             bug("BN_div failed", a, b);
37         if (BN_div_recp(c, d, a, recp, ctx) != 1)
38             bug("BN_div_recp failed", a, b);
39         else if (BN_cmp(c, C) != 0 || BN_cmp(c, C) != 0)
40             bug("mismatch", a, b);
41     }
42 }