Загрузка и выгрузка файла TFileStream

[vankai14]

Здравствуйте. загружаю файл TFileStream, шифрую и пытаюсь выгрузить в другой файл TFileStream.
Потом при расшифровке в исходном файле какие-то иероглифы. В том, что шифровку/дешифровку написал правильно, уверен. проверял на массивах в паскале. Может я неправильно загружаю и выгружаю его? Вот код:

var
elp:int64;

s,s1,bs,bs1,nom,buf8,razmerhvosta:byte;
keyi:file of byte;
massiv:string; round,helpwrite8:byte;
razmer,num,change,i1,sxor,helpwrite64:int64;
sizefile,ifile:longint;

OpenF:=TFileStream.Create(Edit1.Text,fmOpenRead);
  OpenF.Position:=0;

  razmer:=OpenF.Size;
  change:= razmer div 8;

  s1:=0;
  for round:=0 to change do
      begin
      i1:=0;
      for s1:=round to 7 do
                     begin
                     i1:=OpenF.Read(i1,1);
                     i1:=i1 shl (8*(7-s1));
                     fin[round]:=fin[round]+i1;
                     end;
      end;
      razmerhvosta:=razmer-(change*8);
      if (razmerhvosta<>0) then
                   begin
                     round:=round+1;
                     for s1:=0 to razmerhvosta do
                            begin
                     i1:=OpenF.Read(i1,1);
                     i1:=i1 shl (8*(7-s1));
                     fin[round]:=fin[round]+i1;
                     end;
                   end;

.......................Шифрование...............

 if radiobutton1.Checked=TRUE then
     begin
     CloseF:=Tfilestream.Create('crypted',fmCreate);
     for ifile:=0 to round do for s:=0 to 7 do
                              begin
                              helpwrite64:=((fout[ifile] shl (s*8)) shr 56 );
                              helpwrite8:=helpwrite64;
                              CloseF.Write(helpwrite8,sizeof(helpwrite8));
                              end;
     CloseF.Free;
     end;

     if radiobutton2.Checked=TRUE then
     begin
     CloseF:=Tfilestream.Create('decrypted',fmCreate);
     for ifile:=0 to round do for s:=0 to 7 do
                              begin
                              helpwrite64:=((fout[ifile] shl (s*8)) shr 56 );
                              helpwrite8:=helpwrite64;
                              CloseF.Write(helpwrite8,sizeof(helpwrite8));

                              end;
     CloseF.Free;
     end;

[Stilet]

Шлупый вопрос: А чем отличается код в radiobutton1 от кода в radiobutton2?
Только именем файла?

[vankai14]

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

Шлупый вопрос: А чем отличается код в radiobutton1 от кода в radiobutton2?
Только именем файла?

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

[doktor255]

vankai14 А можно в коде выделить разницу этих самых очерёдностей? А то я как бы тоже не замечаю разницы. Если что, речь о коде ниже ...Шифрование...

[Stilet]

при активном радиобуттон1 происходит шифрование, а при радиобуттон2 - расшировка.

Ладно... Предлагаю упростить:

var filename:String;
...
.......................Шифрование...............

 if radiobutton1.Checked then filename:='crypted' else
  if radiobutton2.Checked then filename:='decrypted' else;

     CloseF:=Tfilestream.Create(filename,fmCreate);
     for ifile:=0 to round do for s:=0 to 7 do
                              begin
                              helpwrite64:=((fout[ifile] shl (s*8)) shr 56 );
                              helpwrite8:=helpwrite64;
                              CloseF.Write(helpwrite8,sizeof(helpwrite8));
                              end;
     CloseF.Free;
end;

А по теме нужно отлаживать по шагам и выяснять что пишется в файл.