Password List 1.0

Publicado por Igor Ferreira Cemim 24/09/2007

[ Hits: 5.217 ]

Download password-list.pl




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

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

  



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");

Scripts recomendados

Zend Framework application.ini vulnerability exploit

Criando sua própria criptografia em hash

Gerador de Senhas Aleatórias VERSÃO 2.0

FTP scan anonymous user

Script para encontrar vulnerabilidades no BIND


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts