Шифрование файлов.

← →
MSTX (2003-04-02 16:33) [0]

Здравствуйте!
У меня такая проблема: я хочу написать шифровщик. Для зашифровки я задаю цикл
repeat
read(F1 : TextFile, Ch : Char);
<процедура шифровки>
write(F2 : TextFile, Ch : Char);
until EOF(F1);
С текстовыми файлами работает как надо (за исключением больших файлов), а вот с файлами других типов - плохо, т.е. чтение производится не со всего файла, а только с начала. В итоге получается. что файл весом в 700 КВ после шифровки весит около 100 КВ... Подскажите, как правильно задать цикл, или может еще что не так?
Желательно на мыло.
Заранее спасибо.

← →
Jel (2003-04-02 16:37) [1]

Не использовать TextFile, ибо ^Z в нем считается концом файла.
Объяви файл как нетипизированный F1 : File;
и используй BlockRead, BlockWrite.

← →
Anatoly Podgoretsky (2003-04-02 18:29) [2]

Используй TFileStream

← →
ACD (2003-04-03 03:25) [3]

А самое оптимальное это MMF

← →
MSTX (2003-04-04 15:26) [4]

А можно немного подробнее, что это и как с ним работать, как обнаружить конец файла?

← →
Skier (2003-04-04 15:36) [5]

>MSTX
У Марко Кэнту в книге (по Delphi 3) есть
класс-потомок TFileStream, который шифрует и дешифрует файлы...
Посмотри на его сайте, может найдёшь...
http://www.marcocantu.com/

← →
NickBat (2003-04-04 15:37) [6]

> MSTX
Не обижайся, но чтобы писать шифровальщик необходимо как минимум знать отличия между типами файлов. Да и современные алгоритмы шифрования подразумевают сложные математические методы.

Шифрование файлов. Найти похожие ветки