perl/g.pl

   1 #!/usr/local/bin/perl
   2 use ExtUtils::testlib;
   3 use SSLeay;
   4
   5 $num=SSLeay::BN::new();
   6 $shift=SSLeay::BN::new();
   7
   8 print "0\n";
   9 $num=SSLeay::BN::hex2bn("1234329378209857309429670349760347603497603496398");
  10 print "1\n";
  11 $s=SSLeay::BN::hex2bn("59");
  12 print "a\n";
  13 $r=$num->lshift(59);
  14 print "b";
  15
  16 print $num->bn2hex."\n";
  17 print $s->bn2hex."\n";
  18 print $r->bn2hex."\n";