#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Cookies;

#################################
my $login = 'login@mail.ru';    # Логин аккаунта ВК
my $pass = '123456789';         # Пароль аккаунта ВК
my $good = 'numbers.txt';       # Файл с напарсенными номерами телефонов
my $range = "19340000-19349999";# Диапазон ID юзеров ВК, которых парсить
#################################

my $ua = LWP::UserAgent->new(timeout    => 40,
                             cookie_jar => HTTP::Cookies->new());
my $ans = $ua->post("http://pda.vkontakte.ru/login?pda=index&acknowledge=0",{
"email" => $login,
"pass" => $pass})->as_string;
my $i; my $cnt = 0;
my ($from,$to) = split /-/,$range;
for($i = $from; $i <= $to; $i++){
my $resp = $ua->get("http://pda.vkontakte.ru/id$i")->content;
if($resp =~ m,'tel:(\d*)',i){
++$cnt;
open my $dat,'>>'.$good;
print $dat $1."\n";
print "[+] - $1\n";
print "[numbers found: $cnt]\n";
close $dat;}
}
#(c) Gaus 2009