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

i:=1;

k:=1;

While i<Length(Memo1.Text)+1 do

Begin

If k=Length(s)+1 then Begin

k:=1;

End;

j:=1;

While M[j][1]<>s[k] do

j:=j+1;

l:=pos(Memo1.Text[i],M[0]);

Memo3.Text:=Memo3.Text+M[j][l];

k:=k+1;

i:=i+1;

End;

End;

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

Var k,j,l:wORD;

i:longword;

Begin

Matrix;

Memo2.Text:='';

i:=1;

k:=1;

While i<Length(Memo1.Text)+1 do

Begin

If k=Length(s)+1 then Begin

k:=1;

End;