SHOW:
|
|
- or go back to the newest paste.
| 1 | - | #!/usr/bin/perl |
| 1 | + | ##!/usr/bin/perl |
| 2 | ||
| 3 | use Crypt::RSA; | |
| 4 | ||
| 5 | use Crypt::RSA::ES::OAEP; | |
| 6 | ||
| 7 | use Crypt::RSA::Key::Private; | |
| 8 | ||
| 9 | use Crypt::RSA::Key; | |
| 10 | ||
| 11 | use Math::Pari ':int'; | |
| 12 | ||
| 13 | use Crypt::RSA; | |
| 14 | ||
| 15 | my $rsa = new Crypt::RSA; | |
| 16 | ||
| 17 | my $keychain = new Crypt::RSA::Key; | |
| 18 | my ($public, $private) = $keychain->generate ( | |
| 19 | - | 'p' => '99554414790940424414351515490472769096534141749790794321708050837', |
| 19 | + | 'p' => '97513779050322159297664671238670850085661086043266591739338007321', |
| 20 | - | 'q' => '104593961812606247801193807142122161186583731774511103180935025763', |
| 20 | + | 'q' => '77506098606928780021829964781695212837195959082370473820509360759', |
| 21 | 'e' => '65537', | |
| 22 | ) or die $keychain->errstr(); | |
| 23 | ||
| 24 | my $plaintext = $rsa->decrypt ( | |
| 25 | Cyphertext => "-----BEGIN COMPRESSED RSA ENCRYPTED MESSAGE----- | |
| 26 | Version: 1.99 | |
| 27 | Scheme: Crypt::RSA::ES::OAEP | |
| 28 | ||
| 29 | - | eJwBRgC5/zEwADU0AEN5cGhlcnRleHTCFSi7dhQG4Pgmh50LyX1mGRFKbuZmdMkJW/iL5YJZHnww |
| 29 | + | eJwBswBM/zEwADE2MgBDeXBoZXJ0ZXh0LE2jxJS1EzMc80kOK+hra1GKnXgQKQgVitIy8NgA7kxn |
| 30 | - | ECaj7l2udOqtc9L8qlsvZh24DSzKYh3A |
| 30 | + | 2u8jNQDvlu0uymNNiu6XVCCn66axGH0IZ9w4Af3K/yRgjObsfA1Q7QqpXNALJ9FFPgYl5rh07cBP |
| 31 | - | =+3dVm5h8VAg/3eTrYvDjNw== |
| 31 | + | M9kbSH6DynU/5cYgQod2KymjWcIvKx3FkjV4UOGakDnBf1eQp1uwvn3KxDVwTyzPqbMnZvOA06Ec |
| 32 | AfKtyz1hEK/UBXkeMeVrnV5SQQ== | |
| 33 | =yTUshDMKN65aPaKAR0OU8g== | |
| 34 | -----END COMPRESSED RSA ENCRYPTED MESSAGE-----", | |
| 35 | Key => $private, | |
| 36 | Armour => 1, | |
| 37 | ) or die $rsa->errstr(); | |
| 38 | ||
| 39 | print $plaintext; |
