[Problem]Injector do WarRock'a

[b4rt4z]

Siemka mam problem

zrobiłem injector do warrock'a ale dosyć nie typowy

bo bierze(nie ściąga) bibliotekę z strony

i wszystko dobrze... pisze sukces

ale cheat jednak się nie załącza

umie ktoś zrobić coś podobnego lub mi pomóc??

z góry dzięki

[JacoH]

Napisz dokładnie jakie biblioteki, chodzi ci o dll'ki i jak możesz to podeślij source code (jak coś to na PW to spróbuje pomóc, bo ostatnio sam zrobiłem injector do WR :P (ale normalny).

[woBniaR]

Czyli skopiowałeś jakiś gotowy kod tylko że coś nie działa?

Tak czy siak, to wiesz - bez twojego kodu ciężko ci będzie pomóc.

[JacoH]

@UP nie koniecznie, nie wiesz więc nie mów. Ja znam B4rt4z'a i wiem, że się na tym zna i pewnie sam napisał kod pobierający tylko gdzieś ma błąd, bo co do inector'a to kody latają wszędzie i nie ma nawet po co pisać samemu identyczny

[b4rt4z]

Po pierwsze tak napisałem samemu kod

Po drugie i tak wygląda on podobnie jak inne bo przecież 95% injectorów do wr wygląda tak samo (napisałem 95% bo reszta jest napisana w C++ :P )

po trzecie nie dam tu swojego kudu bo jest on za bardzo przerobiony(od innych) poza tym ma on służyć do czegoś ważnego (czego na chwilę obecną nie mogę zdradzić)

No ale powiedzmy że będziemy się wzorować na standardowym

np. tym :

 

 

Public Class Form1

Private TargetProcessHandle As Integer
Private pfnStartAddr As Integer
Private pszLibFileRemote As String
Private TargetBufferSize As Integer
Public Const PROCESS_VM_READ = &H10
Public Const TH32CS_SNAPPROCESS = &H2
Public Const MEM_COMMIT = 4096
Public Const PAGE_READWRITE = 4
Public Const PROCESS_CREATE_THREAD = (&H2)
Public Const PROCESS_VM_OPERATION = (&H8)
Public Const PROCESS_VM_WRITE = (&H20)
Public Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
ByVal lpLibFileName As String) As Integer
Public Declare Function VirtualAllocEx Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpAddress As Integer, _
ByVal dwSize As Integer, _
ByVal flAllocationType As Integer, _
ByVal flProtect As Integer) As Integer
Public Declare Function WriteProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function GetProcAddress Lib "kernel32" ( _
ByVal hModule As Integer, ByVal lpProcName As String) As Integer
Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) As Integer
Public Declare Function CreateRemoteThread Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpThreadAttributes As Integer, _
ByVal dwStackSize As Integer, _
ByVal lpStartAddress As Integer, _
ByVal lpParameter As Integer, _
ByVal dwCreationFlags As Integer, _
ByRef lpThreadId As IntPtr) As Integer
Public Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Integer, _
ByVal bInheritHandle As Integer, _
ByVal dwProcessId As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer
Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
ByVal hObject As Integer) As Integer

Friend WithEvents Timer1 As New Timer
Friend WithEvents Timer2 As New Timer
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	If IO.File.Exists(Application.StartupPath & "\" + ExeName + ".dll") Then
		Timer2.Interval = 2500
Timer1.Interval = 25
		Timer1.Start()
	Else
		MsgBox(ExeName + ".dll not found!" + vbNewLine + "Rename the DLL to " + ExeName + ".dll", MsgBoxStyle.Critical, "Error!")
		Me.Close()
	End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
	Dim Shield As Process() = Process.GetProcessesByName("HSUpdate")
	Dim Target As Process() = Process.GetProcessesByName("WarRock")
	If Target.Length <> 0 Then
		If Shield.Length = 0 Then
			TextBox1.Text = ("Waiting for HackShield")
		Else
			Timer1.Stop()
			TextBox1.Text = "Injecting..."
			Me.Update()
			Threading.Thread.Sleep(500)
			Call Inject()
		End If
	Else
		TextBox1.Text = ("Waiting for Warrock.exe")
	End If
End Sub

Private Sub Inject()
	Dim TargetProcess As Process() = Process.GetProcessesByName("WarRock")
	Dim lpThreadId As IntPtr
	Try
		TargetProcessHandle = OpenProcess(&H1F0FFF, 0, TargetProcess(0).Id)
		pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"
		pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
		TargetBufferSize = 1 + Len(pszLibFileRemote)
		Dim Rtn As Integer
		Dim LoadLibParamAdr As Integer
		LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
		Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
		CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, lpThreadId)
		If lpThreadId = IntPtr.Zero Then
			TextBox1.Text = "Failed to Inject!"
		Else
			TextBox1.Text = "Successfully Injected!"
		End If
		Timer2.Start()
	Catch ex As Exception
		TextBox1.Text = "An Error has occurred!"
	End Try
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
	Me.Close()
End Sub
End Class

 

i chodzi o tą funkcję

pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"

oczywiście żeby injector brał dll'ke ze strony zamiast tego kodu powinno być coś takiego:

 pszLibFileRemote = "http://www.strona.pl/test.dll"

i ja mam coś takiego i gdy włączam wr pisze sukces ale cheat się nie włącza i ma ktoś może propozycję

jak to zrobić że się uruchamiał ??

[JacoH]

Bo on pewnie dll albo nie pobiera bo nigdzie tego nie widzę, albo jednorazowo ją skanuje ale poźniej w WR nie może działać przez internet czy coś. Wiem tyle, że musisz to zrobić tak, żeby on pobierał tą dll na kompa

[b4rt4z]

A mi chodzi o to żeby jej nie pobierać... :unsure:

No ale widocznie się nie da

czyli muszę spróbować czegoś innego... 8S

[JacoH]

Możesz tez spróbować tak, żeby pobierał, ale tak, żeby nie dało się tego zobaczyć (lub po prostu niewidzialny) i się usuwał przy wyłączaniu lub, żeby jakiś program usuwał wszystkie pliki znajdujące się w folderze z dll kiedy nie wykryje procesu WarRock itp. zabezpieczenia. Ale to trochę roboty z tym będzie, ale powinieneś dać radę

[b4rt4z]

Myślałem o tym i nawet to zrobiłem ale niestety gdy injec'tuje to nie pisze sukces tylko błąd

a na chwile obecną próbuje zrobić tak żeby inject'ował dll'ke z My Resource...

no ale ten twój pomysł podsunął mi myśli żeby opóźnić usuwanie :P

dzięki :rolleyes:

[JacoH]

Nie ma za co A kiedy można się spodziewać wydania tego injector'a lub jakiegoś dokładniejszego opisu jego działania i może jakaś Beta Jbc. to masz moje gg to możesz pisać postaram się pomóc.

[b4rt4z]

Sam się domyślisz już wkrótce do czego on będzie miał służyć... :P

a co do gg to z tego co widzę jesteś często niedostępny no chyba że siedzisz na nie widoku (tak jak ja )

[woBniaR]

Łatwiej by ci to było zrobić w Delphi albo C++, do nich istnieją już gotowe biblioteki do wstrzykiwania dll'ki z pamięci do aplikacji, chociaż w sumie nie wiem jak to jest w VB, i zresztą nie spróbuje bo .net mnie odpycha na kilometr.

[JacoH]

Tak ci się tylko wydaje, że łatwiej, w C++ też jest to trudne. Co do Delphi to nw bo nie znam tego języka za dobrze.

[woBniaR]

Gdzieś na jakimś forum co tam umieszczają źródła wirusów itp. widziałem na pewno taki przykład injectowania dllki z pamięci w delphi. Jeśli cie to interesuje to to forum było opensc.ws, z tym że raczej już go nie otworzysz :/

 

Edit. Znalazłem takie coś do C#, do VB niestety nie znalazłem:

TUTAJ

[JacoH]

@UP dzięki, może się przydać spróbuje to przerobić na Visual Basic lub napiszę się cały injector w C# :P

[b4rt4z]

@2UP

dzięki szkoda że jest on w C# a nie w C++ bo C# w ogóle nie znam

No ale zobaczymy co da się zrobić :P