Password List 1.0
Publicado por Igor Ferreira Cemim 24/09/2007
[ Hits: 5.561 ]
Gerador de lista de senhas com várias opções.
Baseado no RØD GSA criado por Ø Rodrigo Ø.
#!/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");
Script de Analise do Syslog SNORT
Gerador de Senhas Aleatórias VERSÃO 2.0
Script para encontrar vulnerabilidades no BIND
Nenhum comentário foi encontrado.
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Reset do linux sem perder dual boot (2)
Lançado Ubuntu 24.04 Final (6)
redirecionando saida de comando touch para o AWK[AJUDA] (1)