Как я могу получить билет Kerberos с Delphi?

Question

Существуют ли примеры, показывающие, как Delphi вызывает сервер Active Directory Kerberos для запроса билета на выдачу билета / обычного билета?

Справочная информация: билет необходим для аутентификации на веб-сервисе, который обменивается конфиденциальной информацией.

Редактировать: пример с коротким исходным кодом был бы очень полезен. Я нашел JEDI Windows Security Code Library , которая очень впечатляет. Я не уверен, содержит ли он поддержку Kerberos.

Answer 1

Согласно этому вы сможете получить его с помощью InitializeSecurityContext вызова Windows API.

Answer 2

Первое чтение Керберизация приложений с использованием интерфейса поставщика поддержки безопасности , чтобы получить общее представление. InitializeSecurityContext описывается следующим образом:

Инициирует контекст безопасности создание токена безопасности, который должен быть переданным на сервер. приложение, которое использует эту функцию называется клиентом SSPI.

В msdn список функций SSPI можно найти в Функции аутентификации .

Фактический пример кода см. В примерах Win32 SSPI page . Возможно, вы найдете client.cpp полезным. Другой подобный пример - GssClient.c . Оба кода запускают его в цикле, потому что диалог продолжается, если возвращается SEC_I_CONTINUE_NEEDED.