8 $bits=$ARGV[0] if $#ARGV >= 0;
10 $p=SSLeay::BN::generate_prime($bits/2,0,sub {print STDERR $_[0]?"+":"."});
12 $q=SSLeay::BN::generate_prime($bits/2,0,sub {print STDERR $_[0]?"+":"."});
15 $e=SSLeay::BN::hex2bn("10001");
20 ($t1->gcd($e) == 1) || die "p failed the gcd test\n";
21 ($t2->gcd($e) == 1) || die "q failed the gcd test\n";
23 ($q,$p)=($p,$q) if ($p < $q);
26 ($t->gcd($e) == 1) || die "t failed the gcd test\n";
28 $d=$e->mod_inverse($t);
32 $iqmp=$q->mod_inverse($p);
41 $a=SSLeay::BN::bin2bn("This is an RSA test");
42 print "Test with\n'".$a->bn2bin."' or\n$a\n";
44 $t1=$a->mod_exp($e,$n);
46 $t2=$t1->mod_exp($d,$n);
47 print "'".$t2->bn2bin."'\n";