Select Code to Download

Select or download this

#!/usr/bin/perl

...

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

Select or download this

$VAR1 = bless( {
                 'Version' => '1.99',
...
                                               }, 'Tie::EncryptedHash'
+ ),
                 'Cipher' => 'Blowfish'
               }, 'Crypt::RSA::Key::Private' );

Select or download this
```
#!/perl/bin/perl

...
}

1;
```

Select or download this

#!/perl/bin/perl

...

  return $signatureValue;
}

Select or download this

[Mon Oct 26 21:15:33 2009] [error] [client 10.29.12.38] PARI:   ***   
+log is not
 meromorphic at 0. at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread
+-multi/Mat
h/Pari.pm line 994.

Select or download this

sub bitsize ($)
{
  return pari2num(floor(Math::Pari::log(shift)/Matth::Pari::log(2)) + 
+1);
}

Select or download this

sub AUTOLOAD {
  $AUTOLOAD =~ /^(?:Math::Pari::)?(.*)/;
...
  &$1;
#  &$AUTOLOAD;
}