Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Crypt::RSA;
- use Crypt::RSA::ES::OAEP;
- use Crypt::RSA::Key::Private;
- use Crypt::RSA::Key;
- use Math::Pari ':int';
- use Crypt::RSA;
- my $oaep = new Crypt::RSA::ES::OAEP;
- my $key = ($key => "d")
- my $pt = $oaep->decrypt(
- Key => $key,
- Cyphertext => "-----BEGIN COMPRESSED RSA ENCRYPTED MESSAGE-----
- Version: 1.99
- Scheme: Crypt::RSA::ES::OAEP
- DATABLOCK
- -----END COMPRESSED RSA ENCRYPTED MESSAGE-----",
- ) ||
- die $oaep->errstr;
- print $pt;
Add Comment
Please, Sign In to add comment