web-services - 如何使用 Delphi 获得 Kerberos 票？

Question

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

背景：验证交换机密信息的网络服务需要票证。

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

score 6 · Accepted Answer

6

据此，您应该能够通过InitializeSecurityContext windows API 调用获得一个。

于 2009-06-27T08:55:05.117 回答

score 1 · Accepted Answer

首先阅读使用安全支持提供程序接口对应用程序进行 Kerberizing以获得总体思路。InitializeSecurityContext描述如下：

通过生成必须传递给服务器的安全令牌来启动安全上下文。使用此功能的应用程序称为 SSPI 客户端。

在 msdn 上，可以在Authentication Functions中找到 SSPI 函数的列表。

有关实际示例代码，请参阅 Win32 示例的SSPI 页面。您可能会发现 client.cpp很有用。另一个类似的例子是GssClient.c。SEC_I_CONTINUE_NEEDED两个代码都在循环中运行它，因为如果返回，对话会继续进行。

2 回答 2