view release on metacpan or  search on metacpan

CryptSource.pm  view on Meta::CPAN

I don't have the motivation to investigate yet.

If user enters a wrong decryption key, chances are that the
C<unpack('N/a*')> will report an C<Out of memory!> error.

=cut

my %Files;

sub import {
    return $Files{(caller)[1]}++
	if ($0 !~ /\.exe$/i) and (($ARGV[0] || '') eq '--ensrc');

    return unless ($ARGV[0] || '') eq '--desrc'; local *FH;

    %Files = %{+eval{thaw(unpack('N/a*', Crypt::Rijndael->new(md5_hex(
	ReadMode(2), print("Enter the decryption key:"), scalar <STDIN>
    ))->decrypt(decode_base64(SRC()))))} or die "\nDecryption failed!"};

    while (my ($file, $src) = each %Files) {
	print "\nDecrypting $file...";