Реферат: Гибридная система шифрования ГСШ-11

End;

procedure TForm1.Button7Click(Sender: TObject); //2z

Var Ch:Char;

begin

memo2.Text:='';

memo3.Text:='';

If OpenDialog1.Execute then

Begin

AssignFile(F,OpenDialog1.FileName);

FName:=OpenDialog1.FileName;

Reset(F);

If IOResult=0 then Begin

While not Eof(f) do

Begin

Read(F,Ch);

Memo2.Text:=Memo2.Text+Ch;

End;

CloseFile(F);

End;

End;

end;

procedure TForm1.Button8Click(Sender: TObject); //Шифрование S

Var conf,c0:LongInt;

n:Byte;

k:Longword;

j,l:Word;

i:byte;

begin

conf:=1362;