Skip to content

Instantly share code, notes, and snippets.

@tomredsky

tomredsky/decrypt-mime.pl

Created February 3, 2020 10:45
Show Gist options
  • Save tomredsky/40265b7c6644e9493fa3faaf8bd7dff0 to your computer and use it in GitHub Desktop.
Save tomredsky/40265b7c6644e9493fa3faaf8bd7dff0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
decrypt-mime.pl
#!/opt/perl5/bin/perl
use v5.22;
use warnings;
use Crypt::CBC;
use MIME::Base64;
my $string = 'U2FsdGVkX18Hda5EdNIpyGFgLgJ1GRiZHUD/8NVKqe4=';
my $cipher = Crypt::CBC->new(
-key => 'our shared secret',
-cipher => 'Blowfish'
);
my $demime = decode_base64($string);
my $plain = $cipher->decrypt($demime);
say $plain;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment