1787691 Скрипт для загрузки файлов на Zalil.ru

Зачем это нужно ?
Я написал это для того что бы можно было удобно постить файлы из терминала.
Но после для того что бы можно было использовать скрипт при помощи контекстного меню добавил опцыию -m.

Скрипт:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
#!/usr/bin/perl -w


 # ZLoder v 1.0
 # Author: SHok
 # Officeal site: http://nig.org.ua/
 # Licens: GPL v3

use strict;
use LWP::UserAgent;
use LWP::Protocol::socks;
use HTTP::Request::Common;
use Getopt::Std;

# Достаём опцыи
my %opt=();
getopt("fpzm",\%opt);

help() unless (%opt);

# Парсинг и валидатор файла
print "Testing file... ";
my $file = $opt{f};
die "Print $file, it\'s not file!\n" unless (defined $file && -e $file);
print "Ok.\n";

# Сжатие файла\папки
if ($opt{z} and $opt{f}) {
    print "Create zip arhiv ... \n";
    $file = zip($opt{f},$opt{z});
    if ($file) {
        print "Ok. Ziping finished.\n";
    } else {
        die "Cent create ZIP arhiv.\n";
    }
}

# Подключение прокси
my $proxy = $opt{p};
$proxy = undef unless (defined $proxy && $proxy =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}/);
print "Proxy $proxy, set ... OK.\n" if ($proxy);

# создаём объект браузера
my $ua  = LWP::UserAgent->new(
    agent => 'Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0'
    );

# Назначаем прокси если он были передан
$ua->proxy(['http', 'https'], $proxy.'/') if ($proxy);

# Допилим заголовок
$ua->default_headers->push_header(
    Accept => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8;*/*',
    'Accept-Language' => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3',
    'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
    Connection => 'keep-alive',
    Cookie => '__utma=23564465.1862775797.1309299565.1312314946.1312322645.26; __utmz=23564465.1309299565.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmb=23564465.1.10.1312322645; __utmc=23564465',
    Connection => 'keep-alive',
    Referer => 'http://zalil.ru/',
    );

# создаём объект для POST-запроса
my $req = POST('http://zalil.ru/upload/',
    'Content_Type' => 'form-data',
    'Content' => [
    'filename' => "test.zip",
    'file' => [$file]
    ]);

# выполняем POST-запрос и проверяем ответ
print "File sending ... ";
my $res = $ua->request($req);
my $page = $res->as_string;

if (my ($id) = ($page) =~ /\/upload\/(\d+)/i) {
    print "Ok.\n";
    print 'URL: http://zalil.ru/'.$id."\n";
    message('http://zalil.ru/'.$id) if ($opt{m});
} else {
    print "\nCent parsed URL in the:\n".$res->as_string."\n";
}

# Удаляем архив если был создан таковой
unlink $opt{z} if ($opt{z});

# Содзаём архив при помощи утилиты zip
sub zip {
    my ($file,$arhiv) = @_;
    system('zip '.$arhiv.' '.$file);
    if (-e $arhiv) {
        return $arhiv;
    } else {
        return undef;
    }
}

sub message {
    my $link = shift;
   
    `notify-send ZLoader "$link"`;
    system('echo "'.$link.'"|xclip -selection clipboard -i');
}

sub help {
    print " -f - Файл
 -p [http://1.1.1.1:8080 | socks://1.1.1.1:1080] - Прокси
 -z [file.zip] - Имя полученного зип архива
 -m [yes] - Скопировать ссылку в буфер и вывести уведомление при помощи notify-send.
"
;
    exit;
}

tt twitter big4 Скрипт для загрузки файлов на Zalil.ru tt digg big4 Скрипт для загрузки файлов на Zalil.ru tt facebook big4 Скрипт для загрузки файлов на Zalil.ru tt gmail big4 Скрипт для загрузки файлов на Zalil.ru tt myspace big4 Скрипт для загрузки файлов на Zalil.ru tt reddit big4 Скрипт для загрузки файлов на Zalil.ru

Один комментарий на “Скрипт для загрузки файлов на Zalil.ru”

  • POMA:

    +1 Нужная штука. Жаль под Windows использовать проблемно. Вот бы в варианте exe,,,

    Ответить

Оставить комментарий

CAPTCHA изображение
Обновить изображение
*

RSS-подписка NIG Twitter-подписка NIG

Метки
Друзья
Блог линуксоида Программы для диагностики компьютера
Супер Pixel
Убивалка флешаБэкконект шелл. Часть вторая.Бэкконект шелл. Начало.НАМ для деления чиселПростая арифметикаПередача файлов. Часть третья. Клиент.Dll injectionСканер портовКодировка текста в BMPРухнул на два дняПередача файлов. Часть вторая. Сервер.Поворот и BMPCRC32 суммаBMP форматфайловые вирусыассемблер, строкиАссемблер и матрицапримеры ассемблерМногопоточное программированиеАрхитектура клиент — серверРаздача ICQПишем шуткупишем паукаПривет от ДжеймсаОбход firewallЗагрузка картинок на Gyazo, прямо из ThunarКейлоггер 3Плюшки в контекстном меню Thunarc по сетиКейлоггер 2КейлоггерСкачать Ассемблер!VirusCheckerОтморозки мешают жить ?! Не проблемма !Cкрипты для взлома аккаунтов QIPWinAPI. Работа с файлами. Часть третья. ЧтениеDlink exploitБрут сайта etxt.ruКрасивая раскладка клавиатуры в GnomeМои безделушки на PerlКак запускать Perl скрипты под WindowsБрутфорс партнёрки ZipCoinПарсер upwap.ruИзменения в блогеЧудо ЗаливалкаСкрипт для загрузки файлов на Zalil.ruЯндекс «чоткий» поисковик!WinAPI. Работа с файлами. Часть вторая. ЗаписьWinAPI. Работа с файлами. Часть первая. ПоискПолучение MD5 хеша средствами C++Что нам стоить letitfile.com забрутить?WarCraft III запуск под LinuxЭнтропия файлаWinsock и C++. Мини прокси. Часть |\\/. Завершающая.Перепилил чекер для 4gameЧекер акаунтов YoupornCMailSend v 1.1. Отправка почы без проблемСлучайные числаWinsock и C++. Часть |||. smtp монстр.Брутфорс LetitFile.comИспользование X-Forwarded-For, для обмана веб-сервера, подмена IP подручными средствамиДело было вечером, делать было нечего…Мысли о аудио сервереПарсер ников из твиттераКонец школоло…Perl+Linux. Заметка первая (Удобный Paste bin).Бэкконект шелл.E-MAIL + winsocket + Cpp. Сложно?winsock и C++. Часть ||. Атака клоунов.C++ резолвинг адресаPerl, анализ HTML кода и определение CMSМатематика в C++winsock и C++