如何使用 Delphi 获得 Kerberos 票证? [英] How can I get a Kerberos ticket with Delphi?

问题描述

是否有示例说明 Delphi 如何调用 Active Directory Kerberos 服务器来请求票证授予票证/普通票证?

Are there examples which show how Delphi invokes the Active Directory Kerberos server to request a ticket granting ticket / normal ticket?

背景:对交换机密信息的 Web 服务进行身份验证需要票证.

Background: the ticket is required for authentification to a web service which exchanges confidential information.

一个简短的源代码示例会非常有帮助.我发现了JEDI Windows 安全代码库，这非常令人印象深刻.我不确定它是否包含对 Kerberos 的支持.

a short source code example would be very helpful. I have found the JEDI Windows Security Code Library which is very impressing. I am not sure if it contains support for Kerberos.

推荐答案

根据 this 您应该可以通过 InitializeSecurityContext Windows API 调用.

According to this you should be able to get one with the InitializeSecurityContext windows API call.

这篇关于如何使用 Delphi 获得 Kerberos 票证?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！