projects
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
One more incorrect name in usage page
[openssl.git]
/
perl
/
zz.pl
1
#!/usr/local/bin/perl
2
use ExtUtils::testlib;
3
use SSLeay;
4
5
$a=SSLeay::BN::dec2bn("12345678901234567890");
6
$b=SSLeay::BN::dec2bn("98765432109876543210");
7
print "a=$a\n";
8
print "b=$b\n";
9
10
$n=$a*$b;
11
$m=$n+"1223123235345634764534567889";
12
$l=$m*88888888;
13
14
$r=$l/$b;
15
16
print "a=$a\n";
17
print "b=$b\n";
18
print "n=$n\n";
19
print "m=$m\n";
20
print "l=$l\n";
21
print "r=$r\n";
22