Foro - Perl en Español

por **pbellon** » 2005-12-01 08:42 @404

Hola,

quiero hacer un simple script que pregunte:

Escribe el usuario:
Escribe la password:

pero pretendo que cuando el usuario teclee su password aparezca ******* no los caracteres que el vaya tecleando.

¿Como puedo hacerlo?

Código: Seleccionar todo: print qq~ <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5"> <TR> <TD><B style="font-size:110%;"> Username: </B></TD> <TD><INPUT TYPE="text" ID="USERNAME" NAME="USERNAME" size="18"></TD> </TR> <TR> <TD><B style="font-size:110%;"> Password: </B></TD> <TD><INPUT TYPE="password" ID="PASSWORD" NAME="PASSWORD" size="18"></TD> </TR> </TABLE> ~;

No se si he entendido bien tu pregunta, si te refieres a un cgi a traves de la web pon el codigo de arriba en tu programa en perl.

Un saludo.

por **kidd** » 2005-12-01 09:28 @436

Hola,

macgregor tiene razón, todo lo que tienes que hacer es cambiar el tipo del campo.

Tu campo en vez de ser:

Código: Seleccionar todo: TYPE="text"

debe de ser

Código: Seleccionar todo: TYPE="password"

Para mayor información acerca de formas HTML checa aquí.

SALUDOS

por **pbellon** » 2005-12-01 11:12 @508

Hola,

no es a través de la web, sino en un windows 2000 en linea de comandos.

Gracias

por **explorer39** » 2005-12-01 12:43 @571

Yo no lo he probado, pero he encontrado este: Term::ReadPassword. Parece que hay problemas a la hora de instalarlo en windows, pero no en el resto de sistemas.

por **pbellon** » 2006-06-13 07:09 @340

Hola,

he retomado este tema y he conseguido que funcione con: Term::Readpassword tal y como de indicabas.
Instalando Term-ReadPassword-Win32-0.02.zip de http://ppm.activestate.com/PPMPackages/ ... y/Windows/

aquí teneis un ejemplo:

Código: Seleccionar todo: use Term::ReadPassword::Win32; print "Escribe el nombre de usuario:"; $remote_user = <STDIN>; chomp $remote_user; $password = read_password('password: '); print "La password que has tecleado es: $password\n";

por **explorer** » 2006-06-13 08:03 @377

Pues no... has usado un módulo distinto al que te decía.

Has usado Term::ReadPassword::Win32, que es más específico que el que te dije, porque entonces no sabíamos que lo necesitabas para Windows

.

Has hecho muy bien.

Foro - Perl en Español

Password. Ocultar el texto tecleado

Password. Ocultar el texto tecleado

Publicidad

¿Quién está conectado?