22 lines
358 B
Perl
22 lines
358 B
Perl
#!/usr/local/bin/perl
|
|
use ExtUtils::testlib;
|
|
use SSLeay;
|
|
|
|
$a=SSLeay::BN::dec2bn("12345678901234567890");
|
|
$b=SSLeay::BN::dec2bn("98765432109876543210");
|
|
print "a=$a\n";
|
|
print "b=$b\n";
|
|
|
|
$n=$a*$b;
|
|
$m=$n+"1223123235345634764534567889";
|
|
$l=$m*88888888;
|
|
|
|
$r=$l/$b;
|
|
|
|
print "a=$a\n";
|
|
print "b=$b\n";
|
|
print "n=$n\n";
|
|
print "m=$m\n";
|
|
print "l=$l\n";
|
|
print "r=$r\n";
|
|
|