Security Teams



» ДРУЗЬЯ: ::: Protocols.Ru ::: Grudina.INFO ::: Securityvulns.RU ::: Hack-Lab ::: ALP.org.ua :::
  Ответ в темуСоздание новой темы

> 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";
}
PMСайт пользователя
Top
fenicks
Дата 14.10.2008 - 11:49
Цитировать сообщение




Unregistered












Добрый день, скажите пож-та а как необходимо модифицировать ваш скрипт чтобы он полылал запрос аналогичный галочке "remove size/resolution bar from thumbnail? " на сайте imageshack.us ?
Top
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".
PMПисьмо на e-mail пользователю
Top
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
Top

Опции темы Ответ в темуСоздание новой темы