GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Publicado por Perfil removido (última atualização em 21/05/2013)
[ Hits: 5.856 ]
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
Conexão com Banco de Dados Postgres
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Colocando Windows como padrão no GRUB
Efeitos de luz, sombra e reflexo no DOOM clássico
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Iniciar windows pelo <grub> (8)
Erro no python, Value Domain (2)
Eu estou com problemas para usar o QBASIC no Dosbox X (8)
Após atualização do Ubuntu 22.04.4 LTS perdi a instalação da placa de ... (5)