]>
git.ipfire.org Git - thirdparty/openssl.git/blob - perl/test9.pl
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";