Ver Tema

dseira · 2011-12-29 11:58 @540

Hola a todos,

Estoy tratando de realizar lo siguiente:

Tengo un dispositivo que tiene un pequeño servidor web. Tiene un archivo xml (http://IP_dispositivo/counters.xml) que quiero consultar regularmente y automáticamente para recoger su información. El problema es que para acceder a ese archivo tengo que registrarme previamente (http://IP_dispositivo/frameCmd_Login.htm) en el siguiente formulario:

Syntax: [ Download ] [ Hide ]

Using html4strict Syntax Highlighting

<form method="get"  action="/Action_Login" onsubmit="return MD5HASH()">
<font color="#000000" align="center">Please Enter Password</font>
<input size="21" type="password" value="" name="LOGINPASSWORD" id="PD" />
<input name="submit" type="submit" value="LOGIN" />

Lo he intentado usando los módulos LWP y URL, pero no sé hacerlos funcionar correctamente; soy novato con este lenguaje. El script que he probado es el siguiente:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use LWP::UserAgent;
 
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request(GET => 'http://IP_dispositivo/frameCmd_Login.htm'); 
$req->authorization_basic("password123");
 
my $res = $ua->request($req);
 
if ($res->is_success) 
{
    my $file = $res->content;
    print $file;
} 
else 
{
    die $res->status_line;
}
 

También he probado con el módulo WWW::Mechanize de la siguiente manera:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
 
$mech->get( $url );
 
$mech->follow_link( url => 'http://IP_dispositivo/frameCmd_Login.htm' );
 
$mech->submit_form(
    form_number => 1,
    fields      => {
        LOGINPASSWORD    => 'password123',
    }
);

Pero no entiendo muy bien cómo funciona.

Lo que estoy intentado hacer es, primero registrarme en la primera página (login) y posteriormente descargarme y analizar el archivo xml.

¿Alguien sabe cómo podría realizar esto correctamente? ¿Podéis echarme una mano?

Gracias por todo,

David

explorer · 2011-12-29 18:31 @813

Bienvenido a los foros de Perl en español, dseira.

El proceso de registro no está explicado del todo. Sabemos que hay que llamar a /Action_Login, pero no sabemos cuál es el resultado de la función MD5HASH().

Ni LWP ni WWW::Mechanize ejecutarán ese JavaScript, así que antes hay que averiguar qué es lo que hace.

dseira · 2012-01-18 11:26 @518

Hola explorer,

Perdón por el retraso, pero he estado muy liado estoy días entre fiestas y demás.

Te comento, la función MD5HASH tiene el siguiente código:

Syntax: [ Download ] [ Hide ]

Using javascript Syntax Highlighting

        function MD5HASH()
        {
          var output;
          output = MD5(document.getElementById("PD").value);    
          document.getElementById("PD").value = output;
                return true;
        }
 

Un saludo.

explorer · 2012-01-18 11:47 @532

Bien, entonces esto es lo que pasa: el usuario pulsa el botón de envío. El formulario pasa control a la función MD5HASH(), que calcula el MD5 de la contraseña que ha escrito el usuario en la caja 'PD', y devuelve un true, para que se lleve a cabo el envío del formulario.

Entonces, para tú hacer lo mismo desde Perl, debes darle al campo LOGINPASSWORD el valor MD5 de la contraseña. Ese valor lo puedes sacar con la ayuda del módulo Digest::MD5:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use Digest::MD5 'md5';
 
# ... más adelante ...
 
    LOGINPASSWORD => md5('password123'),

A propósito... esta es la forma más correcta de trabajar con contraseñas: la contraseña del usuario nunca es transmitida en claro por la red, sino su conversión a MD5, siendo un método muy seguro, sobre todo si hay software espiando por la red.

Publicidad

Socializa