GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Script básico em Perl que gera hashes em MD5, SHA1 e Base64.
Descrição
Script básico em Perl que gera hashes em MD5, SHA1 e Base64.
#!/usr/bin/perl
# GenHASH
# HASH Generate Tool (SHA1 Base64 and MD5)
# By @Kouback_TR_
# www.koubacktr.com
use Digest::MD5 qw(md5_hex);
use MIME::Base64;
use Digest::SHA1 qw(sha1_hex);
print <<EOTEXT;
======================================================================
..|'''.| '||' '||' | .|'''.| '||' '||'
.|' ' .... .. ... || || ||| ||.. ' || ||
|| .... .|...|| || || ||''''|| | || ''|||. ||''''||
'|. || || || || || || .''''|. . '|| || ||
''|...'| '|...' .||. ||. .||. .||. .|. .||. |'....|' .||. .||.es
www.koubacktr.com - www.twitter.com/kouback_tr_ V 1.0
======================================================================
EOTEXT
print "Enter caracteres and/or numbers\n";
$var=<STDIN>;
chomp($var);
$md5=md5_hex("$var");
$base64=encode_base64("$var");
$sha1=sha1_hex("$var");
print "[MD5] |$var => $md5\n";
print "[Base64]|$var => $base64";
print "[SHA1] |$var => $sha1\n";
__END__