perl/y.pl

#!/usr/local/bin/perl
use ExtUtils::testlib;
use SSLeay;

$message=SSLeay::BN::dec2bn("936345681743241125150760694794510965960940252288797108931456691368672287489405603308617928680920874760917824938589009714909675985261365549781893129784821682998948722");

print $message->bn2hex."\n";