VPF::Контроль целосности програмки

SAVANE

Дата 8.5.2008, 12:48 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как сделать чтоб программа при запуске проверяла сама свой екзешник по размеру и если он отличается от заданого прописаного где нибудь в реестре выдавала сообщение что возможно файл поврежден и прекращала работу?

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

Be not afraid of growing slowly, be afraid only of standing still!

Rennigth

Дата 8.5.2008, 13:27 (ссылка)

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

Загрузка ...

Эксперт

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

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

Дык в чем проблема? Узнать размер файла?

Код


FileSize

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

(* Honesta mors turpi vita potior *)

SAVANE

Дата 8.5.2008, 14:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Rennigth @ 8.5.2008, 13:27

)

Дык в чем проблема? Узнать размер файла?

Код


procedure TForm1.FormCreate(Sender: TObject);
var
f: file;
i: integer;
begin
assignfile(f, 'c:\aaa.exe');
reset(f);
i:=filesize(f);
showmessage(inttostr(i));
closefile(f);
end;

Ошибка I/O Error 23
Файл должен смотреть свой розмер

Это сообщение отредактировал(а) SAVANE - 8.5.2008, 15:10

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

Be not afraid of growing slowly, be afraid only of standing still!

Poseidon

Дата 8.5.2008, 15:00 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

В DRKB есть статья "Вирусы: обнаружение заражения". Как раз то что тебе надо.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 8.5.2008, 15:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

Контроль размера не гарантирует целостности.
Нужно считать контрольную сумму.

SAVANE

Дата 8.5.2008, 15:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

Snowy , Poseidon
Спаибо. То что доктор прописал.
В принцыпе вопрос решенный тоько все же интересно, как ехе шник может сам проверить свой размер.

Это сообщение отредактировал(а) SAVANE - 8.5.2008, 15:49

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

Be not afraid of growing slowly, be afraid only of standing still!

Snowy

Дата 8.5.2008, 16:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

  with TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone) do
  begin
    размер := Size;
    Free;
  end;

Также можно через FindFirst

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