Injector

[Wasiij Iwanowic]

takie małe badziewia napisane wieczorem w 15 minut

 

działa na zasadzie injectora i wstrzykuje pliki dll do procesów

 

niestety nie jest dopracowany i nie można nim wstrzyknąć na razie czego kolwiek

 

potrzebuje z nim pomocy

 

wymagane jest posiadanie biblioteki Inject.au3 i NomadMemory.au3

Inject.au3

http://www.mpcforum.pl/topic/770387-udfinjectau3/

 

a nomada to se szukaj gdzieś tam siedzi

 

Kod(nie śmiać się[uwaga! ma ponad 5,7k linijek kodu!])

 

#RequireAdmin
#include <Inject.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Injector beka", 164, 394, 192, 124)
GUISetIcon("C:\Windows\System32\shell32.dll", -7)
$proc = GUICtrlCreateList("", 8, 32, 145, 136)
$Label1 = GUICtrlCreateLabel("Procesy:", 8, 8, 45, 17)
$Label2 = GUICtrlCreateLabel("DLL:", 8, 176, 27, 17)
$lokalizacja = GUICtrlCreateInput("C:/", 8, 200, 145, 21)
$przegladaj = GUICtrlCreateButton("Przeglądaj", 40, 232, 75, 25)
$wstrzyknij = GUICtrlCreateButton("Wstrzyknij", 40, 264, 75, 25)
$odwstrzykniecie= GUICtrlCreateButton("OdWstrzyknij", 40, 296, 75, 25)
$Button4 = GUICtrlCreateButton("About", 40, 328, 75, 25)
$Button5 = GUICtrlCreateButton("Exit", 40, 360, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;~ AdlibRegister(__update(),1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 Case $przegladaj
  $dllka= FileOpenDialog ( "Wybierz dll'ke", @DesktopDir, "Pliki dll (*.dll)")
	    GUICtrlSetData($lokalizacja,$dllka)
  __update()
 Case $wstrzyknij
  Global $odwstrzykniecie = GUICtrlRead($lokalizacja)
  _InjectAttachDll(GUICtrlRead($lokalizacja), GUICtrlRead($proc))
 Case $odwstrzykniecie
  _InjectDetachDll(GUICtrlRead($lokalizacja),GUICTRLREAD($proc))
 Case $Button4
  MsgBox(48,"ABOUT","Injector beka by Wasiij Iwanowic")
 Case $Button5
  AdlibUnRegister(__update())
  Exit
EndSwitch
WEnd
Func __update()
For $i = 100 To 1 Step -1
 $process = ProcessList()
 _GUICtrlListBox_AddString($proc, $process[$i][0])
Next
EndFunc

 

 

[paronoszok]

Z czym dokładnie potrzebna Ci jest pomoc?

[xDayEnd]

Kod(nie śmiać się[uwaga! ma ponad 5,7k linijek kodu!])

A w tej bajce były smoki.

[Wasiij Iwanowic]

@2up

bo jest tam funkcja na aktualizowanie listy procesów która po uruchomieniu wyłącza skrypt i nie aktualizuje

//w dodatku nie pokazuje żadnego errora

@up

raport nie toleruje trollowania moich tematów

[paronoszok]

A w tej bajce były smoki.

5700 linijek w injectorze. Fakt, dużo ale do zrobienia. Jeśli byś się uwziął, a chciał napisać coś jeszcze porządniejszego to dojdziesz to większej ilości. ;-)

[xDayEnd]

@up

raport nie toleruje trollowania moich tematów

aha