Wie bekomme ich ein Kerberos-Ticket mit Delphi?

Question

Gibt es Beispiele, die zeigen, wie Delphi den Active Directory-Kerberos-Server aufruft, um ein Ticket zu beantragen, das Ticket/normales Ticket gewährt?

Hintergrund: Das Ticket ist für die Authentifizierung an einen Webservice erforderlich, der vertrauliche Informationen austauscht.

Edit: ein kurzer Quellcode Beispiel wäre sehr hilfreich. Ich habe die JEDI Windows Security Code Library gefunden, die sehr beeindruckend ist. Ich bin mir nicht sicher, ob es Unterstützung für Kerberos enthält.

Answer 1

Nach this sollten Sie in der Lage sein, einen mit dem Windows API-Aufruf InitializeSecurityContext zu erhalten.

Answer 2

Lesen Sie zuerst Kerberizing Applications Using Security Support Provider Interface, um die allgemeine Idee zu erhalten. InitializeSecurityContext wird wie folgt beschrieben:

Initiiert einen Sicherheitskontext von ein Sicherheitstoken erzeugt, das muss an den Server übergeben werden. Die Anwendung, die diese Funktion verwendet, ist namens ein SSPI-Client.

Auf msdn finden Sie die Liste der SSPI-Funktionen in Authentication Functions.

Den tatsächlichen Beispielcode finden Sie unter Win32-Beispiele SSPI page. Sie finden wahrscheinlich client.cpp, um nützlich zu sein. Ein anderes ähnliches Beispiel ist GssClient.c. Beide Codes führen sie in einer Schleife aus, da die Konversation weiterläuft, wenn SEC_I_CONTINUE_NEEDED zurückgegeben wird.