Разобрался! Алгоритм немного пришлось доработать. А так всё работает замечательно.
Во первых в строке
HTTPСоединение = Новый HTTPСоединение(URL,Порт,ИмяПользователя,Пароль,,,,);
Нужно убрать подстановку пользователя и пароля, иначе запрос будет отправлять с базовой авторизацией и не вернет заголовок WWW-authenticate. А так же еще в заголовке там authenticate с большой буквы приходит.
Затем в местах где подставляется параметр nonce, нужно добавить знак "=", либо переделать функцию СтрокаВСтруктуру(Строка).
Автору в любом случае спасибо!