💾 Archived View for tilde.team › ~aprilnightk › try3301 › cluehub › 2014_onion1_decryption_script.gm… captured on 2021-12-05 at 23:47:19. Gemini links have been rewritten to link to archived content

View Raw

More Information

⬅️ Previous capture (2021-12-03)

➡️ Next capture (2023-01-29)

-=-=-=-=-=-=-

Back

!/usr/bin/perl

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 $rsa = new Crypt::RSA;

my $keychain = new Crypt::RSA::Key;

my ($public, $private) = $keychain->generate (

'p' => '99554414790940424414351515490472769096534141749790794321708050837',

'q' => '104593961812606247801193807142122161186583731774511103180935025763',

'e' => '65537',

) or die $keychain->errstr();

my $plaintext = $rsa->decrypt (

Cyphertext => "-----BEGIN COMPRESSED RSA ENCRYPTED MESSAGE-----

Version: 1.99

Scheme: Crypt::RSA::ES::OAEP

eJwBRgC5/zEwADU0AEN5cGhlcnRleHTCFSi7dhQG4Pgmh50LyX1mGRFKbuZmdMkJW/iL5YJZHnww

ECaj7l2udOqtc9L8qlsvZh24DSzKYh3A

=+3dVm5h8VAg/3eTrYvDjNw==

-----END COMPRESSED RSA ENCRYPTED MESSAGE-----",

Key => $private,

Armour => 1,

) or die $rsa->errstr();

print $plaintext;