VPF::Exe - SFX или нет. (продолжение) - Форум программистов

Elfebet

Дата 10.8.2006, 09:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

Snowy мне показал код как можно определить exe - это SFX или нет. Вот данная функция отлично работает, но если в архиве есть комментарии, то эта функция уже не работоспособна. Подскажите пожалуйста что мне тут нужно передлать, чтобы эта функция работала и в том случае если в архиве есть комментарии?

Код


function IsZipFile(FileName: string): boolean;
var
  fs: TFileStream;
  s:   string;
begin
  try
    fs := TFileStream.Create(FileName, fmOpenRead and fmShareDenyNone);
    fs.Position := fs.Size - 32;
    SetLength(s, 32); fs.Read(s[1], 32);
    fs.Free;
  except end;
  result := pos('PK'#5#6, s) > 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsZipFile('C:\111.exe') then ShowMessage('Это Zip')
  else ShowMessage('Нифига не ZIP');
end;

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

dvamaster

Дата 10.8.2006, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Посмотри HEX код sfx с комментарием отыщи в конце буквы PK, там с ориентируешься

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Romikgy

Дата 10.8.2006, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

ищи сзаду файла , 3 подряд нуля, и левее его

Цитата(Elfebet @ 10.8.2006, 08:21

)

'PK'#5#6

PS комментарии записываются в конец файла

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 10.8.2006, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Самый простой способ - просто увеличить 32 до, например, 1024.
Но далеко не сомый грамотный.
Здесь нужно подумать...

Snowy

Дата 10.8.2006, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Модифицировал функцию.

Код


function IsZipFile(FileName: string): boolean;
const bsz = 256; // уменьшение значения ускоряет детект зипов, увеличение - ускоряет детект незипов
var
  fs: TFileStream;
  s:   string;
begin
  try
    fs := TFileStream.Create(FileName, fmOpenRead and fmShareDenyNone);
    SetLength(s, bsz); fs.Position := fs.Size;
    repeat
      fs.Seek(-bsz, soFromCurrent);
      fs.Read(s[1], bsz);
      result := pos('PK'#5#6, s) > 0;
      fs.Seek(-bsz + 4, soFromCurrent);
    until result or (pos(#0, s) > 0) or (fs.Position < bsz);
    fs.Free;
  except result := false; end;
end;

Elfebet

Дата 10.8.2006, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

интересно...., а я так попробывал, но сразу видна функция не надежная

Код


function IsZipFile(FileName: string): boolean;
var fs: TFileStream;
    s: string;
    int:Integer;
begin
int:=65000;
try
  fs := TFileStream.Create(FileName, fmOpenRead and fmShareDenyNone);
  if (fs.Size<int) then int:=fs.Size;
  fs.Position := fs.Size - int;
  SetLength(s, int);
  fs.Read(s[1], int);
  fs.Free;
except  end;
result := pos('PK'#5#6, s) > 0;
end;

самое интересное что длина коментариев в винзипе 64 000, а в винраре 30 000, и я поставил 65 000.

Добавлено @ 15:24
хотя работает сто процентов.....

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

Snowy

Дата 10.8.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код не зависит от длины комментариев.
Если читать по 64 кило, то долго будет при обработке большого количества файлов.
Да и ненадёжно - возможны ложные срабатывания.
Мой новый код гораздо надёжнее.

imageman

Дата 11.8.2006, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.9.2004

Репутация: 1
Всего: 1

а что если попробовать разобрать заголовок exe файла? Там должна быть такая фишка, как длина exe файла. У SFX архива длина файла должна быть больше соответсвующего значения в заголовке.

Snowy

Дата 12.8.2006, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

В том-то и фикус, что в заголовке exe нет никакой информации.
Он заранее знает, где находится заголовок архива.
А мы не знаем, т.к. производителей sfx мягко говоря много.
Вот и приходится искать по хвосту - так быстрее и надёжней.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »