如何通过 Delphi 获得 Kerberos 票证？
是否有示例显示 Delphi 如何调用 Active Directory Kerberos 服务器来请求票证授予票证/普通票证？
背景：需要票据来对交换机密信息的网络服务进行身份验证。
编辑：一个简短的源代码示例将非常有帮助。 我发现了 JEDI Windows 安全代码库，它非常令人印象深刻。 我不确定它是否包含对 Kerberos 的支持。
Are there examples which show how Delphi invokes the Active Directory Kerberos server to request a ticket granting ticket / normal ticket?
Background: the ticket is required for authentification to a web service which exchanges confidential information.
Edit: 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.
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
根据 this 你应该能够得到一个使用 InitializeSecurityContext Windows API 调用。
According to this you should be able to get one with the InitializeSecurityContext windows API call.
首先阅读使用安全支持提供商接口对应用程序进行 Kerberizing 以了解总体思路。
InitializeSecurityContext描述如下：在 msdn 上，SSPI 函数列表可以在 中找到身份验证功能。
有关实际示例代码，请参阅 Win32 示例的 SSPI 页面。 您可能会发现 client.cpp 很有用。 另一个类似的示例是 GssClient.c。 两个代码都在循环中运行，因为如果返回 SEC_I_CONTINUE_NEEDED，对话就会继续进行。
First read Kerberizing Applications Using Security Support Provider Interface to get the general idea.
InitializeSecurityContextis described as following:On msdn, the list of SSPI functions can be found in Authentication Functions.
For actual example code, see Win32 samples's SSPI page. You probably find client.cpp to be useful. Another similar example is GssClient.c. Both code are running it in a loop because the conversation keeps going if
SEC_I_CONTINUE_NEEDEDis returned.