Perl Programa Multi Encrypt(AES128 SHA-1 MD5)

[andreol263]

#!/usr/bin/perl -w
#Coded by andreol263

use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Crypt::AES::CTR;


system("cls");
print "Multi - Encrypt Tool\n";

print "Write the string to be encrypted:\n";
chomp($has1 = <STDIN>);
$pwd = 12345;
$md = md5_hex($has1);
printf "MD5:%s\n", $md;
$sh = sha1_hex($has1);
my $plaintext = 'string';
my $ciphertext = Crypt::AES::CTR::encrypt($plaintext,'password',128);
printf "SHA-1:%s\n", $sh;
printf "AES128:%s\n", $ciphertext;

Esse foi um dos primeiros programinhas que eu fiz em Perl, então o seu código pode estar feio e desestruturado, pode servir de estudos para quem esta estudando como utilizar módulos no PERL