nforce17
Administrator
Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów
Pomógł: 4 razy
Ostrzeżeń: 0/5
|
 Wysłany: Nie 0:17, 05 Cze 2011 Temat postu: Spamer odpowie .pl |
|
|
[link widoczny dla zalogowanych]
kod spamera:
| Kod: | # Spamer For Odpowie.pl
# Wersja: 0.1 Beta
# Autor: Nforce
# Skrypt napisany w celach edukacyjnych nie odpowiadam za szkody wyrzadzone nim!
# Dzialasz na wlasna odpowiedzialnosc
use LWP::UserAgent;
# Konfiguracja Spamera #
my $pytan = 1000; # ile ma zadac pytan
my $tresc = "Czesc czy lubisz sie zabawic?"; # Tresc spamu
my $plik = "profile.txt"; # Plik z profilami ktore maja byc spamowane
# Koniec Konfiguracji #
#$tresc =~ s/ /+/g;
open (pr, $plik);
my @profile = <pr>;
close (pr);
for (my $a = 0; $a <= $#profile; $a++) {
$profile[$a] =~ s/\r//;
$profile[$a] =~ s/\n//;
}
my $v = 0;
my $con = LWP::UserAgent->new();
$con->agent("User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1");
$con->default_header("Content-Type" => "application/x-www-form-urlencoded; charset=UTF-8");
$con->default_header("X-Requested-With" => "XMLHttpRequest");
for (my $i = 0; $i < $pytan; $i++) {
#$tresc = "". int(rand(10000)) ."";
my $res = $con->post("http://odpowie.pl/ajax/ask.php", [ 'user' => $profile[$v], 'question' => "". $tresc ." ". rand(int(10000)) ."" ]);
if ($res->is_success) {
if ($res->decoded_content == 1) {
print "Pytanie nr ". $i ." zostalo zadane\r\n";
} else {
print $res->decoded_content, "\r\n";
}
}
if ($v < $#profile) { $v++;
} else {
$v = 0;
}
sleep(5);
} |
w profile.txt wrzucamy nazwy userow.
Wiecej informacji na linku u gory
pozdrawiam 
Post został pochwalony 0 razy
Ostatnio zmieniony przez nforce17 dnia Nie 4:27, 05 Cze 2011, w całości zmieniany 1 raz
|
|
