perl/y.pl

   1 #!/usr/local/bin/perl
   2 use ExtUtils::testlib;
   3 use SSLeay;
   4
   5 $message=SSLeay::BN::dec2bn("936345681743241125150760694794510965960940252288797108931456691368672287489405603308617928680920874760917824938589009714909675985261365549781893129784821682998948722");
   6
   7 print $message->bn2hex."\n";