![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
кодирование информации
Shamansky © (2004-12-21 23:24:00)Подскажите как можно закодировать структурированную информацию и сохранить в файл, потом соответственно раскодировать в виде структуры. то есть массив в файл, из файла в массив, защита нужна просто от дурака.
cadaber (2004-12-24 07:31:00) [1]Делал нетипизированые, но структуированые "своим" методом файлы. Вместе с текстом складировал там и битмэпы и переменные. (Без всякого кодирования). Использовал TStream (TFileStream, TMemoryStream) - очень удобно.
Reindeer Moss Eater (2004-12-23 09:50:00) [2]Кодирование применяют не от дурака и не от умного.
Роман_ (2004-12-23 09:40:00) [3]Если от дурака, то почему бы просто не записать данные в структуру, создать файл с такими структурами, и туда записывать.
Reindeer Moss Eater (2004-12-22 09:50:00) [4]Кодирование - это не шифрование.
А шифрование - это не кодирование.
ocean (2004-12-22 09:44:00) [5]Предлагаю использовать исключающее ИЛИ с битовой маской:
const iBitMask : Byte = 11010101b; //можно и любую другую
fOutFile : File of Byte; //AssignFile, Rewrite - само собой
procedure ReadByte(B : Byte);
begin
Write(fOutFile, Byte xor iBitMask);
end;
function ReadByte : Byte;
Var B : Byte;
begin
Read(fOutFile, Byte);
Result := Byte xor iBitMask;
end;
Yanis (2004-12-22 00:48:00) [6]Наверное проще будет сначала записать в файл а потом его зашифровать.