40bace2da6
PR: 338 Here's the description, submitted by Gisle Vanem <giva@bgnett.no>: 1. sock_init() renamed to ssl_sock_init() in ./apps/s_socket.c due to name-clash with Watt-32. 2. rand() renamed to Rand() in ./crypto/bn/divtest.c due to name-clash with <stdlib.h> 3. Added calls to dbug_init()/sock_init() in some demo programs. 4. Changed cflags/lflags in configure. Watt-32 install root now taken from $WATT_ROOT.
41 lines
873 B
C
41 lines
873 B
C
#include <openssl/bn.h>
|
|
#include <openssl/rand.h>
|
|
|
|
static int Rand(n)
|
|
{
|
|
unsigned char x[2];
|
|
RAND_pseudo_bytes(x,2);
|
|
return (x[0] + 2*x[1]);
|
|
}
|
|
|
|
static void bug(char *m, BIGNUM *a, BIGNUM *b)
|
|
{
|
|
printf("%s!\na=",m);
|
|
BN_print_fp(stdout, a);
|
|
printf("\nb=");
|
|
BN_print_fp(stdout, b);
|
|
printf("\n");
|
|
fflush(stdout);
|
|
}
|
|
|
|
main()
|
|
{
|
|
BIGNUM *a=BN_new(), *b=BN_new(), *c=BN_new(), *d=BN_new(),
|
|
*C=BN_new(), *D=BN_new();
|
|
BN_RECP_CTX *recp=BN_RECP_CTX_new();
|
|
BN_CTX *ctx=BN_CTX_new();
|
|
|
|
for(;;) {
|
|
BN_pseudo_rand(a,Rand(),0,0);
|
|
BN_pseudo_rand(b,Rand(),0,0);
|
|
if (BN_is_zero(b)) continue;
|
|
|
|
BN_RECP_CTX_set(recp,b,ctx);
|
|
if (BN_div(C,D,a,b,ctx) != 1)
|
|
bug("BN_div failed",a,b);
|
|
if (BN_div_recp(c,d,a,recp,ctx) != 1)
|
|
bug("BN_div_recp failed",a,b);
|
|
else if (BN_cmp(c,C) != 0 || BN_cmp(c,C) != 0)
|
|
bug("mismatch",a,b);
|
|
}
|
|
}
|