perl/yy.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 $a=SSLeay::BN::new();
   8
   9 $a+="1234567";
  10
  11 print $a->bn2hex()."\n";
  12
  13
  14 for (1 .. 20)
  15         {
  16         $a*=$a;
  17         $b=$a->bn2hex();
  18         print " ".$b."\n".length($b)."\n";
  19         }