Esse é o meu Gerador de Senhas um pouco melhorado para evitar alguns errinhos...
Bom estudo!
#!/usr/bin/perl -w
#Programa: RØD GSA
#Versão: 2.0
#SO's: Linux e Windows.
#Descrição: Gerador de senhas aleatórias
#Coded By: Ø Rodrigo Ø - [New Generation Crew]
$ver="v. 2.0";
$conta2=1;
system("clear");
print "\n+---------------[RØD GSA]---------------+\n";
print "|-------------------------------$ver--|\n";
print "| |\n";
print "| Gerador de Senhas Aleatórias |\n";
print "| |\n";
print "| Coded By Ø Rodrigo Ø |\n";
print "+---------------------------------------+\n\n";
sleep 3;
@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 "\nQuantas senhas você deseja criar? ";
chomp($vezes=<STDIN>);
if ($vezes >=1){
&criar;
}
sub criar(){
system("clear");
print "\nRecomendado: Acima de 8\n";
for ($conta2=$conta2, $max2=$vezes; $conta2 <= $max2; $conta2++) {
print "\nQuantos caracteres você deseja para a senha $conta2? ";
chomp($carac=<STDIN>);
$p2="";
if ($carac >= 6){
for ($conta=1, $max=$carac; $conta <= $max; $conta++) {
$num = rand(@caracteres);
$p1 = $caracteres[$num];
$p2 = "$p1$p2";
}
push(@senhas,$p2);
print "\nSua nova senha é $p2\n";
} else {
print "\nEstá senha está pequena demais...\n";
<STDIN>;
&criar;
}
}
if ($vezes >= 1) {
$vezes=0;
print "\n-----------------------------------------------\n";
print "Você deseja salvar a(s) senha(s) em um arquivo?\n";
print "-----------------------------------------------\n\n";
print " Sim, desejo salvar a(s) senha(s) em um arquivo.\n";
print "[n] Não, não quero salvar a(s) senha(s).\n\n";
print "-----------------------------------------------\n";
print "Digite o opção desejada: ";
chomp($salvar=<STDIN>);
if ($salvar eq "s" || $salvar eq "S") {
system("clear");
print "\nDigite o nome para o arquivo: ";
chomp($arq=<STDIN>);
if ($arq =~ /\.txt$/) {
$arq =~ s/\.txt$//gi;
}
open(ARQ,">$arq\.txt");
foreach $senha(@senhas) {
print ARQ "$senha\n";
}
print ARQ "\n\nPassword created by RØD GSA $ver\n";
close(ARQ);
if (-e "$arq\.txt") {
print "\nO arquivo $arq\.txt foi salvo com sucesso!\n\n";
}
else
{
print "\nO arquivo $arq\.txt não foi salvo!\n\n";
}
} else { exit; }
} else { exit; }
}
(Obs¹)Podem adicionar mais caracteres na lista, pois eu só coloquei os que eu sei que funcionam em Linux e Windows...
(Obs²) Para quem for rodar no windows troque o system("clear"); por system("cls");.
Flws...
Bem legal rodrigo... até já testei... ;)
n sendo mto ignorante no assunto... + ja sendo ...
huehuehue
em q formato tenhu q salvar??
thx
xP
nome.pl
No linux não precisa de extenção, mais pode por .pl se quiser tbm