home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / toolbox / nodeb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-21  |  2.0 KB  |  78 lines
  1. (* ------------------------------------------------- *)
  2. (*                NODEB.PAS                          *)
  3. (*            -- No debuggers wanted --              *)
  4. (* Unit zum Vergraulen von Debugging-künstlern in    *)
  5. (* eigenen Programmen.                               *)
  6. (*     (c) 1989, 1992 Jürgen Plehn & DMV-Verlag      *)
  7. (* ------------------------------------------------- *)
  8. UNIT nodeb;
  9.  
  10. INTERFACE
  11.  
  12. USES Dos;
  13.  
  14.   PROCEDURE timetrap(legal : WORD);
  15.  
  16.  
  17. IMPLEMENTATION
  18.  
  19. CONST
  20.   nobytes  = 40;     { diese beiden Werte können nach }
  21.   codebyte = $11;    { Belieben geändert werden       }
  22.  
  23. TYPE
  24.   bytearray = ARRAY[1..nobytes] OF BYTE;
  25.  
  26. VAR
  27.   fake : ^bytearray;
  28.   i     : WORD;
  29.  
  30.   FUNCTION Exor(byte1, byte2 : BYTE) : BYTE;
  31.   BEGIN
  32.     Exor := (byte1 AND NOT(byte2)) OR
  33.             (NOT(byte1) AND byte2);
  34.   END;
  35.  
  36.   PROCEDURE Kern(legal : WORD);
  37.   { Der Interrupt 1AH gibt die seit Mitternacht }
  38.   { gezählten Timerticks der Form CX = HI- Byte,}
  39.   { DX = LO- Byte, zurück                       }
  40.  
  41.   CONST
  42.     time      : LONGINT = 0;
  43.   VAR
  44.     initime   : LONGINT ABSOLUTE time;
  45.     acttime   : LONGINT;
  46.     localregs : Registers;
  47.   BEGIN
  48.     localregs.AX := $0000;
  49.     Intr($1A, localregs);
  50.     IF (time = 0) OR (legal = 0) THEN
  51.       initime := localregs.DX + (localregs.CX SHL 8)
  52.     ELSE BEGIN
  53.       acttime := localregs.DX + (localregs.CX SHL 8);
  54.       IF acttime > initime + legal THEN
  55.         Halt;           { oder andere "Schweinereien" }
  56.     END;
  57.   END;
  58.  
  59.   PROCEDURE Code;
  60.   BEGIN
  61.     fake := Addr(Kern);
  62.     FOR i := 1 TO nobytes DO
  63.       fake^[i] := Exor(fake^[i], codebyte);
  64.   END;
  65.  
  66.   PROCEDURE timetrap(legal : WORD);
  67.   BEGIN
  68.     Code;                { entschlüsseln }
  69.     Kern(legal);         { ausführen     }
  70.     Code;                { verschlüsseln }
  71.   END;
  72.  
  73. BEGIN
  74.   Code;             { verschlüsselt den Code von Kern }
  75. END.
  76. (* ------------------------------------------------- *)
  77. (*             Ende von NODEB.PAS                    *)
  78.