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

[Devostator]

Дописал в LoadFromFile и SaveFromFile "TEncoding.Unicode"
Все равно не дешифрует... ПО идее функцией TEncoding.Unicode я преобразовываю свой текст в Юникод? Или я что-то путаю?
Вот код:

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

procedure TForm2.Button1Click(Sender: TObject);
var
 f:TStringList;
 i:integer;
begin
f:=TStringList.Create();
f.LoadFromFile('test.txt', TEncoding.Unicode);     //заносим текст в переменную
for I := 0 to f.Count - 1 do
begin
  f.Strings[i]:=XORString(f.Strings[i]); //построчно кодируем
end;

f.SaveToFile('test_code.txt', TEncoding.Unicode);
end;


procedure TForm2.Button2Click(Sender: TObject);
var
 f: TStringList;
 i:integer;
begin
f:=TStringList.Create();

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

f.SaveToFile('test_decode.txt', TEncoding.Unicode);
end;

[Serge_Bliznykov]

1) думаю, что проблема (как абсолютно справедливо заметил Black Fregat чуть выше - про полную мешанину) всё таки в строчке, которая посимвольно делает XOR

ничего не обещаю, но...

а если попробовать кодировку написать вот так:

    for e :=1  to length(str) do
    begin
      result:=result+chr(ord(str[e]) xor XORKey);
    end;

или вот так:

var  b : byte;
  ...

    for e :=1  to length(str) do
    begin
      b := Ord(Copy(str,e,1));
      result:=result+chr(b xor XORKey);
    end;

Кстати, а действительно, а почему бы не расмотреть вариант работы с файлом как с обычным бинарным? Поверьте, все эти проблемы со строками и кодировками сразу уйдут...

[Stilet]

Оффтоп:
Я вообще свой пример рассчитывал не для юникода, так что звиняйте если чё...

[Devostator]

Есть вот такой способ шифрования.
http://www.delphisources.ru/pages/so...eam_coder.html
Но он мне не подходит, т.к. при работе с файлом другие пользователи не могут работать с ним (файлом). А мне нужно чтобы неограниченое число пользователей могли одновременно просматривать файл.

Вот в этом примере у TFileStream есть свойство "Size", а есть ли аналогичное свойство у TStringList?

Все разобрался..... кажись. При открытий файла нужно указать права, с которыми будет открыт файл:
f:=TFileStream.Create('test.txt',fm OpenRead, fmShareCompat);

Е моЁ! Теперь проблема с внесением данный в файл.
Делаю f.Write('бла-бла-бла', ????); И сколько я должен байт выделить?
Или есть какой-то метод для определения числа байт?

[KoBRaAndrey]

Вот процедура под Delphi 2010

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