Хук на Апи функцию CharToOem

@Dark_Ph0eNix · Регистрация: 30.06.2016

Author24 — интернет-сервис помощи студентам

Изучаю что такое хук.
Написал программу конвертер из анси в оем и обратно
Хочу научиться перехватывать вызовы апи функции

Везде написано много про хуки но вот вкурить информацию не получается

Покопался на просторах нашел Пример хука на мессаджбокс
На основе него попытался сделать хук на CharToOem, но ничего не вышло.

Delphi

var
  PCharToOemA: function(lpszSrc: LPCSTR; lpszDst:LPSTR): BOOL; stdcall;
 
function NewCharToOem(lpszSrc: LPCSTR; lpszDst:LPSTR): BOOL; stdcall;
begin
  MessageBeep(0);
  Result := PCharToOemA('Hooked Text!!!', 'Hooked Text!!!');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Status: DWORD;
begin
  Memo2.Text:=WinToDos(Memo1.Text);
 
  ShowMessage('Первичные данные '+Memo1.Text);
 
  Status := HookFunction('user32.dll', 'CharToOemA', @PCharToOemA, @NewCharToOem);
  if Status <> ERROR_SUCCESS then
    Exit;
 
  ShowMessage('Вторичные данные '+Memo2.Text);
  UnHookFunction(@PCharToOemA);
 
end;
 
function WinToDos(ASource: String): AnsiString;
var
  Ch: PAnsiChar;
begin
  Ch := AnsiStrAlloc(Length(ASource) + 1);
  CharToOem(PChar(ASource), Ch);
  Result := StrPas(Ch);
  StrDispose(Ch)
end;

Пытаюсь реализовать следующую последовательность
1. Из мемо1 читается текст и выдается в месаджбокс
2. Происходит перехват преобразования CharToOem
3. в мемо2 выводится текст "блаблабла" или оригинальный текст мемо1 без преобразования CharToOem

Подскажите что и как лучше сделать или что почитать, желательно примеры с полным описание той или иной строчки кода.

@VyachNik · 30.06.2016, 11:33

какой смысл перехватывать внутри своего приложения? на то он и хук, чтобы делать перехват в других приложениях

@Dark_Ph0eNix · 30.06.2016, 11:43 **[ТС]**

Сообщение от VyachNik

какой смысл перехватывать внутри своего приложения? на то он и хук, чтобы делать перехват в других приложениях

Смысл в том что бы научиться это делать для начала в своем приложении, а потом изучать проес выдергивания определенного приложения сравнивая пид, имя процесс и прочее
Да и в своей программе происходит вызов внешней dll, так что мы перехватываем ее

Я привык изучать постепенно, а не сразу в омут

P.S.
1. Перехват в своей самописной программе
2. Перехват в своей самописной программе используя внедрение dll
3. Перехват в любой программе используя dll

Считаю такой подход оптимальным, если не прав то киньте камень желательно с ~~блекджекомишлю~~ ссылками )))

@VyachNik · 30.06.2016, 11:52

Сообщение от Dark_Ph0eNix

Считаю такой подход оптимальным

ну тогда удачи!

@VyachNik 49 / 49 / 34 Регистрация: 16.02.2016 Сообщений: 277
	30.06.2016, 11:33	2
	какой смысл перехватывать внутри своего приложения? на то он и хук, чтобы делать перехват в других приложениях Миниатюры 0

@Dark_Ph0eNix 0 / 0 / 0 Регистрация: 30.06.2016 Сообщений: 2
	30.06.2016, 11:43 [ТС]	3
	Сообщение от VyachNik какой смысл перехватывать внутри своего приложения? на то он и хук, чтобы делать перехват в других приложениях Смысл в том что бы научиться это делать для начала в своем приложении, а потом изучать проес выдергивания определенного приложения сравнивая пид, имя процесс и прочее Да и в своей программе происходит вызов внешней dll, так что мы перехватываем ее Я привык изучать постепенно, а не сразу в омут P.S. 1. Перехват в своей самописной программе 2. Перехват в своей самописной программе используя внедрение dll 3. Перехват в любой программе используя dll Считаю такой подход оптимальным, если не прав то киньте камень желательно с ~~блекджекомишлю~~ ссылками ))) 0

@VyachNik 49 / 49 / 34 Регистрация: 16.02.2016 Сообщений: 277
	30.06.2016, 11:52	4
	Сообщение от Dark_Ph0eNix Считаю такой подход оптимальным ну тогда удачи! 0