Сейчас на форуме: 2nd, morgot, Rio, CDK123, zds, tyns777, tihiy_grom (+5 невидимых)

 eXeL@B —› Программирование —› Delphi + SEH
Посл.ответ Сообщение

Ранг: 8.3 (гость)
Активность: 0.01↘0
Статус: Участник

 Создано: 13 сентября 2008 18:15 · Поправил: KeBugCheck
· Личное сообщение · #1

Приветствую.

Помнится где-то тут была тема про сех своими руками (без использования try/except) под дельфю. Поиск тут ничего не дал, слишком много ключевых слов. Я так понимаю это будет выглядеть вот так:

Code:
  2. label
  3.   _continue;
  4. begin
  5.   asm
  6.     push offset Exception_Handler
  7.     push dword ptr fs:[0]
  8.     mov fs:[0], esp
  9.     mov seh1.SafeEip, offset _continue
  10.     mov seh1.PrevEsp, esp
  11.     mov seh1.PrevEbp, ebp
  12.   end;
  13.   function_one();
  14.   function_two();
  15.   _continue:
  16.   asm
  17.     pop dword ptr fs:[0]
  18.     add esp, 4
  19.   end;


где обработчик except это Exception_Handler.

Или?
Премного благодарен.



Ранг: 24.4 (новичок), 1thx
Активность: 0.01↘0
Статус: Участник

 Создано: 13 сентября 2008 22:41
· Личное сообщение · #2

try / except|finally /end;




Ранг: 990.2 (! ! !), 380thx
Активность: 0.68↘0
Статус: Модератор
Author of DiE

 Создано: 13 сентября 2008 23:07 · Поправил: Hellspawn
· Личное сообщение · #3

GoldFinch пишет:
try / except|finally /end;

KeBugCheck пишет:
(без использования try/except)

...

да вроде похоже на правду, но что есть Exception_Handler и как описан seh1?
пожно и попроще:
Code:
  2. procedure ExceptionFinal;
  3. asm                          
  4.   MOV EAX,DWORD PTR SS:[ESP+0Ch] // eax = CONTEXT
  5.   // делаем что хотим
  6.   // напимер сместим eip + 2
  7.   ADD DWORD PTR DS:[EAX+B8h],2
  8.   // или прыгнем в safe_place
  9.   XOR EAX,EAX
  10. end;
  12. procedure Seh();
  13. asm
  14.   PUSH Offset ExceptionFinal
  15.   PUSH DWORD PTR FS:[0]
  16.   MOV DWORD PTR FS:[0],ESP
  17.   // тут что то опасное
  18. @safe_place:
  19.   POP DWORD PTR FS:[0]
  20.   ADD ESP,4
  21. end;


-----
[nice coder and reverser]

Ранг: 115.1 (ветеран), 3thx
Активность: 0.07↘0
Статус: Участник

 Создано: 14 сентября 2008 00:04
· Личное сообщение · #4

как вариант, хотя уже постил где-то

Code:
  1. program SEH;
  2. uses
  3.   Windows;
  4. type
  5.   _SEH = record
  6.     SafeEip:DWORD; // The offset where it's safe to continue execution
  7.     PrevEsp:DWORD; // The previous value of esp
  8.     PrevEbp:DWORD; // The previous value of ebp
  9.   end;
  11. //
  12. // Exception disposition return values.
  13. //
  14. EXCEPTION_DISPOSITION         =  DWORD;
  15. const
  16.   ExceptionContinueExecution  =  0;
  17.   ExceptionContinueSearch     =  1;
  18.   ExceptionNestedException    =  2;
  19.   ExceptionCollidedUnwind     =  3;
  21.   szCaption     : PChar = 'SEH Test' + #0;
  22.   szNotOccured  : PChar = 'Exception NOT occured !' + #0;
  23.   szOccured     : PChar = 'Exception occured !' + #0;
  24. var
  25. __seh           : _SEH;
  26. lpText          : PAnsiChar;
  27. label   _SafePlace;
  30. {$O+}
  31. function _except_handler(
  32.     ExceptionRecord:PExceptionRecord;
  33.     EstablisherFrame:Pointer;
  34.     ContextRecord:PContext;
  35.     DispatcherContext:Pointer): EXCEPTION_DISPOSITION; cdecl;
  36. begin
  37.   ContextRecord.Eip := __seh.SafeEip;
  38.   ContextRecord.Esp := __seh.PrevEsp;
  39.   ContextRecord.Ebp := __seh.PrevEbp;
  40.   // Tell the OS to restart the faulting instruction
  41.   Result := ExceptionContinueExecution;
  42. end;
  45. {$O-}
  46. begin
  47.  lpText := szOccured;
  48.  asm
  49.    push  OFFSET _except_handler
  50.    push  DWORD PTR fs:[0]                 // address of next ERR structure
  51.    mov   fs:[0], esp                      // give FS:[0] the ERR address just made
  53.    mov   __seh.SafeEip, OFFSET _SafePlace
  54.    mov   __seh.PrevEsp, esp
  55.    mov   __seh.PrevEbp, ebp
  57.    db 0CCh
  58.  end;
  59.  lpText := szNotOccured;
  60. _SafePlace:
  61.  asm
  62.    pop   DWORD PTR fs:[0]                 // restore next ERR structure to FS:[0]
  63.    add   esp, 4                           // throw away rest of ERR structure
  64.  end;
  65.  MessageBox(0, lpText, szCaption, MB_OK or MB_ICONINFORMATION);
  66. end.




Ранг: 115.1 (ветеран), 3thx
Активность: 0.07↘0
Статус: Участник

 Создано: 14 сентября 2008 00:06 · Поправил: __
· Личное сообщение · #5

Code:
  1. {$O+}
читать как {$O+}
соответственно
Code:
  1. {$O-}
это {$O-}

форум глючит



Ранг: 8.3 (гость)
Активность: 0.01↘0
Статус: Участник

 Создано: 14 сентября 2008 07:49
· Личное сообщение · #6

Hellspawn

Структура и функция описаны как в посте ___. Спасибо за свой пример.

__
ОК, всем спасибо, тема закрыта.


 eXeL@B —› Программирование —› Delphi + SEH
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати