Ver Tema

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?

macgregor · 2005-12-01 09:01 @417

Código:

print qq~

<TABLE  BORDER="0" CELLSPACING="5" CELLPADDING="5">  
   <TR>
      <TD><B style="font-size:110%;">&nbsp;Username:&nbsp;</B></TD>
      <TD><INPUT TYPE="text" ID="USERNAME" NAME="USERNAME" size="18"></TD>
   </TR>
   <TR>
      <TD><B style="font-size:110%;">&nbsp;Password:&nbsp;</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.

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:

TYPE="text"

debe de ser

Código:

TYPE="password"

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

SALUDOS

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

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:

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";

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.

Publicidad

Socializa