use Crypt::RSA;
use Crypt::RSA::ES::OAEP;
use Crypt::RSA::Key::Private;
use Crypt::RSA::Key;
use Math::Pari ':int';

#my $key = $ARGV[0];
my $ct = $ARGV[0];

my $keychain = new Crypt::RSA::Key;
my ($public, $key) = $keychain->generate (
                              e => 65537,
							  p => '81258833506652962467654916861663255462638893255925467087',
							  q => '97459699027337713120563706625234329059614037275736591773'
                             ) or die $keychain->errstr();

print "\ne: ".$key->e."\np: ".$key->p."\nq: ".$key->q."\n\nd: ".$key->d."\nn: ".$key->n."\nphi: ".$key->phi."\n";

print "\nEverything seems to be ok.\n\n" if $key->check();

#print mod_exp ($ct, $key->d, $key->n);

my $oaep = new Crypt::RSA::ES::OAEP;

print "\nCyphertext: ".$ct."\nTextlength: ".length($ct)."\nBlocksize: ".$oaep->decryptblock (Key => $key)."\n";

my $pt = $oaep->decrypt( Key => $key, Cyphertext => $ct)   ||
                die $oaep->errstr;

print $pt;