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.233 ]

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

Orientação a Objetos - Criando e usando uma classe em Perl

Ordenação por Seleção

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

Busca Binária

Gerador de CPF válido em Perl

Comentários

Nenhum comentï¿½rio foi encontrado.