помогите написать Конвертер.

[Serge_Bliznykov]

Сообщение от sarsen

edKey: TEdit;

это не нужно, можно выкинуть.

Сообщение от sarsen

key := Edit1.Text;

ну, похоже на правду.
вроде бы, должно работать.
А что не так?

[sarsen]

Сообщение от Serge_Bliznykov

это не нужно, можно выкинуть.



ну, похоже на правду.
вроде бы, должно работать.
А что не так?

странно, конвертация отвалилась, не конвертирует не с ini не в поле ввода когда вводишь, шозатакэ

[sarsen]

хм, раньше вроде работало щас перестало в начале идёт записать слово, вот он не игнорируя начинает дешифровать и получается не верный на выходе, тоесть если нам надо найти $T1 вначале и на этом сделать декод он этого не делает, если убрать запись вначале файла типа Read тогда он конвертирует, раньше вроде этого не наблюдалось. Ни чё не понимаю

[Serge_Bliznykov]

Сообщение от sarsen

Ни чё не понимаю

аналогично, шеф, аналогично! (с)

[sarsen]

Как можно через оператор Readln или какой другой, пропустить слово в начале файла и в конце, ну или начинать читать файл по последней букве G в начале txt, и заканчивать читать по О в конце txt.

[Serge_Bliznykov]

Сообщение от sarsen

Как можно через оператор Readln или какой другой

это уже другая задача пошла?

Сообщение от sarsen

пропустить слово в начале файла и в конце, ну или начинать читать файл по последней букве G в начале txt, и заканчивать читать по О в конце txt.

приведите пример текстового файла и опишите конкретно, что с ним нужно сделать.

[sarsen]

Сообщение от Serge_Bliznykov

это уже другая задача пошла?
приведите пример текстового файла и опишите конкретно, что с ним нужно сделать.

Вот файлик, на нём пароль 12345qwert если убрать в нём запись в начале Reading и в конце Ок то декриптор работает, если же нет, то не работает, вот я и хочу как то игнорировать эти слова что бы конвертация применялась только к тому, что внутри этих записей Что бы не стирать в нём, а то бинарный формат портится файла.

[Serge_Bliznykov]

вот теперь понятно, о чём идёт речь.

[sarsen]

Сохранение по кнопкам сделал так

procedure TForm1.Button2Click(Sender: TObject);
var
  f1,f2 : file of byte;
  j, keyIndex : integer;
  s , key : AnsiString;

begin

  key := Edit1.Text;

if not OpenDialog1.Execute then Exit;
AssignFile(f1, OpenDialog1.FileName);
  reset(f1);

if not SaveDialog1.Execute then Exit;
AssignFile(f2, SaveDialog1.FileName);
  Rewrite(f2);

  SetLength(s, FileSize(f1));
  BlockRead(f1, s[1], FileSize(f1));

  keyIndex := 1;
  j:=1;
  while j<Length(s) do begin
     if (s[j]=#$0D) and (s[j+1]=#$0A) then Inc(j,2)
     else begin
        s[j] := chr( ord(s[j]) xor ord(key[keyIndex]));
       Inc(keyIndex);
       if keyIndex>Length(key) then keyIndex:=1;
       inc(j);
     end;
  end;
  BlockWrite(f2, s[1], Length(s));
  CloseFile(f2);
  CloseFile(f1);
  ShowMessage('Готово');
  end;

также сделал показывать пароль не показывать и очистка поля ввода

procedure TForm1.CheckBox1Click(Sender: TObject);

begin
if (checkbox1.Checked) then
 Edit1.PasswordChar:=#0
 else
 Edit1.PasswordChar:='*';
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;
end;

Не хватает, только пропуск добавить, того, что я описывал.
Serge_Bliznykov помогите пожалуйста!

[Serge_Bliznykov]

Сообщение от sarsen

Не хватает, только пропуск добавить, того, что я описывал.

пропустить то, что в начале легче лёгкого.

можно одной строчкой кода - вот так:

  keyIndex := 1;
  j:=1;
  if Copy(s,1,7)='Reading' then j:=8;
  while j<Length(s) do begin
     if (s[j]=#$0D) and (s[j+1]=#$0A) then Inc(j,2)
     else begin
        s[j] := chr( ord(s[j]) xor ord(key[keyIndex]));
       Inc(keyIndex);
       if keyIndex>Length(key) then keyIndex:=1;
       inc(j);
     end;
  end;

а убрать тот "Ok", который в конце файла, тоже можно, но нужно ли?
Он Вам сильно мешает?
Или нужно, чтобы "Ok" в конце файла сохранился?