diff options
Diffstat (limited to 'perl/g.pl')
-rw-r--r-- | perl/g.pl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/perl/g.pl b/perl/g.pl deleted file mode 100644 index 80b1a422f8..0000000000 --- a/perl/g.pl +++ /dev/null @@ -1,18 +0,0 @@ -#!/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"; |