1:
2:

@muell:
  DB $0F DB $80                    

1:

function GetOwnModuleHandle: cardinal; stdcall;                    

1:
2:
3:

asm
  DB $90
end;                    

1:
2:
3:
4:

@muell:
  DB $0F, $80
@weiter:
  RDTSC                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function KillProcess(pid: integer): boolean; stdcall;
var procHnd: THandle;
begin
  result := false;
  if pID <> 0 then begin
    procHnd := OpenProcess
    (PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION, False, pID);
    if procHnd <> 0 then  begin
       result:= TerminateProcess(procHnd, 0);
      // CloseHandle(ProcHnd);
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  function DeleteExe(s: string): string;
  var i, j: integer;
  begin
    setlength(result,length(s));
    result := '';
    j := 0;
    for i := 1 to length(s) do
    begin
      if (copy(s,i,5) = ('.EXE'#13#10)) then
        j := 4;
      if (j > 0) then
        dec(j) else result := result+s[i];
    end;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

program hooktest;
{$APPTYPE CONSOLE}
uses
//  kol,
  windows,
  uallhook,
  uallutil;

type TCFfunc = function(lpFileName:pchar; dwDesiredAccess, dwShareMode:DWORD;
  lpSecurityAttributes: pointer; dwCreationDisposition, dwFlagsAndAttributes,
  hTemplateFile: DWORD): DWORD; stdcall;

var oldCreateFile, nextCreateFile: tcffunc;



function myCreateFile(lpFileName:pchar; dwDesiredAccess, dwShareMode:DWORD;
  lpSecurityAttributes: pointer; dwCreationDisposition, dwFlagsAndAttributes,
  hTemplateFile: DWORD): DWORD; stdcall;

begin
  writeln(lpfilename^); // zu dem breakpoint komme ich nie...
  result := nextCreateFile(lpFileName, dwDesiredAccess, dwShareMode,
  lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes,
  hTemplateFile);
end;

var p:pointer;

begin
  p := GetProcAddress(GetModuleHandle('kernel32.dll'),'CreateFileW');
  if p <> nil then begin
    @oldCreateFile := p;
    uallHook.HookCode(@oldCreateFile,@myCreateFile,@nextCreateFile);
    while true do
    begin
       sleep(10);
       //   application.processmessages;
    end;
  end
  else writeln('fehler');
  readln;
end.                    

1:
2:

drehum(variable);
edit1.text:= variable;                    

1:
2:

edit1.text:= variable;
drehum(edit1.text);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function myGetCursorPos(lpPoint: Pointer): Boolean; stdcall;
var
  CurPos: TPoint;
begin
  CurPos.X := 123;
  CurPos.Y := 123;
  lpPoint := @CurPos;
  Result := True;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function myGetCursorPos(lpPoint: Pointer): Boolean; stdcall;
var
  CurPos: TPoint;
begin
  @curpos := lpPoint;
  CurPos.X := 123;
  CurPos.Y := 123;
  Result := True;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function myGetCursorPos(lpPoint: PPoint): Boolean; stdcall;
var
  CurPos: PPoint;
begin
  curpos := lpPoint;
  CurPos^.X := 123;
  CurPos^.Y := 123;
  Result := True;
end;                    

1:
2:
3:
4:
5:
6:
7:

function myGetCursorPos(var lpPoint: TPoint): Boolean; stdcall;
var
begin
  lpPoint.x := 123;
  lpPoint.Y := 123;
  Result := True;
end;                    

1:
2:
3:
4:
5:
6:
7:

function myGetCursorPos(var lpPoint: PPoint): Boolean; stdcall;
var
begin
  lpPoint^.x := 123;
  lpPoint^.Y := 123;
  Result := True;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

library hook_2;

uses
  windows,
  uallhook;


type TCFfunc = function(lppoint:pointer):boolean; stdcall;

var oldCreateFile, nextCreateFile: tcffunc;


function myCreateFile(lpPoint:pointer):boolean; stdcall;
begin
tpoint(lppoint^).x := 123;
tpoint(lppoint^).y := 123;
result := true;
end;

var p:pointer;

begin
  p := GetProcAddress(GetModuleHandle('user32.dll'),'GetCursorPos');
  if p <> nil then begin
    @oldCreateFile := p;
    uallHook.HookCode(@oldCreateFile,@myCreateFile,@nextCreateFile);
  end;
end.                    

1:

function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var oldGetCursorPos, nextGetCursorPos: function(var lpPoint: TPoint): BOOL; stdcall;


function myGetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
begin
  // alter aufruf überhaupt nötig?
  // result := nextGetCursorPos(lpPoint);
  // ansonsten nur:

  result := true;
  lpPoint.x := 123;
  lpPoint.y := 123;  
end;

// und noch hooken                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var oldGetCursorPos, nextGetCursorPos: function(var lpPoint: TPoint): BOOL; stdcall;

function myGetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
begin
  // alter aufruf überhaupt nötig?
  // result := nextGetCursorPos(lpPoint);
  // ansonsten nur:

  result := true;
  lpPoint.x := 123;
  lpPoint.y := 123;
end;


procedure TForm1.FormCreate(Sender: TObject);
var lp: Tpoint;
begin
  @oldGetCursorPos := GetProcAddress(GetModuleHandle('user32.dll'),'GetCursorPos');
  uallHook.HookCode(@oldGetCursorPos,@myGetCursorPos,@nextGetCursorPos);

  GetCursorPos(lp); //alter aufruf
  form1.caption := inttostr(lp.X)+' '+inttostr(lp.Y);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

program exemain;

uses
  windows,
  uallHook,
  uallUtil;

begin
  if paramcount < 1 then
    MessageBox(0,'No Param, use PARAM -load / -unload.',Nil,0) else

  if uppercase(paramstr(1)) = uppercase('-load') then
    GlobalInjectLibrary(pchar(uallUtil.GetExeDirectory+'hook.dll')) else

  if uppercase(paramstr(1)) = uppercase('-unload') then
    GlobalUnloadLibrary(pchar('hook.dll')) else

    MessageBox(0,'Wrong Param, use PARAM -load / -unload.',Nil,0);
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

library hook;

uses windows,
     uallHook;

var
  oldSystemParametersInfoA, oldSystemParametersInfoW, nextSystemParametersInfoA,
  nextSystemParametersInfoW: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;

function mySystemParametersInfoA(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
begin
Result := nextSystemParametersInfoA(uiAction, uiParam, pvParam, fWinIni);
end;

function mySystemParametersInfoW(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
begin
Result := nextSystemParametersInfoW(uiAction, uiParam, pvParam, fWinIni);
end;

procedure injectmain;
var h: integer;
begin
  h :=  GetModuleHandle('user32.dll');
  if h > 0 then
  begin
      @oldSystemParametersInfoA := GetProcAddress(h, 'SystemParametersInfoA');
      If @oldSystemParametersInfoA <> Nil
      then
        uallHook.HookCode(@oldSystemParametersInfoA, @mySystemParametersInfoA, @nextSystemParametersInfoA);
      @oldSystemParametersInfoW := GetProcAddress(h, 'SystemParametersInfoW');
      If @oldSystemParametersInfoW <> Nil
      then
        uallHook.HookCode(@oldSystemParametersInfoW, @mySystemParametersInfoW, @nextSystemParametersInfoW); 
  end;
end;

procedure uninjectmain;
begin
  uallHook.UnhookCode(@nextSystemParametersInfoA);
  uallHook.UnhookCode(@nextSystemParametersInfoW);
end;

procedure dllmain(dwReason: integer);
begin
  case dwreason of
    DLL_PROCESS_ATTACH:
      injectmain;
    DLL_PROCESS_DETACH:
      uninjectmain;
  end;
end;

begin
  DLLProc := @DLLMain;
  DLLMain(1);
end.                    

1:
2:
3:

var   
  oldSystemParametersInfoA, oldSystemParametersInfoW, nextSystemParametersInfoA,   
  nextSystemParametersInfoW: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL stdcall = nil;                    

1:
2:
3:

  if @nextSystemParametersInfoA <> nil then
  if uallHook.UnhookCode(@nextSystemParametersInfoA) then
   // MessageBoxA(0,pchar(paramstr(0)),nil,0); <- aber messageboxa dynamisch importieren                    

1:
2:
3:

var
  oldSystemParametersInfoA, oldSystemParametersInfoW, nextSystemParametersInfoA, 
  nextSystemParametersInfoW: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL stdcall = nil;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

@muell:
  // DB $0F DB $80 -->
  DB $0F, $80
@weiter:
  //RDTSC
  DW    $310F
  MOV ECX, EAX
  MOV EBX, EDX
  JMP @weiter2
@muell2:
  DB $0F, $80

function IsDebuggerPresent: boolean; stdcall;
asm
  MOV EAX, FS:[$18]
  MOV EAX, [EAX+$30]
  //MOVZX EAX, [EAX+2] --> hier kommt bei D5 auch ein fehler, aber so gehts:
  DB $0F, $B6, $40, $02
end;                    

1:

  GlobalUnloadLibrary('nirvana.dll');                    

1:

    call [$00000000]                    

1:

    db $e8, $0, $0, $0, $0                    

1:

  CMP [ECX+$54], 00000001                    

1:

CMP DWORD PTR [...], $00000000                    

1:

  //if VirtualProtect(p,1,PAGE_EXECUTE_READWRITE,old) then                    

1:

 p := GetProcAddress(GetModuleHandle('user32.dll'),'SendInput');                    

1:
2:
3:

  dwProcessID2 := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID);
     if (dwProcessID2 <> 0) then
       dwProcessID := dwProcessID2;                    

1:
2:
3:
4:

  if (pLLA <> nil) and (pTargetMemory <> nil) and (pLibraryName <> nil) then
  begin
    dwWritten := 0;
    if WriteProcessMemory(hProc,pTargetMemory,pLibraryName,dwMemSize,dwWritten) and                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function CreateRemoteThreadX(dwProcessHandle: DWord; pThreadAttributes: Pointer; dwStackSize: DWord;
pStartAddr: Pointer; pParameter: Pointer; dwCreationFlags: DWord; var dwThreadID: DWord;
const Param1isPID : boolean = false): DWord; stdcall;
var
  hProcess  : DWord;
begin
  Result := 0;
  dwThreadId := 0;
  hProcess := dwProcessHandle;
  if Param1isPID then
    hProcess := OpenProcess(PROCESS_ALL_ACCESS,false,dwProcessHandle);                    

1:

 LEA EBX, [EDX+$28]              // if so get the library name                    

1:

 LEA EBX, [EDX+$30]              // if so get the library name                    

1:
2:

  HideLibraryNT(LoadLibraryA('opengl32.dll'));
  GetModuleHandle('opengl32.dll');  // ist dann 0                    

1:

if (dwProcessID2 <> 0) then                    

1:

if (dwProcessID2 <> 0) and (isValidProcessHandle(dwProcessID2) then                    

1:

    dwProcessID := dwProcessID2;                    

1:
2:
3:
4:
5:
6:
7:
8:

function isValidProcessHandle(hProcess : DWORD):Boolean;
var temp : DWORD;
begin
  result := false;
  temp := GetProcessId(hProcess);
  if (temp <> 0) and (GetProcessVersion(temp) <> 0) then
    result := true;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function GetProcessID(dwProcessHandle: DWord): DWord; stdcall;
//var dwProcessH: DWord;
begin
//  dwProcessH := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessHandle);
//  if (dwProcessH <> 0) then
//  begin
//    CloseHandle(dwProcessH);
//    Result := dwProcessHandle;
//  end else
  if isNt then
    Result := GetProcessIDNT(dwProcessHandle) else
    Result := GetPRocessID9X(dwProcessHandle);
end;                    

1:

dwProcessID := GetProcessID(dwProcessID);                    

1:

if isValidProcessHandle(dwProcessID) then dwProcessID := GetProcessID(dwProcessID);