кривое шифрование memo

[T-dayne]

Всем привет. мне нужно зашифровать текст введненный в memo. Сам делаю XOR'ом :

procedure TForm2.CryptDoc(longkey: string);
var key, text, result : string;
i,l : integer;
toto, c : char;
begin
key:='hastalavista';
text:=Memo1.Text;
l:=length(text);

for i := 0 to (l div 3) do
longkey := longkey + key;

for i := 1 to l do
 begin
toto := chr((ord(text[i]) XOR ord(longkey[i]))); 
result := result + toto;
 end;

Memo2.Text:=result;
end;

шифруется, пробую разшифровать так:

procedure TForm2.deCryptDoc(longkey: string);
var key, text, result : string;
i,l : integer;
toto, c : char;
begin
key:='hastalavista';
text:=Memo2.Text;
l:=length(text);

for i := 0 to (l div 3) do
longkey := longkey + key;

for i := 1 to l do
 begin
toto := chr((ord(text[i]) XOR ord(longkey[i]))); 
result := result + toto;
 end;

Memo1.Text:=result;
end;

и тут, текст выходит неправильный, точнее правильный, но до определенного места, и дешифровка останавливается При разных текстах бывает в разных местах, бывает когда вообще полностью расшифровывается

Так вот, я так понимаю что проблема в том, что как-то неправильно передаются символы переноса строки на xor функцию. что скажете, господа, можно ли исправить?

[Stilet]

Видимо тебе при шифровании попадается символ, которы Мемо расценивает как конец строки, или в общем управляющий символ.
Потому для отображения и хранения шифровок Мемо подходит оч. плохо.
Вот если ты будешь шифровать в строку, и из не расшифровывать тогда все будет Олл Райт.

[T-dayne]

Stilet а как в строку то? максимальная длина строк=255символов, а если у меня документ больше?

[Stilet]

максимальная длина строк=255символов

Это в паскале такое было.
В Делфи String по умолчанию может заглотнуть около 2Гб

[T-dayne]

о, спасибо за информацию.
Значит решил попробовать построчно шифровать/записывать:

procedure TForm2.CryptDoc(longkey, text: string);
var key, result : string;
i,l : integer;
toto, c : char;
begin
key:='1245';
l:=length(text);

for i := 0 to (l div 3) do
longkey := longkey + key;

for i := 1 to l do
 begin
toto := chr((ord(text[i]) XOR ord(longkey[i]))); // шифруем
result := result + toto;
end;

Memo2.Lines.Add(result);


end;

в процедуру в цикле передается каждая новая строка

при разшифровке, получаются ошибки, т.е. текст расшифровывается неверно, примерно 5% текста убивается.

[Serge_Bliznykov]

зашифрованный текст переводите в ПЕЧАТНЫЙ вид (используйте, например, банальный base64
и всё будет хорошо.

p.s. Если сами не разберётесь - пишите, будет у меня свободное время - кину примерчик!

[Stilet]

for i := 1 to l do
begin
toto := chr((ord(text[i]) XOR ord(longkey[i]))); // шифруем
result := result + toto;
end;

Memo2.Lines.Add(result);

И опять ты то что зашифровал (где могут быть неперевариваемые Мемой символы) пихаешь в Мемо...
Я ж тее говорю - не пихай в Мемо строку, если не уверен что там на 100% печатные символы.

[T-dayne]

Я пихаю его во 2й мемо чтобы провести savetofile() из него. А если обойтись без мемо, просто зашифрованную строку записать в файл через writeln() поможет?

фух, пробую еще один способ:

procedure TForm2.CryptDoc(longkey: string);
var key, text, result : string;
i,l : integer;
toto, c : char;
myFile : TextFile;
begin
 AssignFile(myFile, sedit1.Text);
 ReWrite(myFile);
key:='hastalavista';
text:=main2.Form1.sMemo1.Text;
l:=length(text);
progress.Form4.sProgressBar1.Max:=l;
progress.Form4.sProgressBar1.Position:=0;

for i := 0 to (l div 3) do
longkey := longkey + key;

for i := 1 to l do
 begin
toto := chr((ord(text[i]) XOR ord(longkey[i])));
result := result + toto;
 end;
writeln(myfile, result);
closefile(myfile);

end;

разшифровка :

procedure TForm3.deCryptDoc(longkey: string);
var key, text, result : string;
i,l : integer;
toto, c : char;
myfile: textfile;
begin
key:='hastalavista';
  AssignFile(myFile, sedit1.Text);
  Reset(myFile);
  Read(myFile, text);

l:=length(text);

for i := 0 to (l div 3) do
longkey := longkey + key;

for i := 1 to l do
 begin
toto := chr((ord(text[i]) XOR ord(longkey[i])));
result := result + toto;
 end;

main2.Form1.sMemo1.Text:=result;
end;

строку

привет

вроде разшифровывает, а вот многострочный документ - проблема, получается одно большая кракозябра(
Видимо, я неправильно использую read, при разшифровке чтобы прочитать весь файл в одну строку?

[Stilet]

записать в файл через writeln() поможет?

Ой, да ты что... Есть куча способов записать строку в файл.
Например банальным BlockWrite.
Или

 st.text:=s;
 st.SaveToFile('файл');

где st - объект класса TStringList

[T-dayne]

st.text:=s;
st.SaveToFile('файл');

почему-то криво работает, расшифровывается с ошибками(

Stilet Можешь помочь доработать мой код, любым способом, главном чтоб шуршал
По идее нужен способ записать в файл/считать из файла в одну переменную.