GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl [Perl]

GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl

Publicado por Perfil removido (última atualização em 21/05/2013)

[ Hits: 6.089 ]

Download genhash.pl

0 0

Denuncie Favoritos Indicar

Script básico em Perl que gera hashes em MD5, SHA1 e Base64.

Esconder código-fonte

#!/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__

Scripts recomendados

Busca Binária

Conexão com Banco de Dados Postgres

Ordenação por Seleção

Gerador de CPF válido em Perl

Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)

Comentários

Nenhum comentário foi encontrado.