winzip icon

Antivirus Scanner

Submitted on: 3/11/2018 2:07:32 AM
By: Antonov Alin-Iulian 
Level: Intermediate
User Rating: By 2 Users
Compatibility: Delphi 7, Delphi 6
Views: 4402
     Simple Antivirus Scanner - Scans entire folder (drive) and subfolders for files with specific extension (optional), then gets file MD5 hash, Size in bytes and compares the two values with other values from database, in case of match displays "Infected: ... etc ...". It contains a database maker; the database contains a fake virus for test purposes that is also available in this source code (a console app which displays a text: "This is a fake virus"). This is the most basic Antivirus engine. The scanning style is very old; antique some may say but there are still antiviruses on the market now that use the same style. You can optionally add HEX, BIN check, etc... to be shure that no false-pozitives appear when scanning. You need TBackGroundWorker component from DelphiArea.

winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

If you don't have a virus scanner, you can get one at many places on the net

Other 6 submission(s) by this author


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)

Other User Comments

5/26/2018 6:24:23 PMstherferson

I really liked your project but when it does not delete how can I make this change
(If this comment was disrespectful, please report it.)

7/16/2019 12:13:18 PMAntonov Alin-Iulian

First search for taskkill delphi function on google, and after that use DeleteFile(filename);
(If this comment was disrespectful, please report it.)


Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)

To post feedback, first please login.