#!/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

#!usr/bin/env python
# -*- coding:utf-8 -*-
# files length counter
# (c) login999

from Tkinter import *
from tkMessageBox import showerror
from tkFileDialog import askopenfilename
LastCounter = 0
NowCounter = 0
AllCounter = 0

def Count():
    global LastCount
    global NowCount
    global AllCount
    global AllCounter
    global NowCounter
    global LastCounter
    LastCounter = NowCounter
    NowCounter = 0
    try:
        with open(askopenfilename()) as accs:
            for _ in accs:
                NowCounter += 1
                AllCounter += 1
        LastCount["text"] = LastCounter
        NowCount["text"] = NowCounter
        AllCount["text"] = AllCounter
    except Exception, e:
        showerror(u"Ошибка", e)
        
def NODUP():
    global LastCount
    global NowCount
    global AllCount
    global AllCounter
    global NowCounter
    global LastCounter
    LastCounter = NowCounter
    NowCounter = 0
    try:
        with open(askopenfilename()) as accs:
            for _ in set(accs):
                NowCounter += 1
                AllCounter += 1
        LastCount["text"] = LastCounter
        NowCount["text"] = NowCounter
        AllCount["text"] = AllCounter
    except Exception, e:
        showerror(u"Ошибка", e)
        
def Clear():
    global LastCount
    global NowCount
    global AllCount
    global AllCounter
    global NowCounter
    global LastCounter
    NowCounter = 0
    LastCounter = 0
    AllCounter = 0
    LastCount["text"] = LastCounter
    NowCount["text"] = NowCounter
    AllCount["text"] = AllCounter

MainWindow = Tk()
MainWindow["bd"] = 5
MainWindow.title(u"Счетчик Строк")
MainWindow.resizable(width=False, height=False)
ButtonsFrame = Frame(MainWindow)
CountButton = Button(ButtonsFrame, text=u"Посчитать", width=11, command=Count)
NODUPButton = Button(ButtonsFrame, text=u"Без дублей", width=11, command=NODUP)
ClearButton = Button(ButtonsFrame, text=u"Очистить", width=11, command=Clear)
CountButton.grid(row=0, column=0)
NODUPButton.grid(row=1, column=0)
ClearButton.grid(row=2, column=0)
ButtonsFrame.grid(row=0, column=0, sticky="w")
LinesLabel = LabelFrame(MainWindow, text=u"Количество строк")
LastLabel = Label(LinesLabel, text=u"Последний :", anchor="w", width=12)
LastCount = Label(LinesLabel, text=LastCounter, width=8)
NowLabel = Label(LinesLabel, text=u"Нынешний :", anchor="w", width=12)
NowCount = Label(LinesLabel, text=NowCounter, width=8)
AllLabel = Label(LinesLabel, text=u"Всего :", anchor="w", width=12)
AllCount = Label(LinesLabel, text=AllCounter, width=8)
LastLabel.grid(row=0, column=0)
LastCount.grid(row=0, column=1)
NowLabel.grid(row=1, column=0)
NowCount.grid(row=1, column=1)
AllLabel.grid(row=2, column=0)
AllCount.grid(row=2, column=1)
LinesLabel.grid(row=0, column=1, sticky="w")
MainWindow.mainloop()

#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;

#############################
my $img_dir = './images/';  # Путь к папке с изображениями
my $link_file = 'links.txt';# Файл с ссылками на загруженные изображения
#############################

print qq(##############################
# Radikal.Ru Images Uploader #
#       (c)Gaus 2009         #
##############################\n\n);
my @images = <$img_dir*.*>;
while(@images){
my $cimg = shift @images;
my $ua = LWP::UserAgent->new(timeout => 65);
my $answ = $ua->post("http://www.radikal.ru/action.aspx",
Content_type => 'multipart/form-data',
Content => [upload => "yes",
GEO_POINT_ID => "",
F => [$cimg]])->as_string;
if($answ =~ m,"input_link_1" value="(.*?)",i){
print "[ + ] ".$1." [$cimg]\n";
open my $dat,'>>',$link_file or die "\nCould not open $link_file file!\n";
print $dat "[IMG]".$1."[/IMG]\n";
close $dat;
}else{print "[ - ] [$cimg]\n";}
}