[Delphi XE8]: Лабораторная работа по антивирусам

[nty]

Кто может помочь с задачами по антивирусам? Delphi XE8


1.Разработать антивирусную программу, обнаруживающую файлы – компаньоны; запрашивающую у пользователя, что делать с этими файлами (удалять, переписывать в другой каталог) и реализующие выбор пользователя.

2. Разработать антивирусную программу-детектор, проверяющую заданный файл в текущем каталоге на наличие конкретного вируса. Вирус задан специфической строкой (строками), которые должны присутствовать в файле.
– Развитие программы: а) предусмотреть проверку всех файлов каталога; б) проверить файлы на несколько типов вирусов, например, на вирус, который полностью заменяет файл-жертву своим кодом. Варианты: а) работа только с текстовыми файлами; б) работа с исполняемыми файлами.

[Stilet]

Ну а чем помочь то?

[Utkin]

Сдать преподу вместо него

[Alex11223]

Он может.

[beegl]

вот какой-то исходник - переделайте интерфейс и готово))

[nty]

Вот код второй задачи. Программа находит все файлы в каталоге, но не проверяет их. Где то ошибка, не могу исправить. Поможете?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Label2: TLabel;
    Memo1: TMemo;
    Label1: TLabel;
    Label3: TLabel;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 type mas1= array[0..10]of string;
implementation

{$R *.dfm}
procedure lab1(mask:string;FileAttrs: Integer; var names:mas1; var i:integer);
//поиск файлов по заданной маске в текущей папке
var
  sr: TSearchRec;
begin
    if FindFirst(mask, FileAttrs, sr) = 0 then
    begin
    i:=0;
      repeat
        names[i] := sr.Name;
        i:=i+1;
      until FindNext(sr) <> 0;
    FindClose(sr);
    end;
end;

procedure lab4(fname1:string; fname2:string; Var OK:Boolean);
{проверка присутствия содержимого одного файла в тексте другого файла
  fname1- вирус
  fname2- проверяемый файл
  OK- признак заражения:  true - файл заражен
                          false- файл чист
}
Var F1,F2: textfile;  s1,s2:string;k:integer;
begin
Assignfile(F1,fname1);
Assignfile(F2,fname2);
reset(f1);
reset(f2);

OK:=false;
if (fileexists(fname1) and fileexists(fname2)) then begin
   readln(F1,s1);
   k:=0;
   while not (eof(F2))and (k=0) do
   begin
   readln(F2,s2);
   if s1=s2 then begin
   OK:= true;
   k:=1;
   while not eof(F1)do
   begin
   readln(F1,s1);
   readln(F2,s2);
   if s1<>s2 then  OK:=false  ;
     end;
    end;
   end;
end;
closefile(F1);
closefile(F2);
end;


procedure TForm1.Button1Click(Sender: TObject);
var F1, F2: string; OK:Boolean;
s: string;  k: integer;

begin
F1:=edit1.Text;
F2:=edit2.Text;
Lab4(F1,F2,OK);
if OK=true then ShowMessage('файл заражен')
else ShowMessage('файл чист');
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer; F1,F3: string; OK:Boolean;
a:mas1;b:mas1;
 begin

 lab1('*.txt',faAnyfile,a,j);
 For i:=0 to j-1 do
 memo2.lines.Add(a[i]);
 F1:=edit1.Text;
 for i := 0 to j-1 do
  Lab4(F1,a[i],OK);
  if ok=true then  memo1.lines.Add(a[i]);

end;

end.

вот ссылка на архив с программой.
https://yadi.sk/d/ta7bwyLnmWck3