Курсовая работа: Текстовый редактор "Блокнот" с функцией шифрования - дешифрования классическими криптографическими методами

M3. Clear;

st: =''; c: =''; a: =''; b: ='';

A: = m2. Text;

st: =edit1. Text;

4: n: =length (st);

dl: =length (a);

if n>dl then

delete (st,dl+1,n) else

begin

c: =copy (st,1,n);

insert (c,st,n+1); goto 4;

end;

for i: =1 to dl do

begin

k: =ord (a [i]) xor ord (st [i]);

m3. Text: =m3. text+chr (k);

end;

end;

if form4. RadioGroup1. ItemIndex=3 then

BEGIN

M3. Clear;

A: =''; B: =''; c: ='';

A: =EDIT1. Text;

b: =edit2. Text;

c: =m2. Text;

n: = length (a);

k: = length (b);

if n<>k then

begin