Discussion :

[ynnvlz]

Bonjour à tous,

Je tente vainement de construire un bot en perl capable de se connecter à ce site : 178.33.132.12
A l'appel du site, je reçois un cookie PHPSESSID et une variable infolog est générée.
Je récupère la valeur de infolog et je reconstruis le lien de connexion que je passe à l'user agent.
Mais je suis systématiquement jeté et reste vainement sur la page de log

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/bin/perl -w
    use strict;
    use LWP::UserAgent;
    use HTML::Form;
    use HTTP::Cookies;
 
# initialisation de l'agent
    my $ua = LWP::UserAgent->new(
        agent      => 'Mozilla/5.0 (X11; Ubuntu; Linux i686; rv:19.0) Gecko/20100101 Firefox/19.0',
        cookie_jar => HTTP::Cookies->new(
            file           => 'LWPcookies.txt',
            autosave       => 1,
            ignore_discard => 1,        
        )
    );
 
# initialisation de la requete
    my $base = 'http://178.33.132.12/';
    my $res  = $ua->request(HTTP::Request->new( GET => $base ));
    my $form = HTML::Form->parse($res->decoded_content,
            base => $res->base,
            charset => $res->content_charset,
    );
 
# afficher le Infolog
    my $infolog = $form->find_input('infolog')->value;
    print($infolog);
 
# se logger
    my $user = 'LOGIN';
    my $pass = 'PASSWORD';
    my $loginlink = 'http://178.33.132.12/index.php?infolog=' . $infolog . '&Login=' . $user . '&password=' . $pass . '&btn_login.x=66&btn_login.y=17';
    $ua->request(HTTP::Request->new( GET => $loginlink ));

Cette solution ne convient pas, comment puis-je procéder ?
J'ai un outil (Burp) qui me permet d'intercepter l'ensemble des requêtes et réponses mais j'avoue avoir bien du mal à exploiter les infos.

En vous remerciant.

[ynnvlz]

Il faut considérer que le PERL est un langage mort et passer à autre chose vu le nombre d'intervention ?

[Dra_Gun]

Bonjour,

Je ne sais pas comment se fait l'auth sur le site, mais parfois une url ne suffit pas, surtout s'il y a un cookie.

un exemple ci dessous avec un seul champ dans le formulaire, qui correspond au password

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
my $req = HTTP::Request->new( GET => "$host" );
 
# execute la requete et recoit la reponse
my $res = $ua->request($req);
die $res->status_line if not $res->is_success;
 
# le formulaire de login est le premier formulaire de la page
my $form = ( HTML::Form->parse( $res->content, $host ) )[0];
 
# on remplit les champs
$form->find_input('SessionLoginForm')->value($pass);
 
$ua->request( $form->click );

Cdlt,