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

Memo1.Text:=Memo1.Text+Ch;

End;

CloseFile(F);

End;

End;

end;

procedure TForm1.Button5Click(Sender: TObject); //1s

begin

FName:='Скремблер';

SaveDialog1.FileName:=Fname;

If SaveDialog1.Execute then Fname:=SaveDialog1.FileName;

Memo1.Lines.SaveToFile(FName);

end;

procedure TForm1.Matrix; //Матрица V

Var i,k:word;

Begin

Setlength(M,length(s)+1);

M[0]:=alf;

For i:=1 to Length(s) do

Begin

k:=pos(s[i],alf);

M[i]:=Copy(alf,k,length(alf)-k+1)+copy(alf,1,k-1);

End;

End;

Procedure TForm1.Zashifr;//Процедура шифрования

Var k,j,l:wORD;

i:longword;

Begin

Matrix;