Benvenuto! Per postare e godere delle funzionalità del forum registrati, occorrono pochi secondi ed è gratis!

[Guida] Creazione Injector
(Questo messaggio è stato modificato l'ultima volta il: 02/06/2012, 17:20 da digger.)

Iscritto
Messaggi: 891
Discussioni: 58
Registrato: 03-2011
Mix: 0
Visto la discussione precedente lo scrivo per tutti!
Cosa serve:
1. Microsoft visual basic 2008/10 express edition
2. 5 minuti
3. un minimo di attenzione


Passo 1.

Installiamo visual basic 2008 express edition e apriamolo (ma va? xD)

Passo 2.

Clicchiamo su file (in alto a destra)----new project---windows form application---diamogli un nome

Passo 3.

Tasto destro sull'form1... (il quadrato/rettangolo)---view code

Passo 4.

Cancellate tutto quello scritto, e inserite questo codice:

    VB Programming
  1. Public Class Form1
  2.  
  3. Private TargetProcessHandle As Integer
  4. Private pfnStartAddr As Integer
  5. Private pszLibFileRemote As String
  6. Private TargetBufferSize As Integer
  7.  
  8. Public Const PROCESS_VM_READ = &H10
  9. Public Const TH32CS_SNAPPROCESS = &H2
  10. Public Const MEM_COMMIT = 4096
  11. Public Const PAGE_READWRITE = 4
  12. Public Const PROCESS_CREATE_THREAD = (&H2)
  13. Public Const PROCESS_VM_OPERATION = (&H<img src="https://hackmix.altervista.org/images/smilies/cool.png" alt="Cool" title="Cool" class="smilie smilie_56" />
  14. Public Const PROCESS_VM_WRITE = (&H20)
  15.  
  16. Public Declare Function ReadProcessMemory Lib "kernel32" ( _
  17. ByVal hProcess As Integer, _
  18. ByVal lpBaseAddress As Integer, _
  19. ByVal lpBuffer As String, _
  20. ByVal nSize As Integer, _
  21. ByRef lpNumberOfBytesWritten As Integer) As Integer
  22.  
  23. Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
  24. ByVal lpLibFileName As String) As Integer
  25.  
  26. Public Declare Function VirtualAllocEx Lib "kernel32" ( _
  27. ByVal hProcess As Integer, _
  28. ByVal lpAddress As Integer, _
  29. ByVal dwSize As Integer, _
  30. ByVal flAllocationType As Integer, _
  31. ByVal flProtect As Integer) As Integer
  32.  
  33. Public Declare Function WriteProcessMemory Lib "kernel32" ( _
  34. ByVal hProcess As Integer, _
  35. ByVal lpBaseAddress As Integer, _
  36. ByVal lpBuffer As String, _
  37. ByVal nSize As Integer, _
  38. ByRef lpNumberOfBytesWritten As Integer) As Integer
  39.  
  40. Public Declare Function GetProcAddress Lib "kernel32" ( _
  41. ByVal hModule As Integer, ByVal lpProcName As String) As Integer
  42.  
  43. Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
  44. ByVal lpModuleName As String) As Integer
  45.  
  46. Public Declare Function CreateRemoteThread Lib "kernel32" ( _
  47. ByVal hProcess As Integer, _
  48. ByVal lpThreadAttributes As Integer, _
  49. ByVal dwStackSize As Integer, _
  50. ByVal lpStartAddress As Integer, _
  51. ByVal lpParameter As Integer, _
  52. ByVal dwCreationFlags As Integer, _
  53. ByRef lpThreadId As Integer) As Integer
  54.  
  55. Public Declare Function OpenProcess Lib "kernel32" ( _
  56. ByVal dwDesiredAccess As Integer, _
  57. ByVal bInheritHandle As Integer, _
  58. ByVal dwProcessId As Integer) As Integer
  59.  
  60. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
  61. ByVal lpClassName As String, _
  62. ByVal lpWindowName As String) As Integer
  63.  
  64. Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
  65. ByVal hObject As Integer) As Integer
  66.  
  67.  
  68. Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
  69.  
  70. Private Sub Inject()
  71. On Error GoTo 1 ' If error occurs, app will close without any error messages
  72. Timer1.Stop()
  73. Dim TargetProcess As Process() = Process.GetProcessesByName("WarRock")
  74. TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
  75. pszLibFileRemote = Application.StartupPath & "/" & ExeName & ".dll"
  76. pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
  77. TargetBufferSize = 1 + Len(pszLibFileRemote)
  78. Dim Rtn As Integer
  79. Dim LoadLibParamAdr As Integer
  80. LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
  81. Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
  82. CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
  83. CloseHandle(TargetProcessHandle)
  84. 1: Me.Close()
  85. End Sub
  86.  
  87. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  88. If IO.File.Exists(Application.StartupPath & "/" & ExeName & ".dll") Then
  89. Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
  90. If TargetProcess.Length = 0 Then
  91. Me.Label1.Text = ("Waiting For WarRock.exe")
  92. Else
  93. Timer1.Stop()
  94. Me.Label1.Text = "Inject succes now running"
  95. Call Inject()
  96. End If
  97. Else
  98. Me.Label1.Text = ("" & ExeName + ".dll Not Found")
  99. End If
  100. End Sub
  101.  
  102. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  103. Timer1.Interval = 50
  104. Timer1.Start()
  105. MsgBox("By Luxor")
  106. Process.Start("http://hackmix.altervista.org")
  107. End Sub
  108. End Class



P.S potete benissimo cambiare i nomi dopo "...." come By riku, hackmix ecc...

Passo 5.

torniamo su form1 [design] (scritto in alto al centro)

Passo 6.

Clicchiamo sul martello e la chiave sugli strumenti... quello in alto a destra che farà apparire un menu a sinistra (è probabile che gia ci sia)

Passo 7.

Cerchiamo "Label" click sinistro e facciamo una riga (come la volete voi) sul quadrato/rettangolo(form1) (questo sarà dove verrà scritto "waiting for warrock.exe ecc....)

Passo 8.

Cerchiamo "Timer" click sinistro e clicchiamo sul quadrato/rettangolo(form1)

QUI L'INJECTOR è FINITO COMPILATE CON F5

Passo 9.

Abbellire il proprio injector ... in basso a destra potrete cambiare colore,immagine di sfondo ecc....

Finito =)

Spero di esservi stato d'aiuto...

IL CODE NON è MIO (anche se l'ho un po cambiato perche prima non funzionava)

LA GUIDA SI!

26/03/2011, 0:28
#1
Cerca


Messaggi in questa discussione
Creazione Injector - da Luxor - 26/03/2011, 0:28
[Nessun oggetto] - da digger - 26/03/2011, 1:00
[Nessun oggetto] - da Admin - 26/03/2011, 12:25
[Nessun oggetto] - da Luxor - 26/03/2011, 14:35
[Nessun oggetto] - da ZioPaperino - 26/03/2011, 14:51
[Nessun oggetto] - da Luxor - 29/03/2011, 16:26
[Nessun oggetto] - da ItalianHacker - 29/03/2011, 20:05
[Nessun oggetto] - da NosOne1 - 29/05/2012, 14:31
[Nessun oggetto] - da digger - 29/05/2012, 14:53
[Nessun oggetto] - da NosOne1 - 29/05/2012, 14:58
[Nessun oggetto] - da digger - 29/05/2012, 15:30
[Nessun oggetto] - da Skyline@6_92nd - 02/06/2012, 16:06
[Nessun oggetto] - da digger - 02/06/2012, 16:13
[Nessun oggetto] - da Pocciox - 26/08/2012, 21:37
[Nessun oggetto] - da pauldomy - 16/12/2012, 20:27
[Nessun oggetto] - da Pocciox - 16/12/2012, 20:45

Discussioni simili
Discussione Autore Risposte Letto Ultimo messaggio
  UNITY3D : Creazione videogiochi multipiattaforma digger 13 2,023 29/10/2014, 22:55
Ultimo messaggio: digger
  Clasar's Injector Warrock claudio2255 4 762 24/11/2012, 16:31
Ultimo messaggio: claudio2255
  [Agg. 1.1] Advanced Injector by Cato97 Cato97 64 6,197 11/09/2012, 11:47
Ultimo messaggio: Skyline@69



Utenti che stanno guardando questa discussione: 1 Ospite(i)