+ / -

[#define TRUE FALSE]

пишу как умею.
ищет (1000) сообщения указанного пользователя ($id) и ставит в них минус (код "+" закомментирован)

#!/usr/bin/perl -w
require IO::Socket;
# +       post_thanks.php?do=post_thanks_add&using_ajax=1&p=
#
# -        post_groan.php?do=post_groan_add&using_ajax=1&p=
#

#$id='27383'; #whiteday 
#$id='21379';        # white
$id='14885'; #kid rock
$login='LOGIN';
$pass='PASSWORD';
$host='forum.asechka.ru';
$zdata = 'vb_login_username='.$login.'&cookieuser=1&vb_login_password='.$pass.'&s=&do=login&vb_login_md5password=&vb_login_md5password_utf=';


z_post('login.php?do=login',$zdata);
$cookie=join('; ',@cookie);

z_get("search.php?do=finduser&u=$id",$cookie);


if ($buf=~/searchid=([^\r\n]*)/) {
        
        z_get("search.php?searchid=$1&pp=1000",$cookie);
    }
 while ($buf=~m%id=\"post([^\"]*)%igs)

    {
        push @tom, $1;
    }  
     
for(@tom){
    z_get("post_groan.php?do=post_groan_add&using_ajax=1&p=$_",$cookie);  # MINUS
    #z_get("post_thanks.php?do=post_thanks_add&using_ajax=1&p=$_",$cookie); # PLUS
    }
 

    
sub z_get {
   $buf='';
   my $act=shift;
   my $cookie=shift || '';
   my $sock = IO::Socket::INET->new(
   PeerAddr => $host,PeerPort => 80,Proto => 'tcp',Timeout => 60 ) || 
        warn "I encountered a problem: ",&IO::Socket::INET::errstr();
   $sock->autoflush;
   $post = "GET /".$act." HTTP/1.1\r\n";
   $post.= "Host: $host\r\n";
   $post.= "Accept: */*\r\n";
   $post.= "Referer: http://".$host."\r\n";
   $post.= "Cookie: $cookie\r\n";
   $post.= "User-Agent: Internet Explorer 6.0\r\n";
   $post.= "Connection:close\r\n\r\n";

   print $sock "$post" || warn "cant print in sock: ",&IO::Socket::INET::errstr();
   while (<$sock>)
        { 
      if (/Set-Cookie: ([^;]*)/) {
        push @cookie, $1;
        
    }
      $buf.=$_;
      
      }
   if ($sock)
    { close ($sock); }
   else {print "\n"}
    return $buf;
}


sub z_post{
    $buf='';
   my $act=shift;
   my $data = shift;
   my $cookie=shift || '';
   my $sock = IO::Socket::INET->new(
   PeerAddr => $host,PeerPort => 80,Proto => 'tcp',Timeout => 60 ) || 
        warn "I encountered a problem: ",&IO::Socket::INET::errstr();
   $sock->autoflush;
   $post = "POST /".$act." HTTP/1.1\r\n";
   $post.= "Host: $host\r\n";
   $post.= "Accept: */*\r\n";
   $post.= "Content-Type: application/x-www-form-urlencoded\r\n";
   $post.= "Content-Length: ".length($data)."\r\n";
   $post.= "Referer: http://".$host."\r\n";
   $post.= "Cookie: $cookie\r\n";
   $post.= "User-Agent: Internet Explorer 6.0\r\n";
   $post.= "Connection:close\r\n\r\n$data";

   print $sock "$post" || warn "cant print in sock: ",&IO::Socket::INET::errstr();
   while (<$sock>)
        { 
      if (/Set-Cookie: ([^;]*)/) {
        push @cookie, $1;
        
    }
      $buf.=$_;
      
      }
   if ($sock)
    { close ($sock); }
   else {print "\n"}
    return $buf;
}

[Rpsl]

Ай кросавец, ай молодец! Работает!

Добавлено через 3 минуты
только зря ты это в паблик кинул. ща ппц начнется.

[#define TRUE FALSE]

исключительно в познавательных целях)

Добавлено через 58 секунд
мне бы лучше минусик поставил вместо плюса - минусы мне нравятся =)

[SkyPwR.Vertex]

00090009, держи от меня минусы.
спасиб тебе за статейку)

[Rpsl]

после 35 строки добавляем

PHP код:

#z_get("post_thanks.php?do=post_thanks_remove_user&p=$_",$cookie); #REMOVE THX
#z_get("post_groan.php?do=post_groan_remove_user&p=$_",$cookie); #REMOVE MINUS 


[WhiteDay]

00090009, ути.. малЫша обидели.. ты ток не плач, лан? :-[

[#define TRUE FALSE]

Красавица WhiteDay .
Ну что же ты такое говоришь .
Для меня это просто фан)

[WhiteDay]

00090009, я не говорю, а ПИШУ+)

[Kid_Rock]

гага, я ету шнягу ещо вчера спалил когда у меня репа уменьшалась со скорость 40 минусов в минуту %))))

так што баян
а ты неудачник и проклят !! 7 ДНЕЙ!!!

[SkyPwR.Vertex]

блин у меня минусы кончились)

[#define TRUE FALSE]

сам ты баян и неудачнеГ )
баяном по сути своей скрипт быть не может ибо самописный )

[LILI]

00090009, йа так и не понялО...:blink: зачем те стока минусофф..?

[SkyPwR.Vertex]

lili, ты наверно блондинка поетому и не поняла))

[#define TRUE FALSE]

Лили...
просто я извращенец - не обращай внимания =)

[Kid_Rock]

Сообщение от 00090009

Лили...
просто я извращенец - не обращай внимания =)

любишь погонять перед сном? возьми у линакса жд на 300гб (ну минус 105 мб осику, 150мб софт, 100мб логи троя и т.д.), у нево много етова кина

[#define TRUE FALSE]

Хватит флудить.

[LILI]

SkyPwR.Vertex , тебе не нрава блондинки?..:-[

[filippusik]

Сообщение от 00090009

Хватит флудить.

Тебя ишака первого в бан за шыры с репой.

[#define TRUE FALSE]

Филипусик ты чего разнервничался ?
Что такого произошло что ты так реагируешь ?

[LILI]

filippusik, 00090009 ...не ругайтесь:-[

[mercuree]

LILI, мне так нравятся блондинки, давай мы вместе подрыгаемся и я тебе наставлю +, а еще у тебя такой красивый ник :-[

[SkyPwR.Vertex]

lili, не лучше давай со мной )))) я от блондинок без ума)):-[

[Ka$ta]

А давайте их всех вместе соберем, все вместе соберемся и... я камеру захвачу :dry:

[SkyPwR.Vertex]

Ka$ta, будет снимать программу "смешные и голые"
p.s. у меня минусы кончились требуется заправка)

[LILI]

.mercuree., а давай ти мну просто так..+ наставишь..:-[

SkyPwR.Vertex ню..йа даже ненаю..))