summaryrefslogtreecommitdiffstats
path: root/perl/test8.pl
blob: 86d356dc510e64ca8444be97b006180ae4e53199 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/local/bin/perl

use ExtUtils::testlib;

use SSLeay;

# 2687145 * 3003 * 10^5072 - 1. 

$a=SSLeay::BN::set_word(99);
$b=SSLeay::BN::set_word(100);

$aa=$a->dup;
$bb=$b->dup;

$c=$a*$b;
$bb+=$a;

print "$a*$b=$c\n";
print "$bb\n";