Olá,
Como posso fazer para, ao criar as contas de meus usuários, fosse geradas senhas automáticas contendo letras e número do tipo rj3n6b?
Agradeço desde já!
Bruno Guratti
Gerando Senhas
Started By
Visitante - Bruno
, 04/04/2003, 11:41
1 reply to this topic
#2
GuVersa
-
- Usuários
-
- 10 posts
Novato no fórum
- Sexo:Não informado
- Localidade:BH
Posted 14/10/2003, 21:29
Apesar de tarde, respondo... ehhe:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
@rando = ("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");
$senha = "";
# Edite a variável $max com o número desejado de caracteres na senha a ser gerada. Está com 8.
for ($conta=1, $max=8;$conta <= $max; $conta++) {
$num = rand(@rando);
$p = $rando[$num];
$senha = "$senha$p";
}
print "Usuário sua senha é $senha";
Gustavo Versiani
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
