[vankai14]

Сообщение от poli-smen

Естественно там будут всевозможные 8-битные символы, ты же символ генерируешь из диапазона 0..254, а в этот диапазон входят и цифры, и буквы, и знаки препинания, и другие спецсимволы включая управляющие.

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

Код:

ssignFile(OpenF, Edit3.text);
reset(OpenF,1);

num8:=FileSize(openf) div 8;

ost:=Filesize(OpenF)-num8*8;

if (ost=0) then num8:=num8-1;

for n:=0 to num8 do
     for m:=0 to 7 do Blockread(openf,blockin[n,m],1);

if (ost>0) then begin
                for m:=0 to (ost-1) do Blockread(openf,blockin[n+1,m],1);
                for m:=ost to 7 do Blockread(openf,blockin[n+1,m],1);
                end;

  CloseFile(OpenF);

потом много перестановок и замен и в конце запись

Код:

for cicle:=0 to num8 do
     for x:=0 to 7 do BlockWrite(CloseF,blockout[cicle,x],1);

 CloseFile(CloseF);

я так понимаю, что я неправильно записываю данные?