ALL about VIRUSes at your OS

di room ini hanya untuk para pemain2 virus... hahhaa...

disini kamu bisa belajar untuk membuat virus... rada susah juga sih... tapi pelajaran itu memang susah... wkkwkwkwkw...

here we start...

VIRUS


Format
VisualBasicScript (VBScript Script file)



huh, kadang kala di warnet semua akses di tutup, mulai dari Run, find/search, Control Panel, dll. gimana ya caranya menjebolnya…..

buka notepad, (bener2 keterlaluan kalo notepad aja di blok!!!) cut n paste script berikut:

Code:

----------–[b]START[/b]–-------------




On error resume next
Dim Reg
Set Reg = CreateObject("WScript.Shell")

if msgbox("Kembalikan menu Run ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "0", "REG_DWORD"
end if

if msgbox("Enable Registry Tool ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
end if

if msgbox("Perlihatkan file hidden" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
end if

if msgbox("Kembalikan menu Find" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "0", "REG_DWORD"
end if

if msgbox("Kembalikan menu Option" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
end if

if msgbox("Enable Taskmanager" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
end if

if msgbox("Disable File Extensi" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\HideFileExt", "0", "REG_DWORD"
end if

if msgbox("Perlihatkan Log Off" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\StartMenuLogoff", "1", "REG_DWORD"
end if
MsgBox"Registry kamu berhasil di optimasi, silakan logOff", vbinformation,"Selamat"
MsgBox"creat3d bY udienz.wordpress.com", vbinformation,"Selamat"




----------—[b]END[/b]–-----------



nah nih untuk membuka/enable run, hide file ext, dll. simpan dengan <namafile>.vbs dan klik untuk mengeksekusi. welcome to your imagine!!!!
eh ada lagi nih untuk mengoptimasi kompi temen2

Code:

----------–[b]START[/b]–----------




Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\MenuShowDelay", "0", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks", "0", "REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\WaitToKillServiceTimeout", "0", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\PaintDesktopVersion", "1", "REG_DWORD"
MsgBox"Registry kamu berhasil di optimasi, silakan logOff", vbinformation,"Selamat"
MsgBox"creat3d bY udienz.wordpress.com", vbinformation,"Selamat"
WshShell.RegWrite "HKLM\System\ControlSet001\Control\WaitToKillServiceTimeout", "1", "REG_DWORD"
WshShell.RegWrite "HKCU\Control Panel\Desktop\WaitToKillAppTimeout", "0", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\AutoEndTask", "1", "REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnablePrefetcher", "5", "REG_DWORD"



------------[b]END[/b]-----------

wuw .. keren sep lunk ...

awkakwkakwkaw... lets rock baby...

kayaknya sih itu bisa di VBS nya... tapi aku belum nyoba.. atut kompi ku kena virus buatan sendiri...


jadinya senjata makan tuan deh.... hahaha...