🚀 go-pugleaf

W dniu 2018-08-16 o 16:02, Sivy pisze:
> 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.
> 
> Pozdrawiam

SecureBlackbox?

P.S.

W dniu 17.08.2018 o 10:23, Piotr S. pisze:
> W dniu 2018-08-16 o 16:02, Sivy pisze:
>> 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.
>>
>> Pozdrawiam
> 
> SecureBlackbox?
> 
> P.S.

Witam

Nawet posiadam ten komponent (v. 15, wykorzystywany do czegoś innego).

A możesz powiedzieć coś więcej na ten temat ? ja nie jestem obeznany z 
tym tematem za bardzo :/

Pozdrawiam
-- 
Sivy

W dniu 2018-08-17 o 14:09, Sivy pisze:
> 
> Nawet posiadam ten komponent (v. 15, wykorzystywany do czegoś innego).
> 
> A możesz powiedzieć coś więcej na ten temat ? ja nie jestem obeznany z 
> tym tematem za bardzo :/
> 
> Pozdrawiam

Przykro mi - nie pomogę. Nie używam tego komponentu niestety. Niestety 
doczytałem, że nie obsługuje Kerberosa (no chyba, że się coś zmieniło od 
tego momentu).

P.S.

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;

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