🚀 go-pugleaf

W dniu czwartek, 16 sierpnia 2018 16:02:57 UTC+2 użytkownik Sivy napisał:
> Witam
> 
> Mam aplikację, która muszę uwierzytelnić przy pomocy Kerberosa i SSO 
> (single sign on).
> 
> Ktoś wie czy są do tego jakieś komponenty czy kod dzięki któremu bym 
> mógł to osiągnąć ?
> 
> Za każdą wskazówkę będę wdzięczny.
> 
> Delphi 2007 a po stronie serwera Windows serwer 2012R2.
> 

Przyglądnij się tej funkcji (działa na każdym Delphi). W ten sposób możesz zweryfikować czy użytkownik został autoryzowany przez system. Reszta to tylko kwestia ustalenia w twojej aplikacji czy danego użytkownika akceptujesz. (Domena jest opcjonalna - bez niej nie ustalisz czy logowanie było lokalnym kontem czy domenowym)


 //--------------------------------------------------------------------------------------------------------------------+
//Funckja za pomocą API realizuje proces logowania sprawdzając czy podane dane zostały poprawnie zweryfikowane
//Parametry wywołania:
//  [_login]    - login użytkownika
//  [_password] - hasło użytkownika
//  [_domain]   - domea użytkownika
//  [token]     - wygenerowany przez system token autoryzacji
//  [msg]       - zwrócony przez funkcję komunikat
//
//v1.0 z 24.11.2017 by ExM
//--------------------------------------------------------------------------------------------------------------------+
function CheckUserPassword(_login, _password, _domain: string; var token:THandle; var msg:string): Boolean;
var
 _error:integer;
begin
 result:=false;
 msg:='';

 if (_login='') then Begin
   msg:='NOLOGIN';
   exit;
 end;

 if (_password='') then begin
   msg:='NOPASSWORD';
   exit;
 end;

 result := LogonUser(PChar(_login),
   PChar(_domain),
   PChar(_password),
   LOGON32_LOGON_INTERACTIVE, // first check interactive
   LOGON32_PROVIDER_DEFAULT,
   token);

 if not result then begin
   result := LogonUser(PChar(_login),
   PChar(_domain),
   PChar(_password),
   LOGON32_LOGON_NETWORK, // then check against network
   LOGON32_PROVIDER_DEFAULT,
   token);
 end;

 if not result then begin
   _error:=GetLastError;
   msg:=SysErrorMessage(_error);
 end;

end;