function GenerationKey(var Key:string;const len:Integer):string;
    var
      i,j:Integer;
      tmp,NewKey,OldKey:string;
      CalcNumb:integer;
      f:Boolean;
    begin
      tmp:=Key[1];
      OldKey:=Key;
      f:=False;
      while f=False do
      begin
        CalcNumb:=strtoint(Key[1]) xor strtoint(Key[26]);
        Key:=key+inttostr(CalcNumb);
        NewKey:=Copy(Key,2,Length(Key));
        key:=NewKey;
        tmp:=tmp+key[1];

        if key=OldKey then
        begin
          f:=True;
        end;
      end;
      result:=tmp;
    end;