Hola, saludos a todos cordialmente.
Espero que estén bien.
Bueno, me atrae aquí para preguntar algo por ahora,
Mi carrera no sé programación pero sí me pasan un Perl básico,
La duda es la siguiente:
Debo crear un programa que diga que ingrese la contraseña y el usuario, la duda es cómo escondo la contraseña que salga con ***** (algo así)... Por favor se pide un lenguaje básico para esto ya que no soy de informática.
Muchas gracias a todos por sus aportes futuros,
-
- Publicidad
Esconder contraseña en Perl
8 mensajes
• Página 1 de 1
Esconder contraseña en Perl
por cracer206 » 2011-06-23 17:18 @762
- cracer206
- Perlero nuevo
- Mensajes: 3
- Registrado: 2011-06-23 17:08 @756
Publicidad
Re: Esconder contraseña en Perl
por explorer » 2011-06-23 17:48 @783
Bienvenido a los foros de Perl en español, cracer206.
Si la pregunta fuera, ¿cómo le pido una contraseña a un usuario?, la respuesta está justo en el perlfaq8, en la pregunta How do I ask the user for a password?, pero el problema es que, además, quieres que salgan caracteres '*' por cada pulsación de la contraseña.
Justo en el mismo faq, más arriba, hay un ejemplo de cómo leer el teclado sin que aparezca nada en pantalla, por lo que puedes usarlo para leer el teclado, guardar la tecla pulsada, y sacar un '*' en su lugar. Pero la cosa se complica un poco más.
Tienes un ejemplo perfecto aquí. (Atención a si estás en Windows, que hay que hacer un cambio.) Ahí también tienes la solución más corta:
usando el módulo IO::Prompt.
Si la pregunta fuera, ¿cómo le pido una contraseña a un usuario?, la respuesta está justo en el perlfaq8, en la pregunta How do I ask the user for a password?, pero el problema es que, además, quieres que salgan caracteres '*' por cada pulsación de la contraseña.
Justo en el mismo faq, más arriba, hay un ejemplo de cómo leer el teclado sin que aparezca nada en pantalla, por lo que puedes usarlo para leer el teclado, guardar la tecla pulsada, y sacar un '*' en su lugar. Pero la cosa se complica un poco más.
Tienes un ejemplo perfecto aquí. (Atención a si estás en Windows, que hay que hacer un cambio.) Ahí también tienes la solución más corta:
Using perl Syntax Highlighting
- use IO::Prompt;
- my $password = prompt('Password:', -e => '*');
- print "$password\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Esconder contraseña en Perl
por cracer206 » 2011-06-23 17:59 @791
Muchas gracias,
pero algo entiendo de esas líneas.
¿Me puedes explicar con detalle?
No soy de programación ni informática.
Tengo un ramo que se mela como tal para mi carrera
no me preguntes qué hace ahí ese ramo,
pero hay que pasarlo XD
Saludos
pero algo entiendo de esas líneas.
¿Me puedes explicar con detalle?
No soy de programación ni informática.
Tengo un ramo que se mela como tal para mi carrera
no me preguntes qué hace ahí ese ramo,
pero hay que pasarlo XD
Saludos
- cracer206
- Perlero nuevo
- Mensajes: 3
- Registrado: 2011-06-23 17:08 @756
Re: Esconder contraseña en Perl
por explorer » 2011-06-23 18:45 @823
¿Qué es lo que has aprendido de Perl, en ese curso? Deberías tener unas apuntes de clase o lecciones dadas por el profesor...
Y sí que me interesa saber qué carrera es esa, para tener una parte de Perl.
Y sí que me interesa saber qué carrera es esa, para tener una parte de Perl.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Esconder contraseña en Perl
por cracer206 » 2011-06-23 18:59 @833
Mi carrera es telecomunicaciones y conectividad y redes.
Como ves no tiene sentido pero es para algo creo, la cosa que igual es entretenido Perl.
Mira, hice esto. Así de básico nos enseñan:
print " bienvenidos a sistema de cristian\n";
print " cargando datos\n";
sleep(5);
system (cls);
print " ingrese pass para entrar: ";
chop($pass=<STDIN>);
$p=length($pass);
if ($p==4)
{ if ($pass eq "casa")
{ print "ingresando a su cuenta";
$_=<STDIN>;
}
else
{ print " error en la password";
$_=<STDIN>;
};
}
else
{ print " error en pass es de 4 caracteres ud ingreso $p ";
$_=<STDIN>;
};
Como ves no tiene sentido pero es para algo creo, la cosa que igual es entretenido Perl.
Mira, hice esto. Así de básico nos enseñan:
print " bienvenidos a sistema de cristian\n";
print " cargando datos\n";
sleep(5);
system (cls);
print " ingrese pass para entrar: ";
chop($pass=<STDIN>);
$p=length($pass);
if ($p==4)
{ if ($pass eq "casa")
{ print "ingresando a su cuenta";
$_=<STDIN>;
}
else
{ print " error en la password";
$_=<STDIN>;
};
}
else
{ print " error en pass es de 4 caracteres ud ingreso $p ";
$_=<STDIN>;
};
- cracer206
- Perlero nuevo
- Mensajes: 3
- Registrado: 2011-06-23 17:08 @756
Re: Esconder contraseña en Perl
por explorer » 2011-06-23 22:33 @981
Yo no contrataría a ningún ingeniero en telecomunicaciones que no haya tenido una mínima formación en programación. Aquí en España, los ingenieros en telecomunicación aprenden un montón de lenguajes de programación.
Y Perl es perfecto para ello, pues permite la creación de prototipos de forma muy rápida.
Y Perl es perfecto para ello, pues permite la creación de prototipos de forma muy rápida.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Esconder contraseña en Perl
por ileiva » 2011-06-23 22:59 @999
+1. De hecho, encuentro casi obvio que deba saber programar por el sólo hecho de ser Ingeniero (no tanto como uno Informático eso sí). Por lo menos acá en Chile así es.
Además Perl por su flexibilidad cae como anillo al dedo
Saludos.
Además Perl por su flexibilidad cae como anillo al dedo
Saludos.
-
ileiva - Perlero nuevo
- Mensajes: 30
- Registrado: 2011-04-23 03:25 @184
- Ubicación: Santiago, Chile
Re: Esconder contraseña en Perl
por explorer » 2011-06-24 03:15 @177
Es más: si se es Ingeniero no técnico, sino superior, entonces es muy posible que no escriba ni una línea de código nunca, y solo se ocupe de la parte de Entrevista con el cliente, Análisis del problema, Diseño de la solución y Redacción del Cuaderno de carga de trabajo. Vamos, realizar todo el trabajo previo que un programador necesitará.
Pero si no tiene idea de programación, aunque sea un poco, mal podrá decirle al programador qué es lo que tiene que hacer.
Hasta el Arquitecto más remilgado ha tenido, en sus manos, al menos una vez, un ladrillo de adobe.
Pero si no tiene idea de programación, aunque sea un poco, mal podrá decirle al programador qué es lo que tiene que hacer.
Hasta el Arquitecto más remilgado ha tenido, en sus manos, al menos una vez, un ladrillo de adobe.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados