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";
|
