GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Publicado por Perfil removido (última atualização em 21/05/2013)
[ Hits: 6.258 ]
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__
Validador de cartão de débido e crédito em Perl
Orientação a Objetos - Criando e usando uma classe em Perl
Conexão com Banco de Dados Postgres
Nenhum comentário foi encontrado.
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
queria saber como instalar o android power tools igual ao winux no lin... (7)
Como listar os arquivos em "bloquin... [RESOLVIDO] (6)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (2)