home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / nodebug / debug.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-28  |  1.1 KB  |  42 lines
  1. {$M $4000,550000,550000}
  2. program nodebug;
  3.  
  4. uses crt;
  5.  
  6. {$L 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_for_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('Check sum for Int3-Vector');
  20.  check_for_Vector(12345678);
  21.  writeln('disable keyboard');
  22.  keyboard_off;
  23.  writeln('Stepping-Trap');
  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('Do not debug !');
  33.    halt(0);
  34.  end;
  35.  writeln('Restore check vector');
  36.  Restore_checkVector;
  37.  writeln('Enable keyboard again');
  38.  keyboard_on;
  39.  writeln('And we are in the program');
  40.  readln;
  41. end.
  42.