GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Publicado por Perfil removido (última atualização em 21/05/2013)
[ Hits: 5.815 ]
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__
Orientação a Objetos - Criando e usando uma classe em Perl
Validador de cartão de débido e crédito em Perl
Conexão com Banco de Dados Postgres
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
redirecionando saida de comando touch para o AWK[AJUDA] (11)
filtrar só as pastas onde tem arquivo (1)
Impressora Canon Ip 1800 (Drivers) 64 bit (9)