Поиск по сигнатуре заданного файла в указанной директории

unit Poisk;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
    TForm1 = class(TForm)
    EtalonDir: TEdit;
    Clear: TButton;
    res: TMemo;
    run: TButton;
    OpenEtalon: TButton;
    OD1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    DirSearch: TEdit;
    OpenDir: TButton;
    ODir: TOpenDialog;
    procedure runClick(Sender: TObject);
    procedure OpenEtalonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OpenDirClick(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f: file of byte;
  byte1,byte2,byte3,byte4:byte;
  Path: string;
  Etalon: array [1 .. 32] of byte;
  fileEx : boolean;
 
implementation
 
{$R *.dfm}
 
//функция определяет, является ли файл PE-файлом
Function  PE(name: string): boolean;
var pos:longint;
begin
     byte1:=0;
     byte2:=0;
     assignFile(f,name);
     reset(f);
     if(filesize(f)>2) then
     begin
     read(f,byte1);      //Проверяем PE-формат
     read(f,byte2);
     end;
       if((byte1=$4D)and(byte2=$5A)) then
       begin
          if(filesize(f)>$40) then
          begin
          seek(f,$3C);
          read(f,byte1);
          read(f,byte2);
          pos:=$100*byte2 + byte1;
          end;
 
          if(filesize(f)>pos+2) then
          begin
          seek(f,pos);
          read(f,byte1);
          read(f,byte2);
          end;
            if((byte1=$50)and(byte2=$45)) then
                 result:=true
            else
                 result:=false;
       end
       else
           result:=false;
    CloseFile(f);
 
end;
 
//Считываем сигнатуру из файла - эталона
procedure GetEtalonSignature(name: string);
var pos: longint;
    i: integer;
begin
  for i:=1 to Length(Etalon) do
  Etalon[i]:=0;
 
  byte1:=0;
  byte2:=0;
 
  assignFile(f,name);
  reset(f);
  seek(f,$3C);    //смещаемся на 3Сh
  read(f,byte1);         //читаем содержимое по адресу 3Сh
  read(f,byte2);
  pos:=256*byte2 + byte1;   //адрес начала заголовка ($120)
 
  seek(f,pos+$54);
  read(f,byte1);
  read(f,byte2);
  read(f,byte3);
  read(f,byte4);
  pos:= byte4*0 + byte3*1 + byte2*256 + byte1*256*256;
  seek(f,pos);
 
  for i:=1 to Length(Etalon) do
     read(f,Etalon[i]);
  CloseFile(f);
end;
 
//Функция проверки файла по сигнатуре
function CheckSignature(name: string): boolean;
var i, pos: longint;
    signat: array of integer;
begin
  SetLength(signat,length(Etalon));
  byte1:=0;
  byte2:=0;
  assignFile(f,name);    //Ошибка открытия
  reset(f);
 
  seek(f,$3C);    //смещаемся на 3Сh
  read(f,byte1);         //читаем содержимое по адресу 3Сh
  read(f,byte2);
  pos:=256*byte2 + byte1;   //адрес начала заголовка ($120)
 
  seek(f,pos+$54);
  read(f,byte1);
  read(f,byte2);
  read(f,byte3);
  read(f,byte4);
  pos:= byte4*0 + byte3*1 + byte2*256 + byte1*256*256;
  seek(f,pos);
 
  result:=true;
 
  for i:=1 to Length(Etalon) do
  begin
    read(f,byte1);
    if byte1 <> Etalon[i] then
    begin
      result:= false;
      break;
    end;
  end;
  CloseFile(f);
end;
 
//Идем по каталогу поиска
function Obhod(put: string; vibor:integer):integer;
var sr: TSearchRec;
    i: integer;
begin
  i:=0;
  // Ищем файл
  if(findfirst(put+'\*.*',faAnyFile,sr) = 0) then
  begin
   repeat
    if((sr.Attr and faDirectory)    > 0) then
    begin
     if ((sr.name<>'.')and(sr.name<>'..'))then
       obhod(put+'\'+sr.Name,vibor)
    end
    else
    begin
      if (pe(put+'\'+sr.name)) then
        if (CheckSignature(put+'\'+sr.name)) then
          form1.res.lines.Add(put+'\'+sr.name);
    end;
   until (findnext(sr)<>0);
   findClose(sr);
  end
  else
   result:=1;
end;
 
procedure TForm1.runClick(Sender: TObject);
begin
  if FileEx = false then
    ShowMessage('Вы не выбрали файл с сигнатурой');
 
  if DirSearch.Text = '' then
    ShowMessage('Каталог для поиска не задан');
  if (FileEx = true) and (DirSearch.Text <> '') then
    begin
      Obhod(DirSearch.Text, 0);
    end;
end;
 
procedure TForm1.OpenEtalonClick(Sender: TObject);
begin
  if OD1.Execute = true then
    begin
      GetEtalonSignature(OD1.FileName);
      EtalonDir.Text:=OD1.FileName;
      FileEx:= true;
    end
  else ShowMessage('Вам следует выбрать файл с сигнатурой');
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FileEx:=false;
  EtalonDir.Text:='';
  DirSearch.Text:='';
  res.Lines.Clear;
end;
 
procedure TForm1.OpenDirClick(Sender: TObject);
begin
  if ODir.Execute then
  begin
     DirSearch.Text:=ExtractFileDir(ODir.FileName);
  end;
end;
 
end.

uses Utils;
var sr: SearchRec;
file1: file of byte;
file2: file of byte;
s,FilePath,FileMask:string;
sum1,sum2:longint;
t:byte;
begin
writeln('введите контрольную сумму');
readln(sum1);
FilePath:='C:\';
FileMask:='*.*';
  if FindFirstFile(FilePath+FileMask,sr) then
  begin
    s:=FilePath+sr.Name;
    assign(file2,s);
    reset(file2);
     sum2:=0;
    t:=0;
    
                 while (not EoF(file2)) do begin
                 read(file2,t);
                 inc(sum2,t);
                 sum2:=sum2 mod 100000000;
                 end;
    If sum1=sum2 then writeln(s);
    close(file2);
    while FindNext(sr) do begin
      s:=FilePath+sr.Name;
    assign(file2,s);
    reset(file2);
    sum2:=0;
    t:=0;
                 while (not EoF(file2)) do begin
                 read(file2,t);
                 inc(sum2,t);
                 sum2:=sum2 mod 100000000;
                 end;
    If sum1=sum2 then writeln(s);
    close(file2);
    end;
  end;
  FindClose(sr);
end.