🚀 go-pugleaf

W dniu 28.08.2018 o 10:35, ExM pisze:
> 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;
> 

Witam

Dzięki za odpowiedź, ale w Kerberosie chodzi o coś innego a po dodaniu 
SSO to już się całkowicie wszystko zmienia. Ja potrzebuję pracy w 
domenie i tylko w niej, lokalne konta tutaj się nie sprawdzą.

Pozdrawiam
-- 
Sivy