Шифрование текста

[Devostator]

Здравствуйте! У меня такая проблема:
Нужно зашифровать *.txt файл.
К примеру есть файл:
Привет! Как дела?
Что делаешь?
До свидания!

Проблема в том, чтобы после де шифрования сохранились абзацы.
Через XOR не получилось. Нужен какой-нибудь простенький способ.
Заранее благодарен.

[Stilet]

чтобы после де шифрования сохранились абзацы.

Ну так шифруй только те которые попадают в диапазон букв
if символ in ['A'..'я'] then шифруем символ

[p51x]

Проблема в том, чтобы после де шифрования сохранились абзацы.

Любое нормальное шифрование это сделает. XOR тоже справится...толькофайл надо использовать как бинарный.

[ZvEr_HaCkEr]

О тоже возник вопрос.Вот у меня имеется иник в котором содержится капшены MenuItem.Как мне туда краказябру написать,а программно дешифровывать файл и присваивать нормальные капшены

[Devostator]

А можете дать ссылку на пример?
И как перевести *.txt файл в бинарный?

[p51x]

И как перевести *.txt файл в бинарный?

Не надо ничего переводить! Просто откройте его как бинарный.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=58277
Сойдет?

[Devostator]

"Abstract error" выходит.

function TForm1.XORString(str:String):string;
var e:integer;
    XORKey:byte;
begin
 result:='';
 XORKey:=200;
    //********* FOR ******************
    for e :=1  to length(str) do
    begin
      result:=result+chr(byte(str[e]) xor XORKey);
    end;
    //******* END FOR ****************{}
end;

 procedure TForm1.ShifrovatClick(Sender: TObject);
 var
 f,k:TStrings;
 i:integer;
begin
k:=TStrings.Create();
f:=TStrings.Create();
f.LoadFromFile('test.txt');     //заносим текст в переменную

for I := 0 to f.Count - 1 do
begin
  k.Strings[i]:=XORString(f.Strings[i]); //построчно кодируем
end;

k.SaveToFile('test_code.txt');
end;

[Пепел Феникса]

вместо TStrings создавайте TStringList, ибо TStrings это абстрактный класс представляющий список строк.(точнее общие методы работы со списком строк)

[Devostator]

Спасибо большое! А теперь декодировать той же функцией? Если да, то не получается. Закорючки выходят вместо норм текста.