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

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

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

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

8
active-directory delphi kerberos web-services

2 ответов

по данным этой вы должны быть в состоянии получить один с компонент initializesecuritycontext вызов API windows.

6

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

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

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

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

1