Code que "brinca" com senhas
Publicado por Eduardo 29/01/2007
[ Hits: 8.120 ]
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";} }
Testando multiplos servers a ataque DoS
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Instalação de Certificados .Cer no Ubuntu 24.04 (0)
O que você está ouvindo agora? [2] (193)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (8)