Forum taboret2 Strona Główna

taboret2
T2 script
 

Spamer odpowie .pl

 
Napisz nowy temat   Odpowiedz do tematu    Forum taboret2 Strona Główna -> Skrypty Perl
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
nforce17
Administrator



Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów

Pomógł: 4 razy
Ostrzeżeń: 0/5

PostWysł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 Smile


Post został pochwalony 0 razy

Ostatnio zmieniony przez nforce17 dnia Nie 4:27, 05 Cze 2011, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum taboret2 Strona Główna -> Skrypty Perl Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
deoxBlue v1.0 // Theme created by Sopel stylerbb.net & programosy.pl

Regulamin