Proxy bot

[Gabriel87]

#!/usr/bin/perl

use Socket;
use IO::Socket::INET;
use MIME::Base64;
use LWP::UserAgent;
use LWP::Simple;
use URI::URL;



print("Site à visiter :\n");

chomp($site = <STDIN>);


print("Tentative de connexion .....");


if($content = get($site))
{
print("réussi\n\n");

}else{
 print("fail\n\n");
exit;
}
#-------------------------------------#
#-- Envoi des requetes aux Webproxy --#
#-------------------------------------#


print("------------------------\n");
print("- Visite par webproxy  -\n");
print("------------------------\n\n");



# Je code l'adresse du site en base64
$base64 = encode_base64($site);



#Je récupère le contenu du fichier où sont afficher les webproxy
if( -z "proxy" )
{
   print "Le fichier webproxy est vide\n";
   exit;
}

open WEBPROXY,"webproxy"
   or die "E/S : $!\n";

while(<WEBPROXY>){

chomp($proxy= $_);

        print("Visite via http://$proxy .....");
        $content = get("http://$proxy/index.php?q=$base64");
        print("Done\n");

}




#------------------------------------#
#-- J'envoie des sockets aux proxy --#
#------------------------------------#

print("\n\n");
print("---------------------\n");
print("- Visite par proxy  -\n");
print("---------------------\n\n");


if( -z "proxy" )
{
   print "Le fichier proxy est vide\n";
   exit;
}




open PROXY,"proxy"
   or die "E/S : $!\n";

while(<PROXY>){

chomp($proxy = $_);

print("Visite via http://$proxy .....");

  $ua = LWP::UserAgent->new;
  $ENV{HTTP_proxy} = "http://$proxy";
  $ua->env_proxy; 
  my $req = HTTP::Request->new(GET => "http://$site");
  $print = $ua->request($req)->as_string;

  delete $ENV{HTTP_PROXY};

print("Done\n");


}

print("\n\nAll hit done.\n\n");

Sursa : Hackhound

[AbadBoy]

Nu prea le am cu franceza, insa din cate vad e un proxymizer, credeam ca e grabber.

[em]

Nu prea le am cu franceza, insa din cate vad e un proxymizer, credeam ca e grabber.

Cu scriptul ?sta î?i po?i face hituri la site (fake traffic). Nu este nici grabber, nici proxymizer.