projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Import of old SSLeay release: SSLeay 0.9.0b
[oweals/openssl.git]
/
perl
/
test8.pl
1
#!/usr/local/bin/perl
2
3
use ExtUtils::testlib;
4
5
use SSLeay;
6
7
# 2687145 * 3003 * 10^5072 - 1.
8
9
$a=SSLeay::BN::set_word(99);
10
$b=SSLeay::BN::set_word(100);
11
12
$aa=$a->dup;
13
$bb=$b->dup;
14
15
$c=$a*$b;
16
$bb+=$a;
17
18
print "$a*$b=$c\n";
19
print "$bb\n";