Autor
|
Tema: [Problema]Con script en perl. (Leído 6,888 veces)
|
PHAMTOM
Desconectado
Mensajes: 83
0x8B,0xEC,0x33,0xFF
|
Buenas,me estoy iniciando en el mundo de la programación en perl , y me surgio un problema al hacer una especie de "CRACKME". El tema es que cuando , el password se comprueba,da siempre resultado correcto.. El codigo del mismo es : #!/usr/bin/perl print("Escribe el password : "); $pass=<STDIN>; system("cls"); if($pass=="hola") { print("Password correcto\n\n"); } else { print("Password incorrecto\n\n"); } Aunque en <STDIN> entre askdjasdjkhasd, el password me da correcto :'(.. Tambien probe con : #!/usr/bin/perl print("Escribe el password : "); $pass=<STDIN>; $contador=1; # no le presteis atencion al contador feo. do { $contador++; print("\nCargando.."); system("cls"); }until($contador == 20); system("cls"); if($pass!="hola") { print("Password incorrecto\n\n"); } else { print("Password correcto\n\n"); }
Gracias de antemano, saludos : ) .. MOTMAHP
|
|
|
En línea
|
Miran a cualquier ventana, mientras su pánico emana y nubla su visión mi calma es pura precisión cargo munición y miro tranquilo ya ni respiro desde al ático os vigilo sigo al filo os tengo a tiro!
La kitchner quiere tanto a los pobres,que cada vez,tiene más
|
|
|
^Tifa^
Desconectado
Mensajes: 2.804
|
Querras captar el retorno de carro o valor null o tecla 'Enter' como ultimo caracter de la frase introducida no? print("Escribe una contraseña :: "); my $pass = <STDIN>; if ( $pass eq "hola" ) { print STDOUT "Es correcto\n"; } else { print STDOUT "Es Incorrecto\n"; }
Haz la prueba... observa y prueba : print("Escribe una contraseña :: "); my $pass = <STDIN>; if ( $pass eq "hola\n" ) { print STDOUT "Es correcto\n"; } else { print STDOUT "Es Incorrecto\n"; }
El retorno de carro o tecla Enter tiene el valor '\n' Saludos
|
|
« Última modificación: 5 Marzo 2010, 18:55 pm por ^TiFa^ »
|
En línea
|
|
|
|
leogtz
. . .. ... ..... ........ ............. .....................
Colaborador
Desconectado
Mensajes: 3.069
/^$/
|
^TiFa^, el STDOUT no es necesario, la salida va dirigida por defecto a 1(stdout).
|
|
|
En línea
|
|
|
|
^Tifa^
Desconectado
Mensajes: 2.804
|
Lo se es costumbre ya personal mia... asi como dar uso de fprintf en C cuando puedo perfectamente dar uso de printf. Pero... se accepta la sugerencia para el chico que pregunto digo, porque la costumbre no creo que se me quite
|
|
|
En línea
|
|
|
|
leogtz
. . .. ... ..... ........ ............. .....................
Colaborador
Desconectado
Mensajes: 3.069
/^$/
|
Jaja, bueno, cada quien tiene su estilo.
|
|
|
En línea
|
|
|
|
PHAMTOM
Desconectado
Mensajes: 83
0x8B,0xEC,0x33,0xFF
|
Gracias, lo que marco la diferencia y que me hizo funcionar el " CRACKME " fue el chomp($pass); , pero por qué ? , porque la cadena del password que introduzco en <STDIN> , al apretar enter , termina con un \n ? y chomp($pass); elimina el ultimo caracter ?? ,quiero saber si es así y si no si alguien me puede aclarar , Muchas Gracias. PHAMTOM
|
|
« Última modificación: 7 Marzo 2010, 13:08 pm por ◄▬▬▬▬▬PHAMTOM »
|
En línea
|
Miran a cualquier ventana, mientras su pánico emana y nubla su visión mi calma es pura precisión cargo munición y miro tranquilo ya ni respiro desde al ático os vigilo sigo al filo os tengo a tiro!
La kitchner quiere tanto a los pobres,que cada vez,tiene más
|
|
|
leogtz
. . .. ... ..... ........ ............. .....................
Colaborador
Desconectado
Mensajes: 3.069
/^$/
|
Exactamente como lo has dicho, con <STDIN> lees también el caracter '\n', y lo que se pretende con chomp, es eliminar precisamente ese '\n' de la cadena. Mira, así podrías entenderlo mejor: #!/usr/bin/perl print("Escribe una contraseña :: "); my $pass = <STDIN>; if ( $pass eq "hola\n" ) { print STDOUT "Es correcto\n"; } else { print STDOUT "Es Incorrecto\n"; }
Saludos.
|
|
|
En línea
|
|
|
|
PHAMTOM
Desconectado
Mensajes: 83
0x8B,0xEC,0x33,0xFF
|
Muchisimas gracias,me han aclarado todo , pueden cerrar el tema,saludos a todos y muy buen foro : ) .. PHAMTOM
|
|
|
En línea
|
Miran a cualquier ventana, mientras su pánico emana y nubla su visión mi calma es pura precisión cargo munición y miro tranquilo ya ni respiro desde al ático os vigilo sigo al filo os tengo a tiro!
La kitchner quiere tanto a los pobres,que cada vez,tiene más
|
|
|
~ Yoya ~
Wiki
Desconectado
Mensajes: 1.125
|
Tambien tuvo que ver lo que Tifa puso, que usabas la comparacion == que es para valores numericos y no esta comparando valores numericos si no cadena de caracter, asi que debes usar eq xD.
Que bueno que por esto lado se programa en perl, antes pasaba por esto lados pero nunca veia script en perl, mucho python xD
|
|
|
En línea
|
Mi madre me dijo que estoy destinado a ser pobre toda la vida. Engineering is the art of balancing the benefits and drawbacks of any approach.
|
|
|
PHAMTOM
Desconectado
Mensajes: 83
0x8B,0xEC,0x33,0xFF
|
Tambien tuvo que ver lo que Tifa puso, que usabas la comparacion == que es para valores numericos y no esta comparando valores numericos si no cadena de caracter, asi que debes usar eq xD.
Que bueno que por esto lado se programa en perl, antes pasaba por esto lados pero nunca veia script en perl, mucho python xD
Jaja ! , pues sí , me interese mas por el lado de perl, ya que estuve estudiando bof , y realmente ,tengo conocimientos de otros lenguajes de programación, por eso me maneje para el local bof , pero a la hora del remote buffer overflow, era super necesario la programación de sockets, tenia para elegir entre perl y c , y me meti en perl ,termine un manual y ahora estoy viendo si encuentro uno bueno de programacion en socket,me gusta este lenguaje,ya que no tiene complejidad y se me hace facil entenderlo , saludos . PHAMTOM
|
|
|
En línea
|
Miran a cualquier ventana, mientras su pánico emana y nubla su visión mi calma es pura precisión cargo munición y miro tranquilo ya ni respiro desde al ático os vigilo sigo al filo os tengo a tiro!
La kitchner quiere tanto a los pobres,que cada vez,tiene más
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
ayuda con un script en perl
Scripting
|
cuenta.net
|
0
|
1,629
|
31 Octubre 2011, 22:45 pm
por cuenta.net
|
|
|
[PERL]script corrompe archivo
Scripting
|
z_ane_666
|
1
|
2,820
|
23 Junio 2013, 14:34 pm
por explorer
|
|
|
Crackear una contraseña que este en MD5 con script perl y backtrack
Ingeniería Inversa
|
nightcode
|
1
|
2,796
|
1 Enero 2014, 03:44 am
por .:UND3R:.
|
|
|
SCRIPT PERL
Nivel Web
|
mendax
|
1
|
2,045
|
6 Febrero 2015, 21:29 pm
por engel lex
|
|
|
Ayuda con un script perl:
Scripting
|
0uts1de
|
2
|
2,255
|
14 Diciembre 2016, 16:46 pm
por 0uts1de
|
|