Здравствуйте, есть алгоритм шифрования DES, но он шифрует максимум около 8 байт(я могу ошибаться), т.е. бОльшие файлы игнорируются. Насколько я понимаю, нужно составить цепочку из 8-байтных блоков.Возможно,я что-то не так понял? Модуль c примером его использования прилагается.
USE-DES вполне работоспособна, мне удавалось зашифровать небольшой txt файл.
Проблема в том, что при шифровании "больших" файлов(350 кб например) получаются файлы размером 4 кб.
Угу... проблема - вот тут:
n:=FileSize(f); { <--- описано как Word, но Word не может хранить размеры больше 64К }
k:=n div Rec; if n mod Rec<>0 then inc(k);
var
f_size: longint;
{
k и i я бы тоже сделал longint-ами, а то мало ли, захочешь
зашифровать файл размером больше 65535*512байт = 32Мб,
опять будет проблема
}
...
f_size := FileSize(f);
k:=f_size div Rec; if f_size mod Rec<>0 then inc(k);
...
Получается, у тебя f_size вместо переменной n? Теперь возникает ошибка 98, F_size должна иметь целочисленный тип.
А если её сделать integer, то такая же песня с 4-мя килобайтами получается(
Я где-то написал, что вместо? Покажи, где... Я добавил переменную, которая должна выполнять свою функцию: хранить размер файла... Что там у тебя делает N - это другие проблемы, f_size это не касается никаким боком.
Volvo, огромное спасибо. Как репутацию повышать?