Select Code to Download

PARI:   ***   incorrect type in a transcendental function. at /opt/sta
+ndard_perl/perl5881/lib/5.8.8/x86_64-linux/Math/pari.pm line 994.

$private_key = new Crypt::RSA::Key::Private;
$pkey = $private_key->read(Filename => $private_file);
$RSA_tmp = $RSA_object->sign(Message => $PI_string, Key => $pkey);

TEST = $VAR1 = bless( {
                 'Version' => '1.91',
...
HASH{_e  } => 0000000000000003
HASH{_p  } => 0000000000000003
HASH{_dp } => 0000000000000003

PARI:   ***   incorrect type in gfloor. at /opt/standard_perl/perl5881
+/lib/5.8.8/Crypt/primes.pm line 580.

#!/opt/standard_perl/perl5881/bin/perl -w

...

$private->write( Filename => 'spi4500eb.private');
$public->write( Filename => 'spi4500eb.public');

use Digest::MD5;
use Crypt::RSA;
use Crypt::RSA::Key::Private;
use Crypt::RSA::Key::Public;
use Crypt::RSA::SS::PKCS1v15;