Шифровка и Дешифровка

[Claster]

Всем доброго времени суток........делаю шифроку текста вроде все правильно

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (Memo2.Text<>'')then
  begin
   AssignFile(st_File,Edit13.Text);
   Rewrite(st_File);
    //////////////////////////////////////////////////Шифровка
    for i:= 0 to memo2.Lines.Count do begin
  s:= memo2.Lines.Strings[i];
  for j := 1 to Ord(s[0]) do c[j] := 23 xor c[j];
  /////////////////////////////////////////////////////////////
   writeln(st_File,s);
   end;
   CloseFile(st_File);
   ShowMessage('OK');
  end

end;

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

procedure TForm1.Button4Click(Sender: TObject);
var n:integer;
f:textfile;
 buf,fv:string;
begin
fv:=opendialog1.FileName;
with opendialog1 do begin
 assignfile(f,fv);
Reset(f);
for i:= 0 to n do  readln(f, buf);
readln(f, buf);
for k := 1 to Length(buf) do buf[k] := Char(23 xor Ord(c[k]));
memo4.Text  := buf;
 end;
//memo4.Lines.LoadFromFile(Opendialog1.FileName);
end;

[Serge_Bliznykov]

на редкость "неопрятный" код. Да и ошибок хватает.
1) цикл по строчкам мемо1 нельзя крутить до Count
нужно до Count-1

for i:= 0 to memo2.Lines.Count-1

2) при XOR символа с кодом 23 может получится НЕПЕЧАТНЫЙ символ. С чего это Вы решили, что текстовый файл подойдёт для записи/чтения зашифрованных данных?!

ну и ещё то, что бросилось в глаза: вместо Ord(s[0]) гораздо правильнее использовать Length(s)

p.s. процедуру дешифрации я даже не смотрел, хватило процедуры шифрации...

[Claster]

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

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (Memo2.Text<>'')then
  begin
   AssignFile(st_File,Edit13.Text);
   Rewrite(st_File);
    //////////////////////////////////////////////////Шифровка
    for i:= 0 to memo2.Lines.Count-1 do begin
  s:= memo2.Lines.Strings[i];
  for j := 1 to Ord(s[0]) do s[j] := Char(23 xor Ord(s[j]));
  /////////////////////////////////////////////////////////////
   writeln(st_File,s);
   end;
   CloseFile(st_File);
   ShowMessage('ОК');
  end

а вот с дешифровкой мне бы очень помогла ваша помощь, ошибок не выдает и в memo не добавляет (((

procedure TForm1.Button4Click(Sender: TObject);
var n:integer;
f:textfile;
 buf,fv:string;
begin
fv:=opendialog1.FileName;
n:=-1;
if opendialog1.Execute then
 assignfile(f,fv);
Reset(f);
for i:= 0 to n do  readln(f, buf);
//readln(f, buf);
for k := 1 to Length(buf) do buf[k] := Char(23 xor Ord(s[k]));
memo4.Lines.Add(buf);
 end;

[Serge_Bliznykov]

Не, Вы всё таки не хотите меня слушать...
Поймите, как только в строке появляются НЕПЕЧАТНЫЕ символы, то для записи и, особенно, для ЧТЕНИЯ текстовые файлы перестают подходить. Потому что текстовый файл - это файл содержащий текст. Бинарный файл (в общем случае) текстовым НЕ ЯВЛЯЕТСЯ!
Поэтому для работы с Вашим файлом используйте TFileStream.

почитайте тему вот эту - StringList(Delphi)
там, в этом сообщении я привёл пример шифрующий и расшифровающий Memo. Рекомендую воспользоваться этим кодом (можете ключевую фразу MKey заменить на свою. Желательно такую, чтобы она состояла из множества разнообразных символов и не бросалась в глаза при просмотре EXEшника).

[Claster]

ОК спасибо большое буду разбираться