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

• Download genhash.pl
• Enviar nova versão

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__

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

Ordenação por Seleção

Gerador de CPF válido em Perl

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

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

Nenhum coment�rio foi encontrado.