perl/tt.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 for ($i=1; $i<1000; $i++)
   8         {
   9         $a.=$i%10;
  10         $y=SSLeay::BN::dec2bn($a);
  11         $z=SSLeay::BN::bn2dec($y);
  12
  13         print "$a\n$y\n$z\n";
  14         }
  15