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

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

Validador de cartão de débido e crédito em Perl

Gerador de CPF válido em Perl

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

Conexão com Banco de Dados Postgres

Comentários

Nenhum comentário foi encontrado.