perl/t.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 $a=SSLeay::BN::dec2bn("1231353465324563455");
   8 print "a=$a\n".$a->bn2dec."\n";
   9 $b=SSLeay::BN::dec2bn("98790816238765235");
  10 print "a=$a\nb=$b\n";
  11 print $a->gcd($b)."\n";
  12