home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / crcset11 / testcrc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-11-15  |  618 b   |  35 lines
  1. {
  2. TESTCRC.PAS
  3.  
  4. Kevin Dean
  5. Fairview Mall P.O. Box 55074
  6. 1800 Sheppard Avenue East
  7. Willowdale, Ontario
  8. CANADA    M2J 5B9
  9. CompuServe ID: 76336,3114
  10.  
  11. November 16, 1990
  12.  
  13.     This program demonstrates the anti-virus CRC algorithm in VALIDCRC.PAS.
  14. The response to an invalid CRC is entirely up to the programmer.
  15.  
  16.     This code is public domain.
  17. }
  18.  
  19.  
  20. program TestCRC;
  21.  
  22.  
  23. uses
  24.   ValidCRC;
  25.  
  26.  
  27. begin
  28. if IsValidCRC('TESTCRC.EXE') then
  29.   WriteLn('CRC is valid.')
  30. else
  31.   begin
  32.   WriteLn('*** WARNING *** Program''s CRC is invalid.');
  33.   WriteLn('This program may have been infected by a virus.')
  34.   end
  35. end.