D3D Hack undetected machen

[killer06 2]

Hab ma ne Frage wie kann man ein D3D Hack von dem Starterkit 3.0.1 Undetected machen?

wenn jemand weiß bitte helfen, danke im vorraus.

[Ice-T 0]

vielleicht mit themida ?

[zeeeeeeek1 74]

hättest du vieleicht den download link?

 

gehen da nicht crypter?

Edited September 23, 2008 by zeeeeeeek1

[killer06 2]

vielleicht mit themida ?

 

Schon versucht mit der neusten Version dll und Injector Gepackt

 

und ich habe noch sehr viele edits gemacht (ähnlich wie bei VB hacks mit der module)

 

aber da geht einfach nix

Edited September 23, 2008 by killer06

[killer06 2]

hättest du vieleicht den download link?

 

gehen da nicht crypter?

 

vom hack oder source?

 

und was is crypter?

Edited September 23, 2008 by killer06

[NeoIII 5137]

crypten hat nichts mit undetected zu tun...

[killer06 2]

und was wäre jetzt letzte möglichkeit?

Bypass (denn ich überhauptnicht coden kann)

oder

Was bestimmtes im Code ändern?

[NeoIII 5137]

der starterkit ist shit!

 

entweder bypass oder denn code komplett umschreiben, aber wenn du das kannst kannst auch eigene base schreiben!

[killer06 2]

Autch das hört sich zu schwer an, was für dich vielleicht kinderleicht is für mich Lebensgefährlich schwer^.^

Dann gleich mal nach Warrock Patcher tuts suchen <.<

[NeoIII 5137]

warrock patcher ???

[killer06 2]

warrock patcher ???

 

Schon versucht, es funktioniert nicht, ich mach da irgendwas falsch.

 

Hier die Timers die ich gemacht habe:

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
	Dim processesByName As Process() = Process.GetProcessesByName("WarRock")
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
	If (Process.GetProcessesByName("WarRock").Length = 1) Then
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035A6, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035A6, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035A6, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad

		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035B7, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035B7, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035B7, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad

		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035BD, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035BD, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(&H5035BD, &H90)  'fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad
		'If WarRock is running => Patch
	Else
		'If WarRock is off => do nothing
	End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

 

und hier ist die Module

 

Module Module1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public RBuff As Long
Public RBuff2 As Single
Public RBuff3 As Integer

Public Function nfwaklfngjnaplwiapogjpkoagwga286g41a6awfawgawgafafa1fa6(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)

	CloseHandle(processHandle)

End Function

Public Function bfgwauiaghawfag1ae8ah1aewh6g1a6ew8hg41e8aa(ByVal Address As Single)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)

	CloseHandle(processHandle)

	Return RBuff

End Function

Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	WriteFloatMemory(processHandle, Address, Value, 4, Nothing)

	CloseHandle(processHandle)

End Function

Public Function ReadLong(ByVal Address As Integer)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)

	CloseHandle(processHandle)

	Return RBuff

End Function

Public Function gawnujgaeherjr12k68lr14j6r8h41be68418w641g8egf4w6f46wffw(ByVal Base As Integer, ByVal Offset As Short)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)

	Return RBuff2

	CloseHandle(processHandle)

End Function

Public Function fawgae4ah1a74g16ea5g198ag16aeg8h41a68hg46ag486ae1v6ae8ga(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)

	Return RBuff3

	CloseHandle(processHandle)

End Function

Public Function fwaghaghae1gba98gh41a841va8hb148a9e4faeg1va6e8g4agacfagea(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)

	CloseHandle(processHandle)

End Function

Public Function fkhnawguonaohighaeigneah2gae68gh41a6gh181a6h58498ab4w6gagaw(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)

	CloseHandle(processHandle)

End Function

Public Function fwagnauwognauogaega1g89ae4g1ae5g41a98g416awgadfagwgad(ByVal Address As Integer, ByVal value As Integer)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

	WriteProcessMemory(processHandle, Address, value, 1, Nothing)

	CloseHandle(processHandle)

End Function

End Module

 

Build geht, aber der hack funktioniert nicht ingame,

ich hoffe jemand kann helfen.

Edited September 24, 2008 by killer06

[Radio 0]

Das ist doch kein D3D dass ist VB

[killer06 2]

Das ist doch kein D3D dass ist VB

 

Wie sagt man so schön, read the muthafaking thread, befor you motherfuking post

[ZeaS 1538]

Wie sagt man so schön, read the muthafaking thread, befor you motherfuking post

 

ich stimme radio zu, dass was du gepostet hast, hat nichts mit d3d zu tun (das vb module..), zu deiner frage, wie neo schon gesagt hat, starterkid ist totaler shit, schreib dir eine eigene base und hooke endscene/beginn.. und paar andere nicht und du bekommst keine kicks, anderer weg wäre d3d8.dll detouren bzw d3d8 string patchen oder komplett bypassen...

 

closed