xor текста из Memo

[riderpro]

Доброй ночи!
Ситуация такая,подгружаю текст из текстового файла в memo(или просто ввожу) и пытаюсь построчно xor-ить.

нашел алгоритм в инете,плюс добавил своего,получилось что-то наподобии

procedure TForm5.Button3Click(Sender: TObject);
var
s,key,text,longkey:string;
toto:char;
i,j:integer;
begin
key:=Edit1.Text;
for j:=0 to (Memo1.Lines.Count-1) do
begin
text:='';
s:=Memo1.Lines[j];
for i := 0 to (length(s) div length(key)) do
longkey := longkey + key;

for i := 1 to length(s) do
begin
toto := chr((ord(s[i]) XOR ord(longkey[i]))); 
text := text + toto;
end;
Memo2.Lines[j]:=text;
end;
end;

отказывается работать
где ошибка? или лучше оформить по другому?

первая проблема решена. проблема 2: xor только первой строчки

[3D Hunter]

Где именно отказывается? Выдает ошибку во время работы или при компиляции?

[3D Hunter]

например, можно так попробовать:

function TextCrypt(const AText,AKey:AnsiString):AnsiString;
var
  i,j:Integer;
  LStr,LKey:AnsiString;
  LsTempList:TStringList;
begin
  Result:='';
  try
    LsTempList:=TStringList.Create;
    LsTempList.Text:=AText;
    for i:=0 to LsTempList.Count-1 do
    begin
      LStr:=LsTempList[i];//присвоили строку

      //расширение ключа для текущей строки
      LKey:='';
      for j:=0 to (Length(LStr) div Length(AKey)) do
        LKey:=LKey+AKey;

      //xor текста и ключа (результат записываем в hex-формате воизбежание проблем отображения)
      for j:=1 to Length(LStr) do
        Result:=Result+IntToHex(Byte(LStr[j]) xor Byte(LKey[j]),2);
    end;
  finally
    FreeAndNil(LsTempList);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=TextCrypt(Memo1.Text,'demokey');
end;

[Serge_Bliznykov]

все это бесполезно.
в результате XOR могут получится (и получаются!) НЕПЕЧАТНЫЕ символы.
А визуальные компоненты (такие как TMemo, например) - НЕ ПРЕДНАЗНАЧЕНЫ для отображения таких символов.
Какой выход, спросите Вы?
Ну, прежде всего, зачем нужно отображать ЗАШИФРОВАННЫЙ текст в мемо?! Охота посмотреть на "кракозябры"?! Поэтому самый логичный вывод - отказаться от использования Memo для отображения зашифрованного текста.
Если же, по какой-то тайной прихоти всё же необходимо отобразить шифровку в мемо, тогда можно воспользоваться алгоритмом преобразования непечатных символов в печатные (см. алгоритмы UUECODE, BASE64, благо они достаточно просты, да и реализаций их полно).


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

[3D Hunter]

Serge_Bliznykov, я предложил нормальное решение в этом плане) крякозябры выводятся hex-представлением в тот же мемо.

[riderpro]

3D Hunter, спасибо,но вот теперь расшифровать не получается
как вернуть этот набор символов в исходный вид?

[riderpro]

я так понимаю,что нужна процедура преобразование hex обратно в символы,а потом снова xor?

[3D Hunter]

Правильно понимаете. А сделать легко - организуете цикл от 1 до "длина зашифрованного текста, деленная на 2" и считываете в нем по 2 символа, преобразуете их в байт, затем ксорите с исходным ключом (процедура расширения ключа та же, но относительно уже приведенной строки к бинарному виду из hex).
Вот вам в помощь следующий код на основе моего предыдущего:
SimpleTextCryptDecrypt.zip

Переработал шифрование, сделал еще легче. Смотрите исходники.

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

считываете в нем по 2 символа, преобразуете их в байт

эмм что?
это как?
учитывая что SizeOf(AnsiChar)==1, а SizeOf(UnicodeChar)==2.

[3D Hunter]

Пепел Феникса, вы невнимательно прочли тему. Идет речь про 2 символа в hex формате, т.е. например $C7.