[delphi] Поправить Jabber-клиент (переделать digest-аутентификацию)

Имеется исходник Jabber-клиента (взят отсюда: https://sourceforge.net/projects/lamp-im/files/Source/), проблема в том, что он формирует ответ на запрос аутентификации только если значение директивы QOP равно «auth» ("qop=auth"). нужно переделать код таким образом, чтобы клиент мог составлять правильный ответ серверу и при "qop=auth,auth-int".

формула для составления ответа при "qop=auth,auth-int" описана в википедии https://ru.wikipedia.org/wiki/Дайджест-аутентификация ,...