Discussion :

[maiko]

Bonjours/Bonsoir,

Alors voila, j'ai récupéré un script trouver sur internet http://habett.com/perl/shibuya.html

Je l'ai adapter a mes besoin et corriger, le voici :

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
#!/usr/local/bin/perl
$aim = 'http://www.votrelien.tld/';
open (UAS, "< uas.txt") or die ("Pb fichier uas.txt $!");
while (<UAS>) { push (@uas, $_); }
close (UAS);
open (FILEIN, "< proxies.txt") or die ("Pb fichier proxies.txt $!");
while ($proxy = <FILEIN>) {
  chomp($proxy);
require LWP::UserAgent;
  my $agent = LWP::UserAgent->new;
  $agent->timeout(25);
  $uag = $uas[int rand(@uas)];
  $agent->agent($uag);
  $fromail = fakemail;
  $agent->from($fromail);
  $agent->proxy($proxy);
require HTTP::Request;
$request = HTTP::Request->new(GET => '$aim');
  $dapage = $agent->request($request);
  $content = $dapage->content;
}
sub fakemail {
  my $email;
  @pre=('info','admin','master','boss','slave','abuse','josh');
  @doma=('free','random','first','alpha','post','pre','future');
  @domb=('service','info','porn','mail','internet','music','stuff');
  @ext=('com','net','org','fr','co.uk');
  $email = $pre[int rand(@pre)]+'@'+$doma[int rand(@doma)];
  $email .= "-" if (rand() > 0.5);
  $email .= $domb[int rand(@domb)]+"."+$est[int rand(@ext)];
  return $email;
}

Le problème, c'est que, ni l'original, ni le mien ne fonctionne.
C'est pourquoi je post ici en espérant qu'une âme charitable ce penche sur mon script et le corrige...

D'avance, merci.

Maïko

[djibril]

Le probleme, c'est que, ni l'original, ni le mien ne fonctionne.

Informatiquement, ça ne veut rien dire sans plus de précisions

[maiko]

Ah oui, désolée...

Alors, le message d'erreur est le suivant:

Code :

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

1
2
3
 
C:\Users\Maïko\Desktop\ptp hitter>perl log.pl
'201.21.182.68:8080' is not a valid URI scheme at log.pl line 16

ça c'est l'erreur que renvoi perl log.pl, on la aussi parler de perl -w log.pl alors voila ce que renvoie perl -w log.pl:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
C:\Users\Maïko\Desktop\ptp hitter>perl -w log.pl
Unquoted string "fakemail" may clash with future reserved word at log.pl line 14
.
Name "main::content" used only once: possible typo at log.pl line 20.
Name "main::est" used only once: possible typo at log.pl line 30.
Name "main::aim" used only once: possible typo at log.pl line 2.
'201.21.182.68:8080' is not a valid URI scheme at log.pl line 16

la liste de proxies ce trouve dans un fichier poxies.txt sous la forme IP:port


j'ai un peu de mal car c'est la première fois que je me met au perl...
J'ai déjà passer 4H juste pour l'adapter et le corriger...

mais la je bloque.

A+

[Jedai]

proxy veut une vrai URL, pas juste une IP (autrement dit il manque un 'http://' avant ton ip), de plus il faut indiquer quels protocoles peuvent utiliser ce proxy :

Code Text :

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

1
2
3
4
5
6
7
8
9
10
11
$ua->proxy(\@schemes, $proxy_url)
$ua->proxy($scheme, $proxy_url)
 
    Set/retrieve proxy URL for a scheme:
 
     $ua->proxy(['http', 'ftp'], 'http://proxy.sn.no:8001/');
     $ua->proxy('gopher', 'http://proxy.sn.no:8001/');
 
    The first form specifies that the URL is to be used for proxying of access methods listed in the list in the first method argument, i.e. 'http' and 'ftp'.
 
    The second form shows a shorthand form for specifying proxy URL for a single access scheme.

--
Jedaï

[thierry.chich]

Loin de moi l'idée de vouloir réfréner votre enthousiasme, mais c'est quoi au juste la finalité du script ? On passe derrière des proxies pour faire du hit sur des pubs de page ? C'est pas extrêmement légal me semble-t-il. Ça pourrait être vu comme une usurpation d'identité, ce qui est répréhensible.

Du coup, c'est peut être pas très prudent d'annoncer qu'on va le faire sur un forum, non ?