home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / tricks / virdemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-01-09  |  1.6 KB  |  43 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    VIRDEMO.PAS                         *)
  3. (*   Demonstationsprogramm für automatischen Virenschutz  *)
  4. (*        (c) 1991 Martin Wölker & TOOLBOX                *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Virus_Schutz_demo;
  7.  
  8. USES Novirus, Crt;
  9.  
  10. VAR
  11.   c : CHAR;
  12.  
  13. BEGIN
  14.   ClrScr;
  15.   WriteLn;
  16.   WriteLn;
  17.   WriteLn;
  18.   WriteLn;
  19.   WriteLn('Dieses Programm ist mit dem automatischen   ');
  20.   WriteLn('Virenschutz versehen. Jede Änderung des     ');
  21.   WriteLn('Programmcodes wird erkannt und kann vom     ');
  22.   WriteLn('Anwender mit selbst bestimmten Aktionen     ');
  23.   WriteLn('beantwortet werden.                         ');
  24.   WriteLn('der Test des Programms ergibt:':49, result:6);
  25.   IF result THEN BEGIN
  26.     WriteLn('TRUE: Dieses Programm ist unverändert.      ');
  27.     WriteLn('      Ändern Sie nun das Programm an einer  ');
  28.     WriteLn('      Stelle: z.B. ein Byte in diesem Text. ');
  29.     WriteLn('      Starten Sie das Programm dann neu.    ');
  30.   END ELSE BEGIN
  31.     WriteLn('FALSE: Das Programm wurde verändert.        ');
  32.     WriteLn('       Da die Veränderung vom Programm      ');
  33.     WriteLn('       selbst erkannt wurde, können nun     ');
  34.     WriteLn('       geeignete Maßnahmen ergriffen        ');
  35.     WriteLn('       werden.                              ');
  36.     WriteLn('       Sie können nun z.B. die Änderung     ');
  37.     WriteLn('       rückgängig machen.                   ');
  38.   END;
  39.  
  40.   c := ReadKey;
  41. END.
  42. (* ------------------------------------------------------ *)
  43. (*                 Ende von VIRDEMO.PAS                   *)