Шифр Виженера (работает только с латиницей)

var
  Form1: TForm1;
  i, z, n, l, p : integer;
  s, k, e :string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
 begin
s:=Edit1.Text;  //--исходный текст
k:=Edit2.Text;    //--ключ
Edit3.Text:='';
 
for i:=1 to length(s) do
  begin
  z:=ord(s[i]);      //--перевод в ASCII код
  l:=length(k);
  p:=i;
   //--Циклическое считывание ключа
  if p>l then
    begin
     p:=(p)mod(l);
     if p=0 then p:=l
     else p:=p;
     end
    else p:=p;
 
  n:=ord(k[p]);
 
  //--Кириллица заглавные
  if ((z>=192) and (z<=223)) and ((n>=192) and (n<=255)) then
  begin
  z:=(z-191);
    if n>=224 then n:=n-223
    else n:=n-191;
  z:=((z+n)mod(32))+191-1;
  if z<192 then z:=z+32
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Кириллица строчнык
  else if ((z>=224) and (z<=255)) and ((n>=192) and (n<=255)) then
  begin
  z:=(z-223);
  if n>=224 then n:=n-223
  else n:=n-191;
  z:=223-1+(z+n)mod(32);
  if z<224 then z:=z+32
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Латиница заглавные
  else if ((z>=65) and (z<=90)) and (((n>=65) and (n<=90)) or ((n>=97) and (n<=122))) then
  begin
  z:=(z-64);
  if n>=97 then n:=n-96
  else n:=n-64;
  z:=64-1+(z+n)mod(26);
  if z<65 then z:=z+26
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Латиница сточные
  else if ((z>=97) and (z<=122)) and (((n>=65 )and (n<=90)) or ((n>=97) and (n<=122))) then
  begin
  z:=(z-96);
  if n>=97 then n:=n-96
  else n:=n-64;
  z:=96-1+(z+n)mod(26);
  if z<97 then z:=z+26
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
 
  //--Если шифруемое сообщение не входит в алфавит (.,! ? и т.д.)
  else if (z<65) or ((z>90) and (z<97)) or ((z>122) and (z<192)) and (((n>64) and (n<91)) or ((n>96) and (n<123)) or (n>191)) then
  Edit3.Text:= Edit3.Text+chr(z)
 
  //--Если в ключ входят символы не из алфавита (.,! ? и т.д.)
  else if (n<65) or ((n>90) and (n<97)) or ((n>122) and (n<192)) then
  begin
  ShowMessage('Введен некорректный ключ. Ключ не должен содержать символы');
  Edit3.Text:='';
  break;
  end
 
  //---Использование разных алфавитов
  else
  begin
  ShowMessage('Ключ и текст должны содержать символы из одного алфавита');
  Edit3.Text:='';
  break;
  end;
end;
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text:='';
s:=Edit1.Text;
k:=Edit2.Text;
for i:=1 to length(s) do
  begin
  z:=ord(s[i]);
  l:=length(k);
  p:=i;
   //--Циклическое считывание ключа
  if p>l then
    begin
     p:=(p)mod(l);
     if p=0 then p:=l
     else p:=p;
     end
    else p:=p;
  n:=ord(k[p]);
  //--Кириллица заглавные
  if ((z>=192) and (z<=223)) and ((n>=192) and (n<=255)) then
  begin
  z:=(z-191);
    if n>=224 then n:=n-223
    else n:=n-191;
  z:=((z-n)mod(32))+191+1;
  if z<192 then z:=z+32
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Кириллица строчнык
  else if ((z>=224) and (z<=255)) and ((n>=192) and (n<=255)) then
  begin
  z:=(z-223);
  if n>=224 then n:=n-223
  else n:=n-191;
  z:=223+1+(z-n)mod(32);
  if z<224 then z:=z+32
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Латиница заглавные
  else if ((z>=65) and (z<=90)) and (((n>=65) and (n<=90)) or ((n>=97) and (n<=122))) then
  begin
  z:=(z-64);
  if n>=97 then n:=n-96
  else n:=n-64;
  z:=64+1+(z-n)mod(26);
  if z<65 then z:=z+26
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Латиница сточные
  else if ((z>=97) and (z<=122)) and (((n>=65 )and (n<=90)) or ((n>=97) and (n<=122))) then
  begin
  z:=(z-96);
  if n>=97 then n:=n-96
  else n:=n-64;
  z:=96+1+(z-n)mod(26);
  if z<97 then z:=z+26
  else z:=z;
  Edit3.Text:= Edit3.Text+chr(z);
  end
  //--Если шифруемое сообщение не входит в алфавит (.,! ? и т.д.)
  else if (z<65) or ((z>90) and (z<97)) or ((z>122) and (z<192)) and (((n>64) and (n<91)) or ((n>96) and (n<123)) or (n>191)) then
  Edit3.Text:= Edit3.Text+chr(z)
  //--Если в ключ входят символы не из алфавита (.,! ? и т.д.)
  else if (n<65) or ((n>90) and (n<97)) or ((n>122) and (n<192)) then
  begin
  ShowMessage('Введен некорректный ключ. Ключ не должен содержать символы');
  Edit3.Text:='';
  break;
  end
  //---Использование разных алфавитов
  else
  begin
  ShowMessage('Ключ и текст должны содержать символы из одного алфавита');
  Edit3.Text:='';
  break;
  end;
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
 
end.