perl/bn.pl

   1 #!/usr/local/bin/perl
   2 use ExtUtils::testlib;
   3 use SSLeay;
   4
   5 $message=SSLeay::BN::new();
   6 $e=SSLeay::BN::new();
   7 $mod=SSLeay::BN::new();
   8
   9 $mod=SSLeay::BN::dec2bn("114381625757888867669235779976146612010218296721242362562561842935706935245733897830597123563958705058989075147599290026879543541");
  10 $e=5;
  11 $d=SSLeay::BN::dec2bn("45752650303155547067694311990458644804087318688496945025024737159778909096647814932594914301288138204957467016445183857236173773");
  12
  13 $message=SSLeay::BN::bin2bn("The magic words are squeamish ossifrage");
  14
  15
  16         $cipher_text=   $message->mod_exp($e,$mod);
  17 print $mod."\n";
  18 print $mod->num_bits()."\n";
  19 for (1 .. 1000)
  20         {
  21         $clear=         $cipher_text->mod_exp($d,$mod);
  22         }
  23 print $clear->bn2bin()."\n";