Цитата:
Сообщение от 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;
Но, в обоих случаях когда открываю файлы блокнотом, там какие-то иероглифы. Может с кодировкой чёто надо сделать?