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

a2: array [1. .8] of integer; t: STRing [8] ;

mas: array [1. .11,1. .11] of char;

mas2: array [1. .11,1. .11] of char;

mas1: array [1. .11] of char; c1: STRing [8] ;

begin

if form4. RadioGroup1. ItemIndex=0 then

begin

Al: ='';

m: =StrToInt (Edit1. Text);

SL: = TStringList. Create;

SL. Clear;

for i: = 0 to m2. Lines. Count-1 do

begin

A: = m2. Lines [i] ;

For j: =32 to 255 do

Al: =Al + Chr (j);

R: ='';

for j: = 1 to Length (A) do

begin

MyChr: =A [j] ;

n: =Pos (MyChr, Al);

If n = 0

Then R: =R + MyChr

Else

Begin

S: =n - m;

IfS > 0 // Если предполагаемый номер символа попадает в алфавит

Then NewCode: =S

Else NewCode: = 224 + S;