perl/test8.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 # 2687145 * 3003 * 10^5072 - 1.
   8
   9 $a=SSLeay::BN::set_word(99);
  10 $b=SSLeay::BN::set_word(100);
  11
  12 $aa=$a->dup;
  13 $bb=$b->dup;
  14
  15 $c=$a*$b;
  16 $bb+=$a;
  17
  18 print "$a*$b=$c\n";
  19 print "$bb\n";