perl/testdec.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 $a=SSLeay::BN::dec2bn("1234");
   8
   9 foreach (1..4)
  10         {
  11         $a*=$a;
  12         print $a."\n",$a->bn2dec()."\n";
  13         }
  14