[alyan]

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

Совет: на время оттключите ваш криптоалгол и попробуйте просто считать содержимое файла в файл-поток - если удастся это сделать, то движение можно продолжить

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

но осталась еще одна проблема. Запись данных в файлы пробую по разному. Например, простой ключ, сгенерированный рандомом
ТАК

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:byte; f:file;
begin   randomize;
AssignFile(f,'key.txt');
rewrite(f);
for i:=0 to 9 do
              begin
              k[i]:=random(255);
              Blockwrite(f,k[i],1);
              Edit1.Text:=edit1.Text+' ';
              edit1.Text:=edit1.Text+inttostr(k[i]);
              end;

end;

И ВОТ ТАК

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:byte; f:TFileStream;
begin   randomize;
f:=TFileStream.Create('key.txt',fmCreate);
f.Position:=0;
for i:=0 to 9 do
              begin
              k[i]:=random(255);
              f.Write(k[i],sizeof(k[i]));
              Edit1.Text:=edit1.Text+' ';
              edit1.Text:=edit1.Text+inttostr(k[i]);
              end;

end;

Но, в обоих случаях когда открываю файлы блокнотом, там какие-то иероглифы. Может с кодировкой чёто надо сделать?