Gerador de lista de senhas com várias opções.

Baseado no RØD GSA criado por Ø Rodrigo Ø.

• Download password-list.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
#Programa: Password List 1.0
#Criado por: Igor Ferreira Cemim
#Descrição: Gerador de lista de senhas
#Baseado no RØD GSA criado por Ø Rodrigo Ø

system("clear");
print "\n+------------------------------------------------------------+\n"; 
print "|                                                            |\n"; 
print "|                      Password List 1.0                     |\n"; 
print "|                                                            |\n"; 
print "+------------------------------------------------------------+\n"; 
print "                Criado por: Igor Ferreira Cemim                  \n"; 
sleep 1;

@numeros=("1","2","3","4","5","6","7","8","9","0");

@letras_minusculas=("a","b","c","d","e","f","g","h","i","j","k",
"l","m","n","o","p","q","r","s","t","u","v","x","w","y","z");

@letras_maiusculas=("A","B","C","D","E","F","G","H","I","J","K",
"L","M","N","O","P","Q","R","S","T","U","V","X","W","Y","Z");

@letras_maiusculas_minusculas=("a","b","c","d","e","f","g","h",
"i","j","k","l","m","n","o","p","q","r","s","t","u","v","x","w",
"y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N",
"O","P","Q","R","S","T","U","V","X","W","Y","Z");

@todos=("a","b","c","d","e","f","g","h","i","j","k","l","m","n",
"o","p","q","r","s","t","u","v","x","w","y","z","A","B","C","D",
"E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T",
"U","V","X","W","Y","Z","1","2","3","4","5","6","7","8","9","0");

print "\nTipo de caracteres a ser usado: ";
print "\n[1] Letras minisculas ";
print "\n[2] Letras maiusculas ";
print "\n[3] Letras maiusculas e minisculas ";
print "\n[4] Números ";
print "\n[5] Números e letras maiusculas e minusculas \n";
$utilizar=<STDIN>;
chomp($utilizar);

print "\nQuantas senhas você deseja criar? ";
$vezes=<STDIN>;
chomp($vezes);

print "\nQuantos digitos as senhas devem ter? ";
$carac=<STDIN>;
chomp($carac);

print "\n+----------------------------------------------------------------------+\n";
print "|   Você deseja mostrar as senhas na medida em que elas são geradas?   |\n";
print "+----------------------------------------------------------------------+\n\n";
print "[s] Sim     [n] Não\n";
$mostrar=<STDIN>;
chomp($mostrar);

for ($conta2=1, $max2=$vezes; $conta2 <= $max2; $conta2++) { 
$p2="";

if ($utilizar eq "1") {
for ($conta=1, $max=$carac; $conta <= $max; $conta++) { 
$num = rand(@letras_minusculas);
$p1 = $letras_minusculas[$num];
$p2 = "$p1$p2";
}
}

if ($utilizar eq "2") {
for ($conta=1, $max=$carac; $conta <= $max; $conta++) { 
$num = rand(@letras_maiusculas);
$p1 = $letras_maiusculas[$num];
$p2 = "$p1$p2";
}
}

if ($utilizar eq "3") {
for ($conta=1, $max=$carac; $conta <= $max; $conta++) { 
$num = rand(@letras_maiusculas_minusculas);
$p1 = $letras_maiusculas_minusculas[$num];
$p2 = "$p1$p2";
}
}

if ($utilizar eq "4") {
for ($conta=1, $max=$carac; $conta <= $max; $conta++) { 
$num = rand(@numeros);
$p1 = $numeros[$num];
$p2 = "$p1$p2";
}
}

if ($utilizar eq "5") {
for ($conta=1, $max=$carac; $conta <= $max; $conta++) { 
$num = rand(@todos);
$p1 = $todos[$num];
$p2 = "$p1$p2";
}
}

push(@senhas,$p2);
if ($mostrar eq "s") {
print "\n$p2";
}
}

if ($mostrar eq "s") {
sleep 1;
}

sleep 1;
system("clear");
if ($vezes >= 1) {
print "\n+-----------------------------------------------------+\n";
print "|   Você deseja salvar a(s) senha(s) em um arquivo?   |\n";
print "+-----------------------------------------------------+\n\n";
print "[s] Sim     [n] Não\n";
$salvar=<STDIN>;
chomp($salvar);
}

if ($salvar eq "s") { 
print "\nDigite o nome para o arquivo: ";
$arq=<STDIN>;
chomp($arq);

if ($arq =~ /[\.][t][x][t]$/) { 
$arq =~ s/[\.][t][x][t]$//gi;
}

open(ARQ,">$arq\.txt");
foreach $senha(@senhas) {
print ARQ "$senha\n";
}
close(ARQ);

if (-e "$arq\.txt") {
print "\nArquivo salvo com sucesso!\n";
sleep 2
}
else
{
print "\nO arquivo não foi salvo.\n";
sleep 2
}
}
system("clear");

R4$T4 Scan - Portscan básico comentado

Backdoor em perl

Multi Brute Force

Zend Framework application.ini vulnerability exploit

Mail bomber

Nenhum comentário foi encontrado.