home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / nodebug / debug.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-28  |  1KB  |  42 lines
  1. {$M $4000,550000,550000}
  2. program nodebug;
  3.  
  4. uses crt;
  5.  
  6. {$L c:\edition\prog\fr\asm\nodeb.obj}
  7. procedure PIQ_Stop_System; far; external;
  8. procedure keyboard_off; far; external;
  9. procedure keyboard_on; far; external;
  10. procedure no_stepping; far; external;
  11. procedure protected_stopping; far; external;
  12. procedure check_Vector(check : longint); far; external;
  13. procedure Restore_checkVector; far; external;
  14. function  Vector_OK(check : longint) : boolean; far; external;
  15. procedure Copy_int21_int3; far; external;
  16.  
  17. begin;
  18.  clrscr;
  19.  writeln('Checksum sur Int3-Vector');
  20.  check_Vector(12345678);
  21.  writeln('desactiver Keyboard');
  22.  keyboard_off;
  23.  writeln('Stepping-piège');
  24.  no_stepping;
  25.  writeln('PIQ-Trick');
  26.  PIQ_Stop_System;
  27.  writeln('Protected-Mode switching');
  28.  Protected_stopping;
  29.  writeln('Vector-Checking');
  30.  If NOT Vector_Ok(12345678) then begin;
  31.    clrscr;
  32.    writeln('Non non, n''allez pas debugger !');
  33.    halt(0);
  34.  end;
  35.  writeln('rétablir check-Vector');
  36.  Restore_checkVector;
  37.  writeln('Keyboard reconnecté');
  38.  keyboard_on;
  39.  writeln('Et voilà ! Nous sommes dans le programme');
  40.  readln;
  41. end.
  42.