Цитата:
|
Сообщение от angvelem
Честно говоря, я не понял цели этого мазохизма.
|
для шифрования данных.
Нашел вот еще такой способ, но он некоторые символы не читает.
Код:
var a:TextFile;
b:String;
begin
AssignFile(a,'C:\Text.txt');
{$I-}
Reset(a);
{$I+}
ReadLn(a,b);
Memo1.Text:=b;
В целом ответ я знаю. Знаю как сделать, но не знаю как прописать... Нужно использовать HEX преобразователь. Читать файл как hex записывать данные в переменную (получится что-то вроде DF0DD0CBD3CC20D7CFD5...) после чего это все преобразовывается уже в нужные символы (Я□ФЛУМ□ ЧП...)
Начало было
тут...