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

[Devostator]

Вот полный код программы:

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:TStringList;
 i:integer;
begin
f:=TStringList.Create();
f.LoadFromFile('test.txt');     //заносим текст в переменную

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

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

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

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

f.SaveToFile('test_decode.txt');
end;

К примеру вот исходный текст:
Привет всем!
Как дела?
Че делаете?

Вот зашифрованный текст:
???uy?eu?yoe
Oooeuyoo?
iyeuyooy?y?

А вот расшифрованный текст:
????±?*??±§*
?§§*?±§§?
?±*?±§§±?±?

[Serge_Bliznykov]

Не подтверждаю!!
Всё работает как часы! Выложить откомпилированный проект?!
Выложил Ваш же проект. Всё работает!

Другое дело, что Вы делаете грубейшую ошибку в стойкости защиты - используя в качестве ключа один и тот же байт.
Как минимум для этого надо использовать строчку и подлинее.
Да и неплохо бы завести указатель, чтобы каждая строчка не начиналась XORится с началом ключевой строки.
Ну, как максимум, добавлять в шифрованный файл случайный мусор в каждую строчку + завести контрольную сумму. Это РЕЗКО усложнит попытки анализа и подбора ключа. Пример нужен?

[Devostator]

Хм.......... а у меня не работает Ваш пример. Может проблема в том, что я использую Delphi 2010, а Вы Delphi 7?

Кодировку текста менял - не помогает.

[Stilet]

Может проблема в том, что я использую Delphi 2010, а Вы Delphi 7?

Совершенно верно )
2010ка чуть по другому со строками работает.

[Devostator]

И как же она работает? Что мне теперь делать, чтобы текст расшифровать?

[Devostator]

Подскажите пожалуйста! I need help. =) Неужели шифрование XOR не подходит для Delphi 2010?

[Serge_Bliznykov]

подходит, подходит.. надо только правильно работу со строчками написать!

Delphi 2010 по умолчанию работает со строками UniCode (это значит, что каждый символ хранится в двух байтах). Думаю, что проблема связана именно с этим.
Варианты решения:
или перейти на другую версию Delphi (хотя бы Protable взять)
или попытаться использовать AnsiString (ну и TEncoding - при чтении/записи строк)
или ...... (стопудово есть ещё варианты )
На крайний случай, я 100% уверен, что можно банально работать с файлом, как с бинарным (читать в буфер и обрабатывать буфер). Ничего сложного! Но это,конечно, только если со строчками не удастся разобраться!

p.s. а запакуйте, пожалуйста, исходный файл, зашифрованный файл и файл после расшифровки. Любопытно посмотреть...

[Devostator]

Вот 3 текстовых файла:
http://depositfiles.com/files/burhgi1iu

[Devostator]

В Turbo Delphi Portable все работает! Спасибо за подсказку.
TEncoding не осилил.
Может кто-нибудь поможет бедному студенту в программе под Delphi 2010 с использованием TEncoding?
Stilet и Serge_Bliznykov, СПАСИБО ВАМ БОЛЬШОЕ!

[Black Fregat]

Ну и мешанина в этих файлах.. Где-то получилось xor $b4, где-то xor $d4, а где-то вообще xor $04. Какая-то логика в этом явно есть. Думаю, что ошибка возникает из-за шибко умной функции chr().