#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;

$mail = '';
$pass = '';

sub str_replace {
my $replace_this = shift;  my $with_this = shift; my $string = shift;
my $length = length($string); my $target = length($replace_this);
  for(my $i=0; $i<$length - $target + 1; $i++){
    if(substr($string,$i,$target) eq $replace_this){
    $string = substr($string,0,$i) . $with_this . substr($string,$i+$target);
    return $string;
    }
  }
return $string;
}

$browser = LWP::UserAgent->new();
$browser->agent('Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1');
$cookie = HTTP::Cookies->new(); $browser->cookie_jar($cookie);
$data = $browser->get("http://login.vk.com/?act=login&email=$mail&pass=$pass&from_host=vk.com")->as_string;
$data = $browser->get("http://vk.com/feed2.php?act=user")->as_string;
if ($data =~ /\"id\":(.*),\"name/){$user = $1} else {exit("Auth failed!\n");} # Ибо не реагирует на /reg/


$data = $browser->get("http://vk.com/album$user\_000")->as_string;
$temp = $1 if $data =~ /<div class=\"summary\">(.*)<span class=\"divide\">/;
  my($summary, $text) = split ' ' => $temp;
  if ($summary =~ /\D/) {print "Album not contains photos!\n"; exit();} # Тут чекаем, есть ли фото в альбоме

    while($data =~ /.*photo\_row$user\_(.*?)\">.*/) {
    $pid = $1; # Айди фото
    $data = str_replace("photo\_row$user\_$pid",'', $data); # Вырезаем из контента
    $photo = $browser->get("http://vk.com/photo$user\_$pid")->as_string; # Подгружаем контент с фото
    $phash = $2 if $photo =~ /\"id\":\"$user\_$pid(.*),\"hash\":\"(.*?)\"\}\,\{\"id.*/; # Неудачная (но с верной мыслью) попытка подобрать хэш из контента
    $data = str_replace("\"fid\":\"$user\_$pid$1\,\"hash\":\"$phash\"\}\"\,\{\"id,'', $data); # А вот тут, скорее всего здесь ошибко

    print "$phash\n";
    # $remove = $browser->get("http://vk.com/al_photos.php?act=delete_photo&photo=$user\_$photo&hash=$phash")->as_string;
    }