Code que "brinca" com senhas

Publicado por Eduardo 29/01/2007

[ Hits: 7.583 ]

Download script.pl




Este simples script em Perl gera, criptografa e descriptografa senhas em Base-64 e criptografa em MD5.

  



Esconder código-fonte

#!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";}
}

Scripts recomendados

Port Scan

Mail bomber

Testando servers a HTMLSCRIPT

Ossec2MySQL

Scanner TCP/ping


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts