#!/usr/bin/perl -w
#######
# by [dei]

#######
$login = '';
$pass = '';
#######

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

sub login( $$ ) {
	my $em = $_[0];
	my $pa = $_[1];
	
	my $cookies = $em;
	$em =~ s/@/%40/;
	local $ua = LWP::UserAgent->new;
	$ua->agent('Opera/9.63 (Windows NT 6.0; U; ru) Presto/2.1.1');
	$ua->cookie_jar(HTTP::Cookies->new(file => $cookies, autosave => 1));
	my $req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php');
	$req->referer('http://vkontakte.ru/');
	$req->content_language('ru');
	$req->content_type('application/x-www-form-urlencoded');
	$req->content("email=$em&pass=$pa");
	my $result = $ua->request($req);
	
	$result->as_string =~ /id(\d+)/;
	local $id = $1;
	
	if($result->code == 302) {
		&delfriends;
		
		print "done\n"
	}
	else { die('bad acc'); }
}


sub delfriends( ) {
	my $req = HTTP::Request->new(GET=>'http://vkontakte.ru/friend.php?'.myrand(5));
	$req->referer('http://vkontakte.ru/id'.$id);
	my $result = $ua->request($req);
	my $r = $result->content;
	
	while($r =~ /\[(\d+), \{/g) {$ua->get('http://vkontakte.ru/friend.php?act=do_delete&id='.$1); sleep(5); }
}


sub myrand( $ ) {
	$int='';
	for($i=1;$i<=$_[0];$i++) { $int .= int(rand(10)) }
	return $int;
}


login($login,$pass);