Password List 1.0
Publicado por Igor Ferreira Cemim 24/09/2007
[ Hits: 5.567 ]
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 para encontrar vulnerabilidades no BIND
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
NOTEBUXO POSITIVO VAIO VJFE43F11X Something has gone seriously wrong... (0)
Como faço pra um script ser executado apenas abrindo um terminal e dan... (8)
O Programa Configurações Sumiu no Ubuntu 22.04 [RESOLVIDO] (5)