anchor.diff:    New_DNS_State = DNS_State#dns_worker_state{workers_list = NewWorkersList},
     ok = gen_server:call(?MODULE, {updatePlugInState, New_DNS_State}),
   
  +  {S1,S2,S3} = now(),
  +  random:seed(S1,S2,S3),
  +  Result3 = make_ans_random(Result2),
   	case Module of
       control_panel ->
  -      {ok, Result2};
  +      {ok, Result3};
       _ ->
  -      case (length(Result2) > 1) or (length(NodesList) =< 1)  of
  -        true -> {ok, Result2};
  -        false ->
  -          {S1,S2,S3} = now(),
  -          random:seed(S1,S2,S3),
  -          NodeNum = random:uniform(length(NodesList)),
  -          {NewNode, _} = lists:nth(NodeNum, NodesList),
  -          case Result2 =:= [NewNode] of
  -            true ->
  -              {NewNode2, _} = lists:nth((NodeNum rem length(NodesList) + 1) , NodesList),
  -              {ok, Result2 ++ [NewNode2]};
  -            false ->
  -              {ok, Result2 ++ [NewNode]}
  -          end
  -      end
  +      create_ans(Result3, NodesList)
     end;
   
   handle(_ProtocolVersion, get_nodes) ->
  
positive.code: 
    case AvgLoad of
      0 ->
        {ok, lists:map(
          fun({Node, _}) ->
            Node
          end, NodesList)};
      _ ->
        {S1,S2,S3} = now(),
        random:seed(S1,S2,S3),
  
negative.code:             [Node | TmpAns]
          end
        end,
        Result = lists:foldl(ChooseNodes, [], NodesList),
        Result2 = make_ans_random(Result),
        create_ans(Result2, NodesList)
    end;
  
  handle(ProtocolVersion, Msg) ->
  