Code que "brinca" com senhas

Publicado por Eduardo 29/01/2007

[ Hits: 7.949 ]

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

Gerador de Senhas Aleatórias VERSÃO 2.0

Mail bomber

brute_basic

FTP scan anonymous user

Zend Framework application.ini vulnerability exploit


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts