7 # 2687145 * 3003 * 10^5072 - 1.
9 $a=SSLeay::BN::set_word(2687145);
10 $b=SSLeay::BN::set_word(3003);
11 $c=SSLeay::BN::set_word(10);
12 $d=SSLeay::BN::set_word(5072);
13 $e=SSLeay::BN::set_word(1);
15 print $a->bn2hex()."\n";
16 print $b->bn2hex()."\n";
17 print $c->bn2hex()."\n";
18 print $d->bn2hex()."\n";
19 print $e->bn2hex()."\n";
21 $f=(($a->mul($b)->mul($c->exp($d)))->sub($e));
25 print "1->".$c->bn2hex()." \n";
28 print "2->".$c->bn2hex()." \n";
32 print $f->bn2hex()." $a\n";
35 print "$a=(($b*$c)/$d);\n";