authentification http classique

Version imprimable

11/07/2006, 11h36
kesiahlex

authentification http classique

Bonjour,

je recherche une solution pour m'authentifier auprès d'un serveur au démarrage de mon ordi pour me connecter à internet.

Je m'explique, pour surfer sur internet, je dois d'abord me rendre à une adresse http://10.x.x.x et ensuite m'authentifier (classique).

Pour clarifier, voila la solution actuelle :
J'ai mis mon browser dans le dossier démarrage de windows puis la page de démarrage est http://login:passwd@10.x.x.x

Ca marche bien mais si la technique etait plus un truc du genre script qui se lance au démarrage ça me plairai plus.

Donc vous avez compris que je voudrais faire simplement la meme chose avec perl mais je ne connais pas grand chose.

J'ai cherché un peu et j'ai regardé les modules sur cpan mais il y a tellement de truc je suis un peu perdu. J'ai trouvé le module WWW::Authenticate mais apparement c'est pour une authentification via mysql...

Si vous pouviez m'aiguiller ce serait très aimable de votre part.

Merci d'avance :frenchy:

kesiah
11/07/2006, 11h51
ramislebob

ça ressemble à une simple authentification via du http, t'as pas trop cherché... y a deux topics récents là-dessus...
package LWP::UserAgent (cf Here and Here :? )
11/07/2006, 14h09
kesiahlex

Ah oui merci, en fait j'avais trouve quelques trucs dans le style mais pas sur le forum... Le truc que moi je pensait pas à un formulaire de page web mais à une authentification simple qui pourrait même se faire via des headers.

D'ou l'adresse de type "http://login:passwd@10.x.x.x"

Bon est ce que vous croyez qu'un truc du style...

use LWP::Simple;

$mydocument=get(http://login:passwd@10.x.x.x);

...fera l'affaire ?

merci :frenchy:
13/07/2006, 13h42
kesiahlex

Bon en fait ca ne fait pas l'affaire...

Je ne connait pas très bien comment fonctionne le module (d'ailleurs j'y connais rien du tout en perl, c'est la première fois que j'y ai recours... :mrgreen: ) mais ça ne marche pas tout le temps.

Peut etre vous auriez une explication ou une autre solution.

Vraiment je ne sais pas ce qui est effectue comme operations derriere donc je ne sais pas si cela correspond à mon probleme.

Je rappelle : Je veux automatiser la procédure suivante.
- connexion à l'adresse http://10.2.0.4
- remplir les champs de la fenetre d'authentification avec login et passwd.

je pensais qu'un simple get suffisait mais apparement pas. J'ai beau relancer le script plusieurs fois... rien n'y fait.

Merci du soutien quand meme :frenchy:
18/07/2006, 16h39
kesiahlex

merci

Essaie ça :

Code:

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
 
#! /usr/bin/perl
use strict;
use warnings;
 
package MyAgent;
require LWP::UserAgent;
our @ISA = qw/LWP::UserAgent/;
 
sub get_basic_credentials {
    my ($self, $realm, $uri, $isproxy) = @_;
    if( $uri =~ /10\.2\.0\.4/ ) { 
        return "login", "password";
    }
    return;
}
 
package main;
 
my $ua = MyAgent->new();
 
my $res = $ua->get('http://10.2.0.4');
 
print $res->content();
 
__END__

--
Jedaï

18/07/2006, 19h55
kesiahlex

merci beaucoup,

je te dirai ce que ca donne.

Sinon je me range sur wget (le soft).

salut
18/07/2006, 20h23
Jedai

Si ça ne marche pas, essaie d'installer LWP::Authen::Ntlm, et réessaie (LWP::Authen::Ntlm sera utilisé automatiquement).

--
Jedaï
18/07/2006, 21h03
kesiahlex

Le probleme qu'il me faut 1h d'inactivite internet pour avoir a me re authentifier donc je te dirai demain. A moins que je trouve une autre adresse libre et encore... pas sur que ca marche et j'ai pas envie de tester les quelques 250 qu'il me reste.

merci c'est sympa

Sinon, tu peux simuler un user :p
(j'viens de découvrir ça, cé pas dur du tout :p)
Il te suffit de lancer ton navigateur (IE ou Firefox à priori)
puis de rentrer ton login, faire un TAB, entrer ton pass et valider ;)
bref en simple, ça donne ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!C:\Perl\bin\perl.exe use strict; use Win32::GuiTest qw(:ALL); use vars qw/ $nameAppli $site $login $pass /; $nameAppli='iexplore'; $site='http://10.2.0.4'; $login='met ton login ici'; $pass='ton pass here'; system("start $nameAppli $site"); sleep(2); # histoire que le navigateur soit ouvert ;) SendKeys($login); SendKeys("{TAB}"); # On passe au champs password SendKeys($pass); SendKeys("~"); # On appuie sur ENTER ;) exit 0;
Rq : Si tu veux faire un tout petit peu plus propre (ce sleep est pas génial mais marchera ; au pire tu l'augmente un peu si le navigateur est lent à se lancer...)
donc : il est facile de reconnaitre une fenêtre, de la mettre au premier plan ou même d'attendre qu'elle s'ouvre :p
bref tu peux utiliser WaitWindow ou WaitWindowLike à la place du sleep ^^
regarde ici, il y a des exemples et la doc :p

19/07/2006, 14h33
kesiahlex

Merci beaucoup.

En fait le code de Jedai fonctionne bien. Merci a lui.

Sinon wget fonctionne aussi et c'est tout aussi leger si ce n'est qu'il faut effacer le fichier telecharge apres (et que c'est pas du perl aussi).

La solution de l'ouverture du browser est un peu plus lourd en fait et ca reviens a mettre un raccourci vers mon browser dans le dossier demarrer et donner comme page d'accueil 'http://login:mdp@x.x.x.x'

Merci c'est sympa de votre part.

A bientot :mrgreen: