unit Unit5;

interface

  function Encrypt(str: string; const Coolkey: string):string;
  function Decrypt(str, key: string): string;
  function GetStr(var str: String): String;

implementation

function LowerCase(Str: string): string;
var
  i: integer;
begin
  Result := Str;
  for i := 1 to length(Result) do
  begin
     if (Result[i] in ['А'..'Я']) then
        Result[i] := chr(ord(Result[i]) + 32);
     if Result[i] = 'Ё' then
        Result[i] := 'ё';
  end;
end;

function Encrypt(str: string; const Coolkey: string):string;
const
   SizeAlphabet = 33;
   Alphabet = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
   i, j, Position, KeyCounter, Offset: integer;
   temp, key: string;
begin
   str := GetStr(Str);
   Key := Coolkey;
   KeyCounter := 0;
   for i := 1 to length(str) do
   begin
      inc(KeyCounter);
      if KeyCounter > length(key) then
      begin
         KeyCounter := 1;
         for  j := 1 to Length(Key) do
            Key[j] := Alphabet[pos(Key[j], Alphabet) + 1];
      end;
      Position := pos(str[i], Alphabet) + pos(key[KeyCounter], Alphabet) - 1;
      if Position > SizeAlphabet then
         Position := Position - SizeAlphabet;
      Result:=Result + Alphabet[Position];
   end;
end;


function Decrypt(str, key: string): string;
const
   SizeAlphabet = 33;
   Alphabet = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
   i, j, Position, KeyCounter: integer;
   Temp: string;
begin
   Str := GetStr(Str);
   Str := LowerCase(str);
   Key := LowerCase(key);
   KeyCounter := 0;
   for i := 1 to length(str) do
   begin
      inc(KeyCounter);
      if KeyCounter > length(Key) then
      begin
         KeyCounter := 1;
         for  j := 1 to Length(Key) do
            Key[j] := Alphabet[pos(Key[j], Alphabet) + 1];
      end;
      Position := pos(Str[i], Alphabet) - pos(Key[KeyCounter], Alphabet) + 1;
      if Position <= 0 then
         Position := Position + SizeAlphabet;
      Result := Result + Alphabet[Position];
   end;
end;

function GetStr(var str: String): String;
var
  i: Integer;
  newStr: String;
begin
  for i := 1 to Length(str) do
  begin
    if (ord(str[i]) >= 1072) and (ord(str[i]) <= 1103) or (ord(str[i]) = 1105)then
      newStr := newStr + str[i];
    result := newStr;
  end;
end;

end.