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

[Guida] Creazione injector VB 27/08/2012
(Questo messaggio è stato modificato l'ultima volta il: 28/08/2012, 9:51 da Danyele360.)

Danyele360
Messaggi: 688
Discussioni: 37
Registrato: 12-2011
Reputazione:
43

Mix: 0
Aprire visual basic ed aprire un nuovo form
e incollare questo
    C++ 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. Public Const PROCESS_VM_READ = &H10
  8. Public Const TH32CS_SNAPPROCESS = &H2
  9. Public Const MEM_COMMIT = 4096
  10. Public Const PAGE_READWRITE = 4
  11. Public Const PROCESS_CREATE_THREAD = (&H2)
  12. Public Const PROCESS_VM_OPERATION = (&H<img src="https://hackmix.altervista.org/images/smilies/cool.png" alt="Cool" title="Cool" class="smilie smilie_56" />
  13. Public Const PROCESS_VM_WRITE = (&H20)
  14. Public Declare Function ReadProcessMemory Lib "kernel32" ( _
  15. ByVal hProcess As Integer, _
  16. ByVal lpBaseAddress As Integer, _
  17. ByVal lpBuffer As String, _
  18. ByVal nSize As Integer, _
  19. ByRef lpNumberOfBytesWritten As Integer) As Integer
  20. Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
  21. ByVal lpLibFileName As String) As Integer
  22. Public Declare Function VirtualAllocEx Lib "kernel32" ( _
  23. ByVal hProcess As Integer, _
  24. ByVal lpAddress As Integer, _
  25. ByVal dwSize As Integer, _
  26. ByVal flAllocationType As Integer, _
  27. ByVal flProtect As Integer) As Integer
  28. Public Declare Function WriteProcessMemory Lib "kernel32" ( _
  29. ByVal hProcess As Integer, _
  30. ByVal lpBaseAddress As Integer, _
  31. ByVal lpBuffer As String, _
  32. ByVal nSize As Integer, _
  33. ByRef lpNumberOfBytesWritten As Integer) As Integer
  34. Public Declare Function GetProcAddress Lib "kernel32" ( _
  35. ByVal hModule As Integer, ByVal lpProcName As String) As Integer
  36. Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
  37. ByVal lpModuleName As String) As Integer
  38. Public Declare Function CreateRemoteThread Lib "kernel32" ( _
  39. ByVal hProcess As Integer, _
  40. ByVal lpThreadAttributes As Integer, _
  41. ByVal dwStackSize As Integer, _
  42. ByVal lpStartAddress As Integer, _
  43. ByVal lpParameter As Integer, _
  44. ByVal dwCreationFlags As Integer, _
  45. ByRef lpThreadId As IntPtr) As Integer
  46. Public Declare Function OpenProcess Lib "kernel32" ( _
  47. ByVal dwDesiredAccess As Integer, _
  48. ByVal bInheritHandle As Integer, _
  49. ByVal dwProcessId As Integer) As Integer
  50. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
  51. ByVal lpClassName As String, _
  52. ByVal lpWindowName As String) As Integer
  53. Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
  54. ByVal hObject As Integer) As Integer
  55. Friend WithEvents Timer2 As New Timer
  56. Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
  57.  
  58. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  59. If IO.File.Exists(Application.StartupPath & "\" + ExeName + ".dll") Then
  60. Timer2.Interval = 2500
  61. Timer1.Interval = 25
  62. Timer1.Start()
  63. Else
  64. MsgBox(ExeName + ".dll not found!" + vbNewLine + "Rename the DLL to " + ExeName + ".dll", MsgBoxStyle.Critical, "Error!")
  65. Me.Close()
  66. End If
  67. End Sub
  68.  
  69. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  70. Dim Shield As Process() = Process.GetProcessesByName("HSUpdate")
  71. Dim Target As Process() = Process.GetProcessesByName("WarRock")
  72. If Target.Length <> 0 Then
  73. If Shield.Length = 0 Then
  74. TextBox1.Text = ("In attesa di HackShield")
  75. Else
  76. Timer1.Stop()
  77. TextBox1.Text = "Injecting..."
  78. Me.Update()
  79. Threading.Thread.Sleep(500)
  80. Call Inject()
  81. End If
  82. Else
  83. TextBox1.Text = ("In attesa di Warrock.exe")
  84. End If
  85. End Sub
  86.  
  87. Private Sub Inject()
  88. Dim TargetProcess As Process() = Process.GetProcessesByName("WarRock")
  89. Dim lpThreadId As IntPtr
  90. Try
  91. TargetProcessHandle = OpenProcess(&H1F0FFF, 0, TargetProcess(0).Id)
  92. pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"
  93. pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
  94. TargetBufferSize = 1 + Len(pszLibFileRemote)
  95. Dim Rtn As Integer
  96. Dim LoadLibParamAdr As Integer
  97. LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
  98. Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
  99. CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, lpThreadId)
  100. If lpThreadId = IntPtr.Zero Then
  101. TextBox1.Text = "Failed to Inject!"
  102. Else
  103. TextBox1.Text = "Hack injettata!"
  104. End If
  105. Timer2.Start()
  106. Catch ex As Exception
  107. TextBox1.Text = "An Error has occurred!"
  108. End Try
  109. End Sub
  110.  
  111. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  112. Me.Close()
  113. End Sub
  114. End Class


Poi modificate a piacere vostro il progetto...
inserire
un Label e rinominatelo "TextBox1"
e due timer!
Bye Bye
Fonte:web un po modificata da me
Mini guida: Fatta da me Asd Asd

27/08/2012, 22:17
#1
Cerca

1 Life, 1 Avatar &lt;3
Messaggi: 9,074
Discussioni: 271
Registrato: 08-2011
Reputazione:
77

Mix: 0
Ha fatto bene a metterlo perchè l altro era errato Happywide
I crediti?

28/08/2012, 9:48
#2
Cerca

Danyele360
Messaggi: 688
Discussioni: 37
Registrato: 12-2011
Reputazione:
43

Mix: 0
meli sono dimenticati Happywide adesso messi

28/08/2012, 9:52
#3
Cerca

1 Life, 1 Avatar &lt;3
Messaggi: 9,074
Discussioni: 271
Registrato: 08-2011
Reputazione:
77

Mix: 0
Non ci credo neanche che l hai modificata tu Happywide

28/08/2012, 20:19
#4
Cerca

Il criceto mannaro
Messaggi: 3,536
Discussioni: 201
Registrato: 03-2011
Reputazione:
106

Mix: 3,737
(28/08/2012, 20:19)Pocciox Ha scritto:

[Per vedere i link devi REGISTRARTI.]

Non ci credo neanche che l hai modificata tu Happywide

non ha detto che ha modificato il programma, ha detto che ha modificato (solo un po') la guida, ovvero le 6 righe di testo prima e dopo il codice Happywide


digger
28/08/2012, 21:21
#5
Cerca

Coder
Messaggi: 633
Discussioni: 57
Registrato: 04-2011
Reputazione:
41

Mix: 0
Non ho letto e confrontato il codice... Ma sbaglio o gli injector in VB non erano più validi? D:

03/09/2012, 0:21
#6
Cerca

Danyele360
Messaggi: 688
Discussioni: 37
Registrato: 12-2011
Reputazione:
43

Mix: 0
Questo funge!

03/09/2012, 1:36
#7
Cerca

Coder
Messaggi: 633
Discussioni: 57
Registrato: 04-2011
Reputazione:
41

Mix: 0
(03/09/2012, 1:36)Dany360 Ha scritto:

[Per vedere i link devi REGISTRARTI.]

Questo funge!

Mi sarò perso qualcosa io in questi anni che non gioco più a War Rock e che non entro in questo forum Huh

03/09/2012, 2:06
#8
Cerca

Il criceto mannaro
Messaggi: 3,536
Discussioni: 201
Registrato: 03-2011
Reputazione:
106

Mix: 3,737
Mai sentita questa, vanno vanno


digger
03/09/2012, 9:02
#9
Cerca

Coder
Messaggi: 633
Discussioni: 57
Registrato: 04-2011
Reputazione:
41

Mix: 0
Strano... Me lo disse qui Skyline o.o http://hackmix.altervista.org/Thread-Cat...0#pid21660

03/09/2012, 15:12
#10
Cerca

1 Life, 1 Avatar &lt;3
Messaggi: 9,074
Discussioni: 271
Registrato: 08-2011
Reputazione:
77

Mix: 0
Erano le 9:42....poverino, era appena alzato, lascia che il suo cervello si attivi prima !!Asd

03/09/2012, 19:14
#11
Cerca

Coder
Messaggi: 633
Discussioni: 57
Registrato: 04-2011
Reputazione:
41

Mix: 0
Ahahahah probabilmente era così.

03/09/2012, 20:08
#12
Cerca
(Questo messaggio è stato modificato l'ultima volta il: 04/09/2012, 0:04 da «Cat».)

Iscritto
Messaggi: 46
Discussioni: 5
Registrato: 08-2012
Reputazione:
4

Mix: 0
Che tristezza usare i source già fatti -.-"
Maledetti lamers

Ps gli injector in Vb vanno -.-"
Uno che si crede "coder" a copiare la roba , l'altro che spara azzate , siete tutti lamer o cosa? Asd

04/09/2012, 0:02
#13
Cerca

Il criceto mannaro
Messaggi: 3,536
Discussioni: 201
Registrato: 03-2011
Reputazione:
106

Mix: 3,737
Cat internet è pieno di post copiati da altre parti.
Non c'è niente di deplorevole finchè uno non dice di averlo fatto lui.
Lo scopo qui è mettere a disposizione di tutti gli utenti piu informazioni possibile, che poi arrivino dal lavoro di uno di noi o che arrivino da altre fonti internet non è un problema, non c'è scritto da nessuna parte qui che il materiale è tutto originale del forum.
Quanto al tuo atteggiamento ho già risposto nell'altro post quindi non voglio sprecare altre parole.


digger
04/09/2012, 2:32
#14
Cerca
(Questo messaggio è stato modificato l'ultima volta il: 04/09/2012, 2:50 da Danyele360.)

Danyele360
Messaggi: 688
Discussioni: 37
Registrato: 12-2011
Reputazione:
43

Mix: 0
digger mi piace il tuo commento![Immagine: mi-piace-facebook.jpg]

04/09/2012, 2:49
#15
Cerca


Discussioni simili
Discussione Autore Risposte Letto Ultimo messaggio
  UNITY3D : Creazione videogiochi multipiattaforma digger 13 1,742 29/10/2014, 22:55
Ultimo messaggio: digger
  [Guida] Creazione Injector Luxor 15 2,229 16/12/2012, 20:45
Ultimo messaggio: Pocciox
  Clasar's Injector Warrock claudio2255 4 661 24/11/2012, 16:31
Ultimo messaggio: claudio2255



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