Discussion :

[tsukasag]

Bonjour

Je souhaiterais savoir comment réaliser un script en perl qui aurait pour fonction de récuperer un post pour afficher si le compte est valide ou non ...

Voila, je prend un site au hazar (il a laire bien sécurisé car https et des post aparament inutile) https://steamcommunity.com/ et je voudrais que mon script affiche si le compte est valide ou non tout simplement :

j'ai essayer, voici le résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
 
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
 # on envoi le post et ses variables
my $req = HTTP::Request->new(POST => 'https://steamcommunity.com',
                 [ action => 'doLogin',goto => '',steamAccountName => 'teste',steamPassword => '0000']);
$req->content_type('application/x-www-form-urlencoded');
 #retour et on affiche
my $res = $ua->request($req);
print "Content-Type: text/html\n\n";
print $res->content;

voici le message qui l'accompagne :

Can't call method "clone" on unblessed reference at D:/Perl/site/lib/HTTP/Message.pm line 22.

merci par avance pour toute aide :-O

[GnuVince]

Levez vos mains ceux qui pensent qu'on a un leet hax0r en devenir.

[tsukasag]

En aucun cas mes intentions sont néfastes ou autres.
Je cherche juste un moyen de parvenir à faire se que vous demande plus haut, pour un futur projet innovant.
De plus j'ai pris se site au hasard donc ...

Cordialement
Tsukasag

[Jedai]

Je suppose qu'il te manque Net::SSL ou autre module SSL pour pouvoir gérer le protocole https.

Je ne lève pas les mains, pour l'instant le "futur leet" me paraît trop spéculatif...

--
Jedaï

[tsukasag]

tu a tout bon, il me manque bien un plugin.

il me faut Crypt::SSLeay, mais pour Crypt::SSLeay il me faut OpenSSL, donc ma nouvelle question est la suivante :

comment installe t-on un packet ? (pour ajouter make par exemple).

merci par avance.


edit: j'ai réussi, c'était plus compliqu" étant sous windows et ayant installer activ perl, me reste plus qua voir si sa marche avec mon script

[tsukasag]

Donc voila, après plusieurs essaies, j'en suis venus à la conclusion que je récupère bien le retour de la page en ghtml, mais le problème et que l'envoi du POST ne marche pas.
J'ai aussi constaté que les coockies était nécessaire pour se loguer, je voudrais donc savoir si vous pourriez m'indiquez si mon script les prend bien en compte ou non.

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
#!/usr/bin/perl
#agent LemonLDAP pour protéger l'application OPIAM-demo
 
use LWP::UserAgent;
use CGI;
use Cwd;
my $dir = getcwd;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => 'https://steamcommunity.com/');
$req->content_type('application/x-www-form-urlencoded');
 
# On transmet le login + password de l'utilisateur pour simuler la connection
$req->content("action=doLogin&goto=&steamAccountName=teste222&steamPassword=teste");
my $res = $ua->request($req);
my %headers = %{$res->headers};
my $cgi=CGI->new;
my %cgiHeaders;
$cgiHeaders{'-type'} = $headers{'Content-Type'} || 'text/html';
foreach(keys %headers) {
	next if(/Content-Type/);
	$cgiHeaders{"-$_"} = $headers{$_};
}
print $cgi->header(%cgiHeaders);
print $res->content;

Merci d'avance.
Ps : Désole du double post.
Cordialement
Tsukasag

[GnuVince]

Utilise WWW::Mechanize.

[tsukasag]

Désolé mais je ne comprend pas du tout comment marche : WWW : : Mechanize
Pourriez vous m'en dire un peu plus à se sujet ?
De plus je viens de remarquer que je n'est pas besoin des cookies, sinon je viens de m'aperçevoir que le message n'apparait dans le premier <h2>, il sera donc aisé de le récupèrer par la suite. J'ai donc vraiment besoin de votre aide pour que mon site soit fonctionnel.
Grand merci.

Cordialement
Tsukasag

[GnuVince]

WWW::Browser émule un navigateur web. Tu dis "vas à cette page, entre ces informations dans les champs, clique submit, etc." Ça gère automatiquement les cookies. Bien pratique et souvent plus simple à utiliser.

[tsukasag]

Personne ne peut me proposer un bout de code ?

[tsukasag]

Bonjour,
j'ai réussi, merci a tous =)