Announcement

**Nico Bendlin** · 26.08.2001, 03:06

*aushol'*...
Da ich schon des�fteren mit selbigen Problemen zu k�mpfen hatte hier mal ein paar Hinweise:
"registry" 
- Funktioniert nur ab Windows 2000 oder h�her (da� es im praktischen Einsatz auch unter NT4 funktioniert ist nicht dokumentiert -- also geht es nicht =) 
- Der Rechner mu� neu gestartet werden (ist manchmal ein Problem, insbesondere auf production systems -- auch f�r ein Update der DLL)
"hooks" 
- Probleme sind oben lange diskutiert worden
"remote threads / WriteProcessMemory" 
- Feine Sache nur leider fehlt es auf Win95 und WinNT 4.0 an der entsprechenden API (kenne zwar eine M�glichkeit f�r NT4 aber 95 ist nicht mein Acker, sorry)

Schlu�endlich ist es (IMHO) am besten eine sehr eigenst�ndige DLL zu schreiben, die in dem/den Zielthread(s) arbeitet und falls notwenig mittels Interproze�kommunikation (IPC) mit einer Kontroll/Steuer-Anwendung eine Verbindung aufzubauen. 
Um m�glichst unabh�ngig von der Windows-Version zu sein, empfiehlt sich die Injektion der DLL per Hook, der in der DLL nur implementiert wird, um in den Zielthread zu gelangen, aber die Nachrichten, etc des Thread nicht beeinflu�t (also im Bezug auf den Hook nur weiterleitet).

Gru� Nico

PS: Zu dem Buch "Windows-Programmierung f�r Experten", es bezieht sich auf Windows 98 und Windows 2000, die dort vorgestellten Methoden sind nicht auf allen Windows lauff�hig, und dies ist durchaus verst�ndlich, es ist keine Anleitung zum OS-Hacken, sondern stellt vordergr�ndig (und das sehr anschaulich) die Arbeitweise von Windows (Win32-Subsystem) vor... Man _kann_ die Quelltexte (die �brigens unter (C)Copyright stehen, da auf CD) nach Delphi portieren, aber wie gesagt, �ber den Sinn l��t sich streiten

**Elmar Herzog** · 26.08.2001, 16:14

Hallo,*nerv*danke Nico f�r die umfangreiche Antwort. Es geht hier nicht drum Windows zu hacken, sondern ich muss ledeglich eine Funktion systemweit austauschen. Leider hab ich - je tiefer ich in das Thema hineinschaue - keinen richtigen Punkt wo ich anpacken kann/soll. 
kenne zwar eine M�glichkeit f�r NT4 
K�nntest auf diese M�glichkeit etwas genauer eingehen. Wie bereits Andreas gesagt hat, diese Sachen geh�ren in den "Giftschrank", also bin ich f�r eine Hilfe auch auserhalb des Forums (Email) sehr intressiert. Desweiteren interessiert mich der C-Code

**Nico Bendlin** · 26.08.2001, 16:42

Die Beispiele in dem Buch auf Windows NT 4.0 umzusetzen scheitert daran, da� man kein Handle auf einen Thread bekommt, wenn man den Proze� nicht selbst erzeugt hat...

Du bekommst heute Abend-Mail...

Gru� Nic

**Elmar Herzog** · 28.08.2001, 18:09

Hallo Nico,
hast Du mich vergessen ([email protected])

**Elmar Herzog** · 30.08.2001, 18:47

Hallo,"Das Leben k�nnte so einfach sein, aber...."
Nun sitze ich schon einige Tage vor dem Rechner, aber irgendwie komme ich nicht weiter. Deshalb muss ich nonmals nerven.
1. Kann mir den keiner das Beispiel aus dem Buch "Windows-Programmierung f�r Experten" mal zukommen lassen. Es w�rde mich wirklich sehr interessieren. Ich hab nur keine Lust, das Buch f�r das eine Mal was ich es brauche, zu kaufen. 
2. Wie kann ich ermitteln ob irgendein x-beliebiges Programm auf eine Routine der DLL zugreift (mir ist nicht bekannt, dass eine Message o. �. dabei versendet wird)? 
3. Wie bekomme ein Handle auf einen Thread in die eine x-beliebige DLL geladen wurde?
Fragen �ber Fragen, w�re �ber eine Antwort dankbar...

**Nico Bendlin** · 30.08.2001, 19:35

??? Habe ich Dir nicht schon die OpenThrd.htm geschickt (sp�t aber dennoch rausgegangen) ???

GruߴNic

**Nico Bendlin** · 30.08.2001, 19:39

ok dann eben hier nochmal...

<pre><tt>
// well known types and constants

const
ntdll = 'ntdll.dll';

type
NTSTATUS = Integer;

{ NtDef.h (Windows 2ooo DDK, BUILD 0001) line 1027 }
type
PUnicodeString = ^TUnicodeString;
TUnicodeString = packed record
Length : Word; // USHORT
MaximumLength: Word; // USHORT
Buffer : PWideChar; // PWSTR 
end;

{ NtDef.h (Windows 2ooo DDK, BUILD 0001) line 1160 }
const
OBJ_INHERIT = $00000002;
OBJ_PERMANENT = $00000010;
OBJ_EXCLUSIVE = $00000020;
OBJ_CASE_INSENSITIVE = $00000040;
OBJ_OPENIF = $00000080;
OBJ_OPENLINK = $00000100;
OBJ_KERNEL_HANDLE = $00000200;
OBJ_VALID_ATTRIBUTES = $000003F2;

{ NtDef.h (Windows 2ooo DDK, BUILD 0001) line 1173 }
type
PObjectAttributes = ^TObjectAttributes;
TObjectAttributes = record
Length : Cardinal; // ULONG
RootDirectory : THandle;
ObjectName : PUnicodeString;
Attributes : Cardinal; // ULONG
SecurityDescriptor : PSecurityDescriptor;
SecurityQualityOfService: PSecurityQualityOfService;
end;

{ NtDDK.h (Windows 2ooo DDK, BUILD 0132) line 4294 }
type
PClientId = ^TClientId;
TClientId = record
UniqueProcess: THandle;
UniqueThread : THandle;
end;

// just self defined

function NtOpenThread(
out ThreadHandle : THandle;
DesiredAccess : Cardinal; // ACCESS_MASK
const ObjectAttributes: TObjectAttributes;
const ClientId : TClientId
): NTSTATUS; stdcall;
external ntdll name 'NtOpenThread';

function RtlNtStatusToDosError(Status: NTSTATUS): DWORD;
external ntdll name 'RtlNtStatusToDosError';

// valid values for dwDesiredAccess

{ WinNt.h (Windows 2ooo DDK, BUILD 0087) line 3986 }
const
THREAD_TERMINATE = $0001;
THREAD_SUSPEND_RESUME = $0002;
THREAD_GET_CONTEXT = $0008;
THREAD_SET_CONTEXT = $0010;
THREAD_SET_INFORMATION = $0020;
THREAD_QUERY_INFORMATION = $0040;
THREAD_SET_THREAD_TOKEN = $0080;
THREAD_IMPERSONATE = $0100;
THREAD_DIRECT_IMPERSONATION = $0200;
THREAD_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED or
SYNCHRONIZE or
$03FF;</tt></pre>
&#10

**Nico Bendlin** · 30.08.2001, 19:42

<pre><tt>// OpenThread is identical to the function in Windows 2ooo

{ for declaration see WinBase.h (Windows 2ooo DDK) line 2082 }
function OpenThread(dwDesiredAccess: Cardinal; // DWORD
bInheritHandle : LongBool; // BOOL
dwThreadId : Cardinal // DWORD
): THandle; stdcall;
var
ObjectAttributes: TObjectAttributes;
ClientId : TClientId;
Status : NTSTATUS;
begin
ObjectAttributes.Length := SizeOf(TObjectAttributes);
ObjectAttributes.RootDirectory := 0;
ObjectAttributes.ObjectName := nil;
if bInheritHandle then
ObjectAttributes.Attributes := OBJ_INHERIT
else
ObjectAttributes.Attributes := 0;
ObjectAttributes.SecurityDescriptor := nil;
ObjectAttributes.SecurityQualityOfService := nil;
ClientId.UniqueProcess := 0;
ClientId.UniqueThread := dwThreadId;
Status := NtOpenThread(Result, dwDesiredAccess, ObjectAttributes, ClientId);
if Status < 0 then
begin
SetLastError(RtlNtStatusToDosError(Status));
Result := 0;
end;
end;

// sample for calling OpenThread (terminates itself)

procedure TForm1.Button1Click(Sender: TObject);
var
dwThreadId: Cardinal;
hThread : THandle;
begin
dwThreadId := GetWindowThreadProcessId(Handle, nil);
if dwThreadId <> 0 then
begin
hThread := OpenThread(THREAD_TERMINATE, False, dwThreadId);
if hThread <> 0 then
begin
TerminateThread(hThread, Cardinal(-1));
CloseHandle(hThread);
end else
ShowMessage(SysErrorMessage(GetLastError));
end;
end;</tt></pre>

Gru� Nico

PS: dann haben's auch die andern,..

Announcement

DLL-Funktionsaufruf systemweit abfangen

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment