VPF::Сравнение файлов - Форум программистов

ne0n

Дата 10.9.2007, 16:42 (ссылка)

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

Загрузка ...

PlayBoy

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

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

Цитата(Alexeis @ 10.9.2007, 16:29

)

Фрешь Есть целый класс TIdHashCRC32 в модуле IdHashCRC.

и вправду фру smile

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

http://sa-sec.org
как я вам? smile

Alexeis

Дата 10.9.2007, 16:58 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Более того оказывается есть встроенный и MD5 называется MessageDigest_5.pas
В нем есть класс TMD5, который не только считает но и представляет в удобной форме (хекс, числа).
Но про него в справке нифига нет. (Нашел чисто поиском слова MD5 в файлах *.pas катологов кодегира).

Добавлено через 4 минуты и 35 секунд
Но MD5 похоже появилось только в RAD 2007 так что все у кого нет новой версии... должны считать по старинке.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Poseidon

Дата 10.9.2007, 20:10 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Цитата(Apls @ 10.9.2007, 16:08

)

а какая функция есть в delphi7 для подсчета CRC суммы файла

Ручками. Я привык все ручками... smile

Код


function GetCheckSum(FileName: string): DWORD;
var
 F: file of DWORD;
 P: Pointer;
 Fsize: DWORD;
 Buffer: array [0..500] of DWORD;
begin
 FileMode := 0;
 AssignFile(F, FileName);
 Reset(F);
 Seek(F, FileSize(F) div 2);
 Fsize := FileSize(F) - 1 - FilePos(F);
 if Fsize > 500 then Fsize := 500;
 BlockRead(F, Buffer, Fsize);
 Close(F);
 P := @Buffer;
 asm
    xor eax, eax
    xor ecx, ecx
    mov edi , p
    @again:
      add eax, [edi + 4*ecx]
      inc ecx
      cmp ecx, fsize
    jl @again
    mov @result, eax
  end;
end;

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

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

ne0n

Дата 10.9.2007, 21:37 (ссылка)

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

Загрузка ...

PlayBoy

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

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

Цитата(Poseidon @ 10.9.2007, 20:10

)

Ручками. Я привык все ручками...

тока ты забыл указать источник smile

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

http://sa-sec.org
как я вам? smile

Yanis

Дата 11.9.2007, 07:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

ne0n
Если ты действительно знаешь источник (автора), то скажи сам.

Это сообщение отредактировал(а) Yanis - 11.9.2007, 07:39

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

*щёлк*

ne0n

Дата 11.9.2007, 08:47 (ссылка)

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

Загрузка ...

PlayBoy

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

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

Цитата(Yanis @ 11.9.2007, 07:39

)

Если ты действительно знаешь источник (автора), то скажи сам.

DRKB/Delphi World smile

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

http://sa-sec.org
как я вам? smile

MetalFan

Дата 11.9.2007, 14:44 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

а накой при сравнении двух файлов сначала считать их контрольные суммы?
а если файлы по 2Гб а различие во втором байте?

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

There are always someone smarter than you...

ne0n

Дата 11.9.2007, 15:35 (ссылка)

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

Загрузка ...

PlayBoy

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

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

Цитата(MetalFan @ 11.9.2007, 14:44

)

а накой при сравнении двух файлов сначала считать их контрольные суммы?

ну ты автору вроде нужно было выявить только факт различности файлов...
вот и предложили как один из вариантов!

Цитата(MetalFan @ 11.9.2007, 14:44

)

а если файлы по 2Гб а различие во втором байте?

А если нет?! smile

ну это уж как карта ляжет(можно предосмотреть несколько алгоритмов взависимости от размера файла)!

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

http://sa-sec.org
как я вам? smile

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