DelphiでKerberosチケットを取得するにはどうすればよいですか？

Question

DelphiがActive Directory Kerberosサーバーを呼び出してチケットを取得するチケット/通常のチケットを要求する方法を示す例はありますか？

背景：チケットは機密情報を交換するウェブサービスへの認証に必要です。

編集：短いソースコードの例が非常に役に立ちます。私は非常に印象的なJEDI Windows Security Code Libraryを見つけました。 Kerberosのサポートが含まれているかどうかはわかりません。

Answer 1

thisによれば、InitializeSecurityContext windows API呼び出しで取得できるはずです。

Answer 2

最初にKerberizing Applications Using Security Support Provider Interfaceを読んで一般的な考えを得てください。 InitializeSecurityContextは、次のように説明されています

は サーバーに渡さなければならないセキュリティトークンを生成 によってセキュリティコンテキストを開始します。この機能を使用するアプリケーション は、SSPIクライアントと呼ばれる です。

msdnでは、SSPI関数の一覧はAuthentication Functionsにあります。

実際のコード例については、Win32サンプルのSSPI pageを参照してください。あなたはおそらくclient.cppが役に立ちます。別の同様の例はGssClient.cです。 SEC_I_CONTINUE_NEEDEDが返された場合、対話は継続しているので、両方のコードでループを実行しています。