summaryrefslogtreecommitdiffstats
path: root/perl/g.pl
blob: 80b1a422f828c3710123b37e8e24e7127116d1c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/local/bin/perl
use ExtUtils::testlib;
use SSLeay;

$num=SSLeay::BN::new();
$shift=SSLeay::BN::new();

print "0\n";
$num=SSLeay::BN::hex2bn("1234329378209857309429670349760347603497603496398");
print "1\n";
$s=SSLeay::BN::hex2bn("59");
print "a\n";
$r=$num->lshift(59);
print "b";

print $num->bn2hex."\n";
print $s->bn2hex."\n";
print $r->bn2hex."\n";