• Publicidad

Programa para crear password

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Programa para crear password

Notapor VIK » 2007-05-22 14:30 @646

Hola:

Requiero de un programa para otorgar password a usuarios nuevos de un portal, dicho password debe tener una longitud de 7 caracteres sin importar si son numeros, letras o cualquier otro caracter, desconozco si existe una funcion random o algo asi.

Actualmente genero ese dato de forma manual y la idea es hacerlo automaticamente.

Gracias de antemano por su ayuda.
VIK
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2006-12-06 17:51 @785

Publicidad

Notapor explorer » 2007-05-22 14:50 @660

En una sola línea de Perl:
Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
perl -le '@a=("A".."Z",0..9); print join "",map { $a[rand @a] } 1..7;'
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Una vez generada la contraseña, depende del sistema que uses, el poder asignar la contraseña al usuario. Podría ser usar el comando adduser, por ejemplo.
Última edición por explorer el 2007-05-22 16:21 @723, editado 1 vez en total
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor creating021 » 2007-05-22 15:42 @696

Una solución mas compleja (para usar passwords más largos y fortuitos) se puede usar "ruido quantum".
Usalo sólo si quieres passwords más largos y complicaods.

explorer: el código da error por el uso de las comillas simples...
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor VIK » 2007-05-24 12:29 @562

Gracias por sus respuestas pero me manda el error cant find string terminator "'" anywhere EOF at -e line 1


Ya cambie las comillas simples por dobles y el error persiste, alguna sugerencia??


Gracias
VIK
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2006-12-06 17:51 @785

Notapor explorer » 2007-05-24 12:39 @569

Pon aquí lo que estás probando y dinos en qué sistema operativo estás.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor creating021 » 2007-05-25 19:40 @861

http://perlmonks.org/?node_id=471577

Pero lo que explorer pone te debería funcionar perfectamente...
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor VIK » 2007-05-28 09:38 @443

Gracias.

lo que tecleo es

Código: Seleccionar todo
D:\>perl -le '@a=("A".."Z",0..9); print join "",map { $a[rand @a] } 1..7;'
Can't find string terminator "'" anywhere before EOF at -e line 1.

Estoy usando Windows 2003 con Perl 5.8

Saludos
VIK
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2006-12-06 17:51 @785

Notapor explorer » 2007-05-28 11:50 @535

Claro... estás en Windows...

Respondida en la FAQ3:
http://perldoc.perl.org/perlfaq3.html#W ... -system%3f

¡Tienes que cambiar las comillas!

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
perl -le "@a=('A'..'Z',0..9); print join '',map { $a[rand @a] } 1..7;"
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
O meterlo en un programa...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor VIK » 2007-05-29 13:26 @601

Excelente, el programa esta funcionando :D :D

Tengo entendido que el creador de este espacio esta en mi pais, deseo hacer una aportacion, como me contacto con el??

Saludos y gracias !!!
VIK
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2006-12-06 17:51 @785

Notapor explorer » 2007-05-29 13:50 @618

En la esquina superior derecha de cada página hay un enlace a la de donativos.

Mándale un correo a kidd, el administrador. Pulsa en el enlace superior que se llama Acerca.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 0 invitados

cron