从容应对ASP木马追捕

韩冰

网上盛传ASP木马追捕,据说有位叫blueeyes的大侠编制了一ASP代码检查你的网站中是否含有可疑ASP..

(ASP木马) 你看 : $ y; B+ A) l' L+ G9 o' Y　　　if instr(filetxt,"scripting.filesystemobject")>0 then fso = yes else fso = no 6 D; w" b' v* W　　　if fso = yes then 　　　　　　if instr(filetxt,"deletefolder")>0 or instr(filetxt,"delete")>0 then del =yes else del = no 　　　　　　if instr(filetxt,"opentextfile")>0 or instr(filetxt,"createtextfile")>0 or instr(filetxt,"openastextstream")>0 then create =yes else create = no 　　　　　　if instr(filetxt,"move")>0 then mov = yes else mov = no 7 I) B0 V% b1 p　　　end if 5 `5 B: V, }" O6 b0 C* w3 L　　　if instr(filetxt,"adodb.stream")>0 then stream = yes else stream = no 　　　if instr(filetxt,"shell.application")>0 then shell = yes else shell = no 　　　if instr(filetxt,"wscript")>0 then ws = yes else ws = no # Q% a3 \+ o3 u* c　　　if instr(filetxt,"xmlhttp")>0 then xmlhttp =yes else xmlhttp = no 　　　if instr(filetxt,"vbscript.encode")> 0 or instr(filetxt,"javascript.encode")> 0 then encode = yes else encode = no 　　　filetxt = "" . T4 P$ f$ M" y3 z呵呵,厉害!!! # i/ P4 B9 A6 k |3 Y- d$ L' f* Q" d咱们的饭碗真的要被砸了吗? 道高一尺;魔高一丈;看我的! 它不是检查创建对象里的字符串吗?好!我来加个空值的变量:

* [& B1 }' u( i9 j- p' B5 ^

set im=server.CreateObject("Scr"&b&"ipting.Dictionary") 7 Q& m. ]3 v1 ^# X2 eset lP=server.CreateObject("Ado"&l&"db.Stream") # q+ m/ D% J) xset fB=Server.CreateObject("Scr"&u&"ipting.FileSystemObject") Set tN=Server.CreateObject("WSC"&e&"RIPT.NETWORK") set sa=server.createobject("she"&e&"ll.application") set TV=server.createobject("WSC"&y&"RIPT.shell")

) I, f2 X \6 h/ h6 ~% Z4 }

哈哈;刚刚加进一只眼我们可爱的蓝眼睛就视而不见啦! * t3 ]& K+ \, Y) D+ \/ N别忘了:我们加的是空值变量,而空值变量的名字在不违反ASP规则的前提下是可以随意起名字的 % V5 F5 G$ \+ U1 }' L0 D+ X: y中文英文;呵呵万国文字.蓝眼睛视力再好也是睁眼瞎耶 BTW:其实把马放在我们那个小秘密里说的目录里蓝眼睛连哪个目录都看不见更别说看马里的代码了 2 e# d! F( y! O# `让蓝眼睛望马兴叹吧!!!....over

ilikenba

是不是可以找到CreateObject，然后将他的括号里面的东西付给一个变量运行后再判断！