home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / tricks / invisib.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-24  |  1.1 KB  |  39 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    INVISIB.PAS                         *)
  3. (*         (c) 1989 J.Laitenberger & TOOLBOX              *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Protect;
  6.  
  7. CONST
  8.   lesbar : STRING = 'Der Inhalt der Datei ist geheim!';
  9.  
  10. VAR
  11.   f1, f2      : FILE;
  12.   gel, ges, i : WORD;
  13.   puf         : ARRAY [1..2048] OF CHAR;
  14.  
  15. BEGIN
  16.   IF ParamCount <> 2 THEN Halt;
  17.   Assign(f1, Paramstr(1));
  18. {$I-}
  19.   Reset(f1, 1);
  20. {$I+}
  21.   IF IOResult <> 0 THEN BEGIN
  22.     WriteLn('Datei nicht gefunden!');
  23.     Halt;
  24.   END;
  25.   Assign(f2, paramstr(2));
  26.   Rewrite(f2, 1);
  27.   FOR i := 1 TO Length(lesbar) DO
  28.     puf [i] := lesbar[i];
  29.   BlockWrite(f2, puf, Length(lesbar));
  30.   puf [1] := #26;
  31.   Blockwrite(f2, puf, 1);
  32.   REPEAT
  33.     BlockRead(f1, puf, SizeOf(puf), gel);
  34.     BlockWrite(f2, puf, gel, ges)
  35.   UNTIL (gel = 0) OR (gel < 2048);
  36.   Close(f1); Close(f2)
  37. END.
  38. (* ------------------------------------------------------ *)
  39. (*                Ende von INVISIB.BAS                    *)