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