home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / nodebug / nodebug.pas < prev   
Pascal/Delphi Source File  |  1995-07-28  |  1KB  |  58 lines
  1. {$M $4000,550000,550000}
  2. program nodebug;
  3.  
  4. uses crt;
  5.  
  6. {$L nodeb.obj}
  7.  
  8. procedure PIQ_Stop_System; far; external;
  9. procedure keyboard_off; far; external;
  10. procedure keyboard_on; far; external;
  11. procedure no_stepping; far; external;
  12. procedure protected_stopping; far; external;
  13. procedure check_for_Vector(check : longint); far; external;
  14. procedure Restore_checkVector; far; external;
  15. function  Vector_OK(check : longint) : boolean; far; external;
  16. procedure Copy_int21_int3; far; external;
  17.  
  18.  
  19. begin;
  20.  clrscr;
  21.  
  22.  writeln('Check sum for Int3-Vector');
  23.  check_for_Vector(12345678);
  24.  
  25.  writeln('Disable keyboard');
  26.  keyboard_off;
  27.  
  28.  writeln('Stepping-Trap');
  29.  no_stepping;
  30.  
  31.  writeln('PIQ-Trick');
  32.  PIQ_Stop_System;
  33.  
  34.  writeln('Protected-Mode switching');
  35.  Protected_stopping;
  36.  
  37.  writeln('Vector-Checking');
  38.  If NOT Vector_Ok(12345678) then begin;
  39.    clrscr;
  40.    writeln('Don't debug !');
  41.    halt(0);
  42.  end;
  43.  
  44.  writeln('Restore check vector');
  45.  Restore_checkVector;
  46.  
  47.  writeln('Enable keyboard again');
  48.  keyboard_on;
  49.  
  50.  writeln('And we're in the program');
  51.  readln;
  52. end.
  53.  
  54.  
  55.  
  56.  
  57.  
  58.