Code que "brinca" com senhas
Publicado por Eduardo 29/01/2007
[ Hits: 7.949 ]
Este simples script em Perl gera, criptografa e descriptografa senhas em Base-64 e criptografa em MD5.
#!usr/bin/perl #Precisa do módulo Digest-MD5 que pode ser encontrado em: #http://search.cpan.org/src/GAAS/Digest-MD5-2.36/MD5.pm #->ppm install http://search.cpan.org/src/GAAS/Digest-MD5-2.36/MD5.pm use Digest::MD5 qw(md5_hex); use MIME::Base64; system ("cls"); system ("color c"); print ">=========================================================\n"; print "Md5 Encryptor\nCoded by _Dr4k0_ a.k.a. BrazLab\n"; print "Version 1.0\n"; print ">=========================================================\n"; print "O que voce deseja fazer: \n\n"; print "[G]erar senha\n"; print "[C]riptografar Base-64\n"; print "[D]escriptografar Base-64\n"; print "Criptografar [M]D5\n"; $opcao=<STDIN>; chomp $opcao; if($opcao eq "G" || $opcao eq "g"){&G;} if($opcao eq "C" || $opcao eq "c"){&C;} if($opcao eq "D" || $opcao eq "d"){&D;} if($opcao eq "M" || $opcao eq "m"){&M;} sub G{ @caracteres=("a","b","c","d","e","f","g","h","i", "j","k","l","m","n","o","p","q","r","s","t","u", "v","x","y","w","z","A","B","C","D","E","F","G", "H","I","J","K","L","M","N","O","P","Q","R","S", "T","U","V","X","Y","W","Z","1","2","3","4","5", "6","7","8","9","0","#","!","_","!","¨","&","*", "(",")","=","+"); print "Quantidade de senhas para ser criada: "; $x=<STDIN>; chomp $x; for ($y=1;$y<=$x;$y++){ print "Quantos caracteres voce quer para a senha $y: "; $a = <STDIN>; chomp $a; $senha2=""; for ($b=1 ;$b <= $a;$b++){ $senha1=rand(@caracteres); $senha4=$caracteres[$senha1]; $senha2="$senha4$senha2"; } push(@senha3,$senha2); print 'Sua nova senha e :',$senha2,"\n"; } } sub C{ print "\nDigite a menssagem para ser criptografada em Base-64: "; $msg=<STDIN>; chomp $msg; print "Criptografando, aguarde...\n"; sleep 2; $msg=encode_base64("$msg"); print "O resultado é: $msg"; } sub D{ print "\nDigite a menssagem para ser descriptografada : "; $msg=<STDIN>; chomp $msg; print "Descriptografando, aguarde...\n"; $msg=decode_base64("$msg"); sleep 2; print "O resultado é: $msg"; } sub M{ print "Quantidade de senhas para ser criptografada:\n"; $x=<STDIN>; chomp $x; for ($y=0;$y<$x;$y++){ print "Escreva o password para ser criptografado: "; $pass = <STDIN>; chomp $pass; print "Criptografado: <'$pass'>: " . md5_hex("$pass") . "\n\n";} }
Gerador de Senhas Aleatórias VERSÃO 2.0
Zend Framework application.ini vulnerability exploit
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Estou com sede em aprender sobre o nosso querido Linux. (1)
big linux sem audio como resolver (2)
Como faz para dar um update-grub por shell script [RESOLVIDO] (3)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta