Hash Crypter 1.0

[Cash Override]

Esse script ele encripta um valor digitado !

#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
print "\n";

print "+++===+++===+++===+++===+++==+\n";
print "|Hash Crypter 1.0 by: Afr0dir|\n";
print "+++===+++===+++===+++===+++==+\n";
my $valor;
my $hashcrypter;

print "Digite o valor para ser encryptado:\t\n";
$valor = <STDIN>;
chomp($valor);
$hashcrypter=md5_hex($valor);
print "\n";
print "+================================+\n";
print "|$hashcrypter |\n";
print "+================================+\n";