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

[Pascal12345]

Нужно создать программу наподобие антивируса. Из файла tracert.exe в папке windows нужно взять сигнатуру (не менее 16 знаков (цифр)),ее нужно вписать в программу как константу.Далее эту сигнатуру программа должна проверять в каждом файле,который там есть. Если она будет такая же,программа должна выдать этот файл и путь к нему. Когда программа закончит все эти файлы проверять,то она должна написать "поиск окончен"
Знаю, что нужно пользоваться программой winhex.

[Serge_Bliznykov]

WinHex не особо нужен здесь.

для поиска можете воспользоваться темами:
http://www.programmersforum.ru/showthread.php?t=196864

http://www.programmersforum.ru/showthread.php?t=201993

[min@y™]

Знаю, что нужно пользоваться программой winhex.

И всё?!
Меня больше интересует, почему именно tracert.exe, и с какого смещения сигнатуру брать-то?
Поиск по стриму - это отдельная история.

[Pascal12345]

16 знаков любых с файла tracert.exe и по ним искать этот файл в каталоге

[Serge_Bliznykov]

Сообщение от Pascal12345

16 знаков любых с файла tracert.exe и по ним искать этот файл в каталоге

в принципе, понятно.
не факт, конечно, что такие же точно 16 байт подряд не найдутся в другом файле, но идея ясна.

Как делать Вам выше рассказали.
Можно смело приступать к реализации поиска.

к слову, а Паскаль у Вас какой?

[Pascal12345]

Turbo,ABC,Lazarus

[Pascal12345]

то что прислали выше, не то что надо.

[Pascal12345]

uses Dos;
type
buf = array [1..16] of byte;

const
signature:buf = ($0F,$7F,$44,$24,$28,$89,$44,$24,$3 8,$B8,$17,$00,$00,$00,$49,$8D);
var
scanF: file;
block:byte;
s:searchRec;
CurDir:string;



procedure findSign(const findFile: string) ;
var i:integer;
begin
assign(scanF, findFile);
reset(scanF,1);
i:=1;
while not EoF(scanF) do
begin
blockread(scanF, block, 1);
if block=signature[i] then
begin
if i=16 then
write(' - НАЙДЕНА СИГНАТУРА!!!');
else i:=i+1;
end
else i:=1;
end;
end;

begin
chdir('C:\windows\system32');
findFirst('*.*',$01+$02+$04+$20,S);
while DosError = 0 do
begin
if (s.Name<>'.') and (s.Name<>'..') then
begin
Write(' файл:',s.Name:14);
end;
findSign(s.name);
FindNext(s);
writeln;
end;
writeln('Поиск окончен, нажмите "Enter"');
readln;
end.

Вот есть программаm, но она почему-то ищет все файлы в папке, а не только tracert