Track Cyber-Hecker

* Mohon Patuhi Peraturan Forum

* Hukuman Bagi User Yang Melanggar :

* Warning 1 = Peringatan
* Warning 2 = Libur Post 1 hari
* Warning 3 = Libur Post 3 hari
* Warning 4 = Libur Post 7 hari
* Warning 5 = Ban Permanen

* Warning UP = Banned Permanent

Sosial Comunity

Login

Lupa password?

December 2016

MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 

Calendar Calendar


    Simpel Tutorial Injector suspen

    Share

    VzGrey
    +
                    +

    Points : 1177
    Reputation : 3
    Join date : 27.05.11
    Lokasi : Bandunk

    Simpel Tutorial Injector suspen

    Post by VzGrey on Sat May 28, 2011 1:48 am

    Mungkin sudah banyak yang shear cara membuat injector
    tapi ga apalah cmn buat berbagi buat kalian
    key langsung ja brayy...
    di sini sya cmn mau nambahin Comando buton yang Cristal..
    bhan yang mesti brayy punya:

    Cmd.buttonz.ocx Link : http://adf.ly/1GBaw
    Visual Basic 6 Portable.exe Link : http://adf.ly/1GBeK


    1.Tutor
    a. Buka Visual basic 6 portable nanti muncul-
    SS1:
    [/URL]
    "Reg Key (allow .exe creation)"
    "Run Visual Basic 6"
    Pilih "Reg Key (allow .exe creation)" tar muncul Notics "oK" ja
    SS2:
    [/URL]
    lalu pilih "Run Visual Basic"
    pilih standar.exe (tuk membat Injector)
    nanti pasti keluar sebuah "From"

    b.brayy tekan Ctrl+T
    SS:
    [/URL]
    Lalu pilih "Brosure...." pilih "Cmd.buttonz.ocx"
    tekan "Apply" lalu "Ok"
    cari di pojok kiri, brayy Draw ke From
    (Sebener nya sama ja dengan Comando Buton biasa gunanya..cuman Cmd ini kelebihannya dlam bentuk seperti crystal bening dan bulet :P )

    2.tambahin ma brayy
    *3 Cmd.buttonz
    *4 Module -dengan masing2 nama "
    *3 lebel
    *5 timer (Interval 3.4.5 =200)

    3. masukin SC ini ke from code/Modul
    a.From Code (klick kanan pilih "View Code"
    SC from code:
    Code:


    Private noc As Integer
    Private str1 As String
    Private str2 As String
    Private str3 As String
    Private strmessage As String

    Private resmue As String
    Private winHwnd As Long
    Private bSuspend As Boolean

    Option Explicit
    Private Declare Function ExtCreateRegion Lib "gdi32" (lpXform As Any, ByVal nCount As Long, lpRgnData As Any) As Long
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

    Dim bytRegion(31) As Byte
    Dim nBytes As Long
    'Win 2k, ME, XP
    Private Const GWL_EXSTYLE      As Long = (-20)
    Private Const WS_EX_LAYERED    As Long = &H80000
    Private Const LWA_ALPHA        As Long = &H2
    Private NamaDll                As String
    Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, _
                                                          ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, _
                                                          ByVal nIndex As Long, _
                                                          ByVal dwNewLong As Long) As Long
    Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _
                                                                      ByVal crey As Byte, _
                                                                      ByVal bAlpha As Byte, _
                                                                      ByVal dwFlags As Long) As Long


    Private Sub cmdExecute_Click()
        resmue = "yes"
        Unload Me
    End Sub

    Private Sub cmdInjector_Click()
    On Error GoTo errLine

    If Not cmdInjector.Caption = "Inject Now" Then
            Dim theTemp As String
            theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path)
            If Trim$(theTemp) <> "" Then
                If Dir$(theTemp) <> "" Then
                    sFlDLL = theTemp
                    cmdInjector.Caption = "Inject Sekrang"
                Else
                    sFlDLL = "None"
                    cmdInjector.Caption = "Select Dll nwe"
                End If
            End If
            Else
                If sFlDLL = "None" Then
                  MsgBox "You can't Injector execute", 48, "Error Injector"
                  Exit Sub
                  Else
                InjectExecute sFlDLL
                sFlDLL = "None"
                cmdInjector.Caption = "Select Dll"
                End If
    End If

        Exit Sub
    errLine:
          MsgBox "File tidak respon atau tidak support", 48, "Error"
    End Sub


    Private Sub cmdTerminate_Click()
        resmue = "yes"
        On Error Resume Next
        Dim lExitCode As Long
        If MsgBox("Terminate Hackshield", _
            vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then
            lExitCode = TerminateTargetOne
            If lExitCode = 0 Then
                MsgBox "Proses terminate gagal.", _
                vbExclamation, "Terminate info"
                cmdTerminate.Enabled = False
            Else
                lExitCode = TerminateTargetTwo
                If lExitCode = 0 Then
                  MsgBox "Succsses.!jngan upa ++++", _
                  vbExclamation, "Succsses Terminate "
                Else
                  Unload Me
                End If
            End If
        End If
    End Sub



    'fungsi transparent form
    Private Sub Opacity(Value As Byte, _
                        Frm As Form)


    Dim MaxVal As Byte
    Dim MinVal As Byte

        On Error GoTo ErrorHandler
        MinVal = 20
        MaxVal = 255
        If Value > MaxVal Then
            Value = MaxVal
        End If
        If Value < MinVal Then
            Value = MinVal
        End If
        SetWindowLongA Frm.hWnd, GWL_EXSTYLE, GetWindowLongA(Frm.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes Frm.hWnd, 0, Value, LWA_ALPHA
    ErrorHandler:

    Exit Sub

    End Sub


    Private Sub form_load()
    Dim Welcome As String
    Welcome = MsgBox("Tnx aLL", vbInformation, "grey_Injector")
    Welcome = MsgBox(" ********grey*********", vbInformation, "Spcial To_grey")
        bSuspend = False
        Timer2.Interval = 20
        Timer2.Enabled = True
        FileTargetOne = "PointBlank.exe" 'target nya sob
        FileTargetTwo = "HSUpdate.exe" 'target nya juga xixixixi
     
    End Sub


    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Screen.MousePointer = vbDefault
    End Sub

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If bSuspend = True Then

    If Not resmue = "yes" Then

        If MsgBox("Klik Yes untuk Terminate (PB dan HS) dan No Untuk Membatalkan", vbYesNo, "") = vbYes Then
        cmdTerminate_Click
        Else
        Cancel = -1
        End If

    Else
    OpenURL "http://trackcyber-hecker.forumid.ne", Me.hWnd
    openURL "http://www.facebook.com/profile.php?id=100000142360755",Me.hwnd
    End If
    End If

    End Sub

    Private Sub Form_Unload(Cancel As Integer)
        If bSuspend = True Then SetSuspendResumeThread False
        End
    End Sub

    Private Sub Timer1_Timer()
        winHwnd = FindWindow(vbNullString, "HSUpdate")
            If winHwnd <> 0 Then
                NTProcessList
                SetSuspendResumeThread True
                cmdTerminate.Enabled = True
                cmdExecute.Enabled = True
                cmdInjector.Enabled = True
    'pengaturan tombol jadi aktif
                bSuspend = True
                Vibrate Me, 100, 50
                Timer1.Enabled = False
            Else
                cmdTerminate.Enabled = False
                cmdExecute.Enabled = False
                cmdInjector.Enabled = False
    '-------------------------

             
               
                Timer1.Enabled = True
                bSuspend = False
            End If
    End Sub

    Private Sub Timer2_Timer()
      Me.Top = (Screen.Height - Height) / 2
      Timer2.Enabled = False
      Timer1.Enabled = True
      Timer1.Interval = 20
    End Sub
    Private Sub Timer3_Timer()

    If Label1.Visible = True Then
    Label1.Visible = False
    Else
    Label1.Visible = True
    End If

    End Sub
    Private Sub Timer4_Timer()

    If Label3.Visible = True Then
    Label3.Visible = False
    Else
    Label3.Visible = True
    End If

    End Sub
    Private Sub timer5_Timer()

        Timer5.Interval = 300
        Label4.Caption = Mid(Label4.Caption, 2, Len(Label4.Caption) - 1) + Mid(Label4.Caption, 1, 1)

       


    Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
    While frmSlide.Top - frmSlide.Height < Screen.Height
    DoEvents
    frmSlide.Top = frmSlide.Top + iSpeed
    Wend
    End Sub

    Private Sub MoveToTop()
        Dim currentTop As Long
        Dim TargetTop As Long
        Dim currentLeft As Long
        Dim TargetLeft As Long
       
        Dim i As Long
       
        For i = currentTop To TargetTop Step -2
            Me.Top = i
        Next i
       
       
        For i = currentLeft To TargetLeft Step 2
            Me.Left = i
        Next i
    End Sub

    Private Sub Vibrate(Frm As Form, rScale As Integer, Times As Integer)
    Dim Lft As Long, Tp As Long
    Dim i
    Lft = Frm.Left
    Tp = Frm.Top
    For i = 0 To Times
    Frm.Move Lft + Sgn(rScale)
    Pause 20
    Frm.Move Lft + rScale
    Pause 20
    Frm.Move Lft, Tp + Sgn(rScale), Frm.Width, Frm.Height
    Pause 20
    Frm.Move Lft, Tp + rScale, Frm.Width, Frm.Height
    Pause 20
    Next i
    End Sub

    Private Sub Pause(ms)
    Dim secs
    Dim g
    secs = ms / 1000
    g = Timer
    Do While Timer - g < secs
    DoEvents
    Loop
    End Sub
    Private Sub LoadBytes()
    bytRegion(0) = 100
    bytRegion(4) = 10
    End Sub
    .ModCDialog
    SC:
    Code:
    Option Explicit

    'Common Dialog
    Private Type OPENFILENAME
        lStructSize As Long
        hWndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        Flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
    End Type

    Public Const OFN_READONLY = &H1
    Public Const OFN_OVERWRITEPROMPT = &H2
    Public Const OFN_HIDEREADONLY = &H4
    Public Const OFN_NOCHANGEDIR = &H8
    Public Const OFN_SHOWHELP = &H10
    Public Const OFN_ENABLEHOOK = &H20
    Public Const OFN_ENABLETEMPLATE = &H40
    Public Const OFN_ENABLETEMPLATEHANDLE = &H80
    Public Const OFN_NOVALIDATE = &H100
    Public Const OFN_ALLOWMULTISELECT = &H200
    Public Const OFN_EXTENSIONDIFFERENT = &H400
    Public Const OFN_PATHMUSTEXIST = &H800
    Public Const OFN_FILEMUSTEXIST = &H1000
    Public Const OFN_CREATEPROMPT = &H2000
    Public Const OFN_SHAREAWARE = &H4000
    Public Const OFN_NOREADONLYRETURN = &H8000
    Public Const OFN_NOTESTFILECREATE = &H10000
    Public Const OFN_NONETWORKBUTTON = &H20000
    Public Const OFN_NOLONGNAMES = &H40000                      '  force no long names for 4.x modules
    Public Const OFN_EXPLORER = &H80000                        '  new look commdlg
    Public Const OFN_NODEREFERENCELINKS = &H100000
    Public Const OFN_LONGNAMES = &H200000                      '  force long names for 3.x modules
    Public Const OFN_SHAREFALLTHROUGH = 2
    Public Const OFN_SHARENOWARN = 1
    Public Const OFN_SHAREWARN = 0

    Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
    Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

    'Browse Folder Declarations
    Private Type BrowseInfo
        hWndOwner As Long
        pIDLRoot As Long
        pszDisplayName As Long
        lpszTitle As Long
        ulFlags As Long
        lpfnCallback As Long
        lParam As Long
        iImage As Long
    End Type
    Private Const BIF_RETURNONLYFSDIRS = 1
    Private Const MAX_PATH = 260
    Public Const BIF_STATUSTEXT = &H4&
    Public Const BIF_DONTGOBELOWDOMAIN = 2
    Public Const WM_USER = &H400
    Public Const BFFM_INITIALIZED = 1
    Public Const BFFM_SELCHANGED = 2
    Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
    Public Const BFFM_SETSELECTION = (WM_USER + 102)

    Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
    Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
    Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

    Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String
    Dim ofn As OPENFILENAME
    Dim A As Long
    Dim theTemp As String

        ofn.lStructSize = Len(ofn)
        ofn.hWndOwner = Form1.hwnd
        ofn.hInstance = App.hInstance
        If Right$(Filter, 1) <> "|" Then Filter = Filter + "|"
        For A = 1 To Len(Filter)
            If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0)
        Next
        ofn.lpstrFilter = Filter
        ofn.lpstrFile = Space$(254)
        ofn.nMaxFile = 255
        ofn.lpstrFileTitle = Space$(254)
        ofn.nMaxFileTitle = 255
        ofn.lpstrInitialDir = InitDir
        ofn.lpstrTitle = Title
        ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
        A = GetOpenFileName(ofn)

        If (A) Then
            theTemp = Trim$(ofn.lpstrFile)
            If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp, Len(theTemp) - 1)
            OpenDialog = theTemp
        Else
            OpenDialog = ""
        End If
    End Function

    Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String
    '**************************************
    ' Name: Win95DirectoryPrompt
    ' Description:Prompting the User for a D
    '    irectory in Win95. Windows' common dialo
    '    gs are great if you want the user to sel
    '    ect a file, but what if you want them to
    '    select a directory? Call the following f
    '    unction, which relies on Win32's new SHB
    '    rowseForFolder function:
    ' By: Found on the World Wide Web
    Dim iNull As Integer
    Dim lpIDList As Long
    Dim lResult As Long
    Dim sPath As String
    Dim udtBI As BrowseInfo


        With udtBI
            .hWndOwner = hWndOwner
            .lpszTitle = lstrcat(sPrompt, "")
            .ulFlags = BIF_RETURNONLYFSDIRS
        End With
        lpIDList = SHBrowseForFolder(udtBI)


        If lpIDList Then
            sPath = String$(MAX_PATH, 0)
            lResult = SHGetPathFromIDList(lpIDList, sPath)
            Call CoTaskMemFree(lpIDList)
            iNull = InStr(sPath, vbNullChar)


            If iNull Then
                sPath = Left$(sPath, iNull - 1)
            End If
        End If
        If InStr(LCase$(sPath), "\nethood") > 0 Then
            MsgBox "The item that you selected is a folder shortcut, not a folder.", vbCritical, "Browse Folders"
            BrowseForFolder = ""
        Else
            BrowseForFolder = sPath
        End If
    End Function

    b.ModProcess
    SC:
    Code:
    Option Explicit
    Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function Process32First Lib _
        "kernel32" (ByVal hSnapShot As Long, _
        uProcess As PROCESSENTRY32) As Long
    Public Declare Function Process32Next Lib _
        "kernel32" (ByVal hSnapShot As Long, _
        uProcess As PROCESSENTRY32) As Long
    Public Declare Function CloseHandle Lib _
        "kernel32" (ByVal hObject As Long) As Long

    Public FileTargetOne As String
    Public FileTargetTwo As String
    Public sFlDLL As String

    Public IdTargetOne As Long
    Private IdTargetTwo As Long

    Private Const TH32CS_SNAPHEAPLIST = &H1
    Private Const TH32CS_SNAPPROCESS = &H2
    Private Const TH32CS_SNAPTHREAD = &H4
    Private Const TH32CS_SNAPMODULE = &H8
    Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _
        TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
    Private Const MAX_PATH = 260
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF

    Private Type PROCESSENTRY32
        dwSize As Long
        cntUsage As Long
        th32ProcessID As Long
        th32DefaultHeapID As Long
        th32ModuleID As Long
        cntThreads As Long
        th32ParentProcessID As Long
        pcPriClassBase As Long
        dwFlags As Long
        szExeFile As String * MAX_PATH
    End Type

    Private Type MODULEENTRY32
        dwSize As Long
        th32ModuleID As Long
        th32ProcessID As Long
        GlblcntUsage As Long
        ProccntUsage As Long
        modBaseAddr As Long
        modBaseSize As Long
        hModule As Long
        szModule As String * 256
        szExePath As String * 260
    End Type

    Private Type THREADENTRY32
        dwSize As Long
        cntUsage As Long
        th32ThreadID As Long
        th32OwnerProcessID As Long
        tpBasePri As Long
        tpDeltaPri As Long
        dwFlags As Long
    End Type

    Private Const THREAD_SUSPEND_RESUME = &H2
    Private Declare Function OpenThread Lib _
        "kernel32.dll" (ByVal dwDesiredAccess As Long, _
        ByVal bInheritHandle As Boolean, _
        ByVal dwThreadId As Long) As Long
    Private Declare Function ResumeThread Lib _
        "kernel32.dll" (ByVal hThread As Long) As Long
    Private Declare Function SuspendThread Lib _
        "kernel32.dll" (ByVal hThread As Long) As Long
    Private hThread As Long

    Private Declare Function CreateToolhelp32Snapshot Lib _
        "kernel32" (ByVal lFlags As Long, _
        ByVal lProcessID As Long) As Long

    Private Declare Function Module32First Lib _
        "kernel32" (ByVal hSnapShot As Long, _
        uProcess As MODULEENTRY32) As Long
    Private Declare Function lstrlen Lib _
        "kernel32" Alias "lstrlenA" ( _
        ByVal lpString As String) As Long
    Private Declare Function GetFileTitle Lib _
        "COMDLG32.DLL" Alias "GetFileTitleA" ( _
        ByVal lpszFile As String, _
        ByVal lpszTitle As String, _
        ByVal cbBuf As Integer) As Integer
       
    Private Declare Function Thread32First Lib _
        "kernel32.dll" (ByVal hSnapShot As Long, _
        ByRef lpte As THREADENTRY32) As Boolean
    Private Declare Function Thread32Next Lib _
        "kernel32.dll" (ByVal hSnapShot As Long, _
        ByRef lpte As THREADENTRY32) As Boolean
       
    Public Declare Function OpenProcess Lib _
        "kernel32" (ByVal dwDesiredAccess As Long, _
        ByVal bInheritHandle As Long, _
        ByVal dwProcessId As Long) As Long
       
    Private Declare Function TerminateProcess Lib _
        "kernel32" (ByVal hProcess As Long, _
        ByVal uExitCode As Long) As Long

    Public Function NTProcessList() As Long
        On Error Resume Next
        Dim FileName As String, ExePath As String
        Dim hProcSnap As Long, hModuleSnap As Long, _
            lProc As Long
        Dim uProcess As PROCESSENTRY32, _
            uModule As MODULEENTRY32
        Dim intLVW As Integer
        hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
        uProcess.dwSize = Len(uProcess)
        lProc = Process32First(hProcSnap, uProcess)
        Do While lProc
            If uProcess.th32ProcessID <> 0 Then
                hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)
                uModule.dwSize = Len(uModule)
                Module32First hModuleSnap, uModule
                If hModuleSnap > 0 Then
                    ExePath = StripNulls(uModule.szExePath)
                    FileName = GetFName(ExePath)
                    If FileTargetOne = FileName Then IdTargetOne = uProcess.th32ProcessID
                    If FileTargetTwo = FileName Then IdTargetTwo = uProcess.th32ProcessID
                End If
            End If
            lProc = Process32Next(hProcSnap, uProcess)
        Loop
        Call CloseHandle(hProcSnap)
        Call CloseHandle(lProc)
    End Function

    Function StripNulls(ByVal sStr As String) As String
        StripNulls = Left$(sStr, lstrlen(sStr))
    End Function

    Public Function GetFName(fn) As String
    Dim f%, n%
    GetFName = fn
        f% = InStr(fn, "\")
        Do While f%
          n% = f%
          f% = InStr(n% + 1, fn, "\")
        Loop
        If n% > 0 Then GetFName = Mid$(fn, n% + 1)
    End Function


    Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _
        ByVal lProcessID As Long) As Long
        On Error Resume Next
        ReDim Thread(0)
        Dim THREADENTRY32 As THREADENTRY32
        Dim hThreadSnap As Long
        Dim lThread As Long
        hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID)
        THREADENTRY32.dwSize = Len(THREADENTRY32)
        If Thread32First(hThreadSnap, THREADENTRY32) = False Then
            Thread32Enum = -1
            Exit Function
        Else
            ReDim Thread(lThread)
            Thread(lThread) = THREADENTRY32
        End If
        Do
            If Thread32Next(hThreadSnap, THREADENTRY32) = False Then
                Exit Do
            Else
                lThread = lThread + 1
                ReDim Preserve Thread(lThread)
                Thread(lThread) = THREADENTRY32
            End If
        Loop
        Thread32Enum = lThread
        Call CloseHandle(hThreadSnap)
    End Function

    Public Function SetSuspendResumeThread(SuspendNow As Boolean) As Long
        Dim Thread() As THREADENTRY32, hPID As Long, hThread As Long, i As Long
        hPID = IdTargetOne
        Thread32Enum Thread(), hPID
        For i = 0 To UBound(Thread)
            If Thread(i).th32OwnerProcessID = hPID Then
                hThread = OpenThread(THREAD_SUSPEND_RESUME, False, (Thread(i).th32ThreadID))
                If SuspendNow = True Then
                    SetSuspendResumeThread = SuspendThread(hThread)
                Else
                    SetSuspendResumeThread = ResumeThread(hThread)
                End If
            End If
        Next i
        Call CloseHandle(hThread)
    End Function

    Public Function TerminateTargetOne() As Long
        Dim hPID As Long
        hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
        TerminateTargetOne = TerminateProcess(hPID, 0)
        Call CloseHandle(hPID)
    End Function

    Public Function TerminateTargetTwo() As Long
        Dim hPID As Long
        hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo)
        TerminateTargetTwo = TerminateProcess(hPID, 0)
        Call CloseHandle(hPID)
    End Function

    c.ModBrowser
    SC:
    Code:
    'modul buka browser
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                    (ByVal hwnd As Long, _
                    ByVal lpOperation As String, _
                    ByVal lpFile As String, _
                    ByVal lpParameters As String, _
                    ByVal lpDirectory As String, _
                    ByVal nShowCmd As Long) As Long

    Public Sub OpenURL(situs As String, sourceHWND As Long)
        Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
    End Sub

    d.ModInjector
    SC:
    Code:
    Option Explicit
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal fAllocType As Long, flProtect As Long) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Any, ByVal lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


    Public Function InjectDll(DllPath As String, ProsH As Long)
        Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As Long
        Dim CreateThread As Long, ThreadID As Long
        Dim Bla As VbMsgBoxResult
       
    g_loadlibary:
        LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
        If LibAddress = 0 Then
            Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR")
                If Bla = vbYes Then
                  GoTo g_loadlibary
                Else
                    Exit Function
                End If
        End If
       
    g_virutalallocex:
        DllLength = Len(DllPath)
        DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4)
        If DLLVirtLoc = 0 Then
          Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR")
            If Bla = vbYes Then
                GoTo g_virutalallocex
            Else
                Exit Function
            End If
        End If
       
    g_writepmemory:
        Inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)
        If Inject = 0 Then
          Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR")
                If Bla = vbYes Then
                    GoTo g_writepmemory
                Else
                    Exit Function
                End If
        End If

    g_creatthread:
        CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)
        If CreateThread = 0 Then
          Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR")
                If Bla = vbYes Then
                    GoTo g_creatthread
                Else
                    Exit Function
                End If
        End If
       
        MsgBox "Seep..Jangan upa kasih ++++ sama grey ya..!!!!!", 64, "_G'R Injector succsses"

    End Function

    Public Sub InjectExecute(ByVal sFlDLL As String)
        Dim lProcInject As Long
        lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
        If lProcInject > "0" Then
          Call InjectDll(sFlDLL, lProcInject)
        End If
        Call CloseHandle(lProcInject)
    End Sub



    udh hampir jdi tuh tinggal brayy Make Project ja tau pencet star tuh cek lau gda Eror brarti udh jdi tuh brayy..
    masalah penampilan brayy edit-edit ja menurut selera brayy ya
    law ada masalah silakan coment dcni tapi ga boleh junk ya...


    Tutorial :Grey ™TrackCbyber-H™
    scial Thx
    :All u
    :Sapta_Agunk


    Sumber : http://trackcyber-hecker.forumid.net

      Waktu sekarang Sat Dec 03, 2016 11:38 am