小心你文2113件上传:为什么论坛5261程序被攻破后主随之被攻占据4102。原因就在……对!ASP木马!1653一个绝对可恶的东西。病毒么?非也.把个文件随便放到你论坛的程序中,您老找去吧。不吐血才怪哦。如何才能防止ASP木马被上传到服务器呢?方法很简单,如果你的论坛支持文件上传,请设定好你要上传的文件格式,我不赞成使用可更改的文件格式,直接从程序上锁定,只有图象文件格式,和压缩文件就完全可以,多给自己留点方便也就多给攻击者留点方便。怎么判断格式,我这里收集了一个,也改出了一个,大家可以看一下:

  程序体(10)

  '判断文件类型是否合格

  Private Function CheckFileExt (fileEXT)

  dim Forumupload

  Forumupload="gif,jpg,bmp,jpeg"

  Forumupload=split(Forumupload,",")

  for i=0 to ubound(Forumupload)

  if lcase(fileEXT)=lcase(trim(Forumupload(i))) then

  CheckFileExt=true

  exit FunctionelseCheckFileExt=falseend ifnextEnd Function

  ‘验证文件内容的合法性

  set MyFile=server.CreateObject ("Scripting.FileSystemObject")

  set MyText=MyFile.OpenTextFile (sFile, 1) ' 读取文本文件

  sTextAll=lcase(MyText.ReadAll): MyText.close

  '判断用户文件中的危险操作

  sStr="8 .getfolder .createfolder .deletefolder .createdirectory

  .deletedirectory"

  sStr=sStr & " .saveas wscript.shell script.encode"

  sNoString=split(sStr," ")

  for i=1 to sNoString(0)

  if instr(sTextAll, sNoString(i)) <> 0 then

  sFile=Upl.Path & sFileSave: fs.DeleteFile sFile

  Response.write "<center><br><big>"& sFileSave &"文件中含有与操作目录等有关的命令"&_

  "<br><font color=red>"& mid(sNoString(i),2) &"</font>,为了安全原因,<b>不能上传。<b>"&_"</big></center></html>"

  Response.endend ifnext程序体(10)

  把他们加到你的上传程序里做一次验证,那么你的上传程序安全性将会大大提高.

  什么?你还不放心?拿出杀手锏,请你的虚拟主机服务商来帮忙吧。登陆到服务器,将PROG ID 中的"shell.application"项和"shell.application.1"项改名或删除。再将”WSCRIPT.SHELL”项和”WSCRIPT.SHELL.1”这两项都要改名或删除。呵呵,我可以大胆的说,国内可能近半以上的虚拟主机都没改过。只能庆幸你们的用户很合作,否则……我删,我删,我删删删……

 
目前共有0条评论
  • 暂无Trackback
你目前的身份是游客,评论请输入昵称和电邮!