шифрование в чате

unit Unit3;

interface
uses unit1, SysUtils, StdCtrls;
procedure viziner(sender:Tobject);


implementation

procedure viziner(sender:Tobject);
var sin, sh, sout, key:string;
n, k, i, j, l, m:integer;
mem:Tmemo;
begin
with form1 do
begin

if sender=button1 then
begin
mem:=memo1;
memo2.Lines.Clear
end
else
begin
mem:=memo2;
memo1.lines.Clear
end;

n:=mem.Lines.Count-1;

for i:=0 to n do
begin
sin:=mem.Lines.Strings[i];
///////////////////
key:= LabeledEdit1.text;

l:=length(sin); //ôîðìèðîâàíèå ñòðîêè êëþ÷à
sh:='';
while l>0 do
begin

if l>length(key) then
begin
sh:=sh+key;
l:=l-length(key)
end
else
begin
sh:=sh+copy(key,1,l);
l:=l-l
end;

end; /////////////////////////////

//âñå áóêâû-çàãëàâíûå
sin:=AnsiStrUpper(Pchar(sin));
sh:=AnsiStrUpper(Pchar(sh));

sout:='';
n:=length(sin);

for j:=1 to n do
begin
k:=getnumber(sh[j],Brus);

if not (sin[j] in ['-' , '_' , ' ' , ',' , '.' , ';' , ':' , '"' , '(' , ')'])
then
begin
m:=getnumber(sin[j], Brus) ;
if mem=memo1 then //øèôðîâàíèå

if m<=32-k+1 then
sout:=sout+Brus[m+k-1]
else
sout:=sout+Brus[m-32+k]

else //äåøèôðîâàíèå

if m>=k then
sout:=sout+Brus[m-k+1]
else
sout:=sout+Brus[32-k+m]
end
else sout:=sout+sin[j]

end;

if mem=memo1 then
memo2.lines.add(sout)
else memo1.lines.add(sout);

end
end
end;
end.
end.