[STNC] -> ImagesHack.us Uploader v1.0 :)

STNC главная

Главная

Помощь

Поиск

Участники Отправка SMS

Календарь

Файлы

Здравствуйте Гость ( Вход | Регистрация )

Выслать повторно письмо для активации

[STNC] -> Основные разделы -> Наши Релизы

:::

ImagesHack.us Uploader v1.0 :), (с) drmist

Подписка на тему | Сообщить другу | Версия для печати

drmist

Дата 9.04.2007 - 20:57

Offline

Professional

Профиль
Группа: -users-
Сообщений: 1165
Пользователь №: 222
Регистрация: 14.04.2005

Рейтинг:
(0%)

Ничего особого в этом скрипте нет - просто накодил от нечего делать.
В качестве параметра получает путь к файлу, в качестве результата выдает url с этим файлом на ImageShack.us

Код

#! /usr/bin/perl
use IO::Socket::INET;

# ::: isupload.pl :::
# ImagesHack.us Uploader v1.0 :)
# (c)oded by drmist\SaTaNiC Team
# web: www.security-teams.net

$request1 = "POST / HTTP/1.1\r\n".
"Host: imageshack.us\r\n".
"Connection: close\r\n".
"Content-Type: multipart/form-data; boundary=xBOUNDRYx\r\n".
"Content-Length: xLENGTHx\r\n\r\n";

$request2 = "--xBOUNDRYx\r\n".
"Content-Disposition: form-data; name=\"fileupload\"; filename=\"xFILENAMEx\"\r\n".
"Content-Type: image/xFILETYPEx\r\n\r\n";

$file = shift or die "Usage: $0 <path_to_file>\n";
$fsize = -s $file;
($fname) = $file =~ /([^\/]+)$/;
($ftype) = $fname =~ /\.([^\.]+)$/;

unless($fname && $ftype) { die "[-] Invalid filename\n"; }

open FID, $file or die "[-] Failed to open $file!\n";
sysread(FID, $data, $fsize);
close FID;

srand(time());
$boundry = "-" x 16;

for($i = 0; $i < 32; $i++) {
$boundry .= int(rand()*10);
}

$request2 =~ s/xBOUNDRYx/$boundry/;
$request2 =~ s/xFILENAMEx/$fname/;
$request2 =~ s/xFILETYPEx/$ftype/;
$request2 .= $data."\r\n--$boundry--\r\n";
$length = length($request2);
$request1 =~ s/xBOUNDRYx/$boundry/;
$request1 =~ s/xLENGTHx/$length/;
$request1 .= $request2;

*SOCK = IO::Socket::INET->new(
PeerAddr => "imageshack.us",
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM) or die("[-] Connection failed!\n");

$buff = "";
print SOCK $request1;
while($line = <SOCK>){ $buff .= $line; }
close SOCK;

if(($img, $url) = $buff =~ /SHELL UPLOADER\:([^\/]+)\/([^\n]+)\n/) {
print "[+] http://$img.imageshack.us/$img/$url\n";
} else {
print "[-] Failed\n";
}

fenicks	Дата 14.10.2008 - 11:49
Unregistered	Добрый день, скажите пож-та а как необходимо модифицировать ваш скрипт чтобы он полылал запрос аналогичный галочке "remove size/resolution bar from thumbnail? " на сайте imageshack.us ?

0.0.7

Дата 29.01.2009 - 00:05

Offline

Activist

Профиль
Группа: -users-
Сообщений: 63
Пользователь №: 3957
Регистрация: 9.07.2006

Рейтинг:
(0%)

измените 9-ю строчку

Код

$request1 = "POST /?rembar=1 HTTP/1.1\r\n".

poma

Дата 8.03.2009 - 17:53

Unregistered

вобщем imageshack немножко изменились сейчас, и скрипт нужно тоже немножко изменить:

(только последние строчки)

Код

if($buff =~ /location: http:..(.*)\n/) {
$url = 'http://'.$1;
print "Url: $url\n";
$url =~ /http:..([\w\d]+).imageshack.us\/content.php.page=done&l=([\w\d]+)\/(\d+)\/([\d\w\.]+)/;
print "Preview: http://$1.imageshack.us/my.php?image=$4\n";
print "Image: http://$1.imageshack.us/$1/$3/$4\n";

#http://$img.imageshack.us/$img/$url\n
} else {
print "[-] Failed\n";
}

Это сообщение отредактировал poma - 8.03.2009 - 22:40

« Предыдущая тема | Наши Релизы | Следующая тема »