Модератор: Модераторы
Код: Выделить всё
function TCliGalSvr.CheckLinuxUser(AUserName, APassword: String): Boolean;
var
Pwd: PPasswd;
begin
Result := False;
Pwd := fpgetpwnam(PChar(AUserName));
if Pwd <> nil then
begin
// тут нужно проверить авторизацию....
end;
end; И чем это плохо? Пользователь во всех программах запущенных на ПК автоматом логинется, программа знает гарантированно кто с ней работает. Чужой логин не подсунуть и не обмануть. Убивается учетка, убивается и доступ к программе. Для безопасности только плюсы.grot писал(а):Мне кажется - это очень плохая идея всех этих пользователей перемешивать ( пахнуло AD из Windows )...
По совету с https://forum.lazarus.freepascal.org/in ... 597.0.html
Код: Выделить всё
function TMySvr.CheckLinuxUser(AUserName, APassword: String): Boolean;
var
Pwd : PPasswd;
outString : String;
outArrayF : TStringArray;
outArrayS : TStringArray;
outArrayT : TStringArray;
begin
Result := False;
// Retrieve user information from the Linux user database
Pwd := fpgetpwnam(PChar(AUserName));
if Pwd <> nil then
begin
if RunCommand(Format('sudo grep %s /etc/shadow', [AUserName]), outString) then
begin
outArrayF := outString.Split(':');
outArrayS := outArrayF[1].Split('$');
if RunCommand(Format('openssl passwd -%s -salt %s %s', [outArrayS[1], outArrayS[2], APassword]), outString) then
begin
outArrayT := outString.Replace(#10, '').Split('$');
Result := outArrayS[3] = outArrayT[3];
end;
end;
end;
end; 
А где проблема? Смотрим IP подключения, запоминаем его. Если он делает больше 3-5 попыток - бан адреса и любых попыток на неделю/месяц. Вот перехватить пакет с правильным паролем - да могут.ssnakess писал(а):Не стоит юзеров для веб сервера привязывать к учеткам ОС.
Это черевато тем, что вы даете открытый канал подбора пароля к вашим учеткам ОС, да еще и с проверкой на существование пользователя.
если у вас открыт ssh, то запустите
lastb -i -10
посмотрите, сколько подборов и под какими юзерами ломятся к вам нехорошие личности
А потом представьте что Вы дали этим личностям. еще один канал подбора пароля к вашей ОС
Проблемы нет, если Вы в своем сервере предусмотрите ограничение по количеству попыток, а также максимальное количество подключений.Sharfik писал(а): А где проблема? Смотрим IP подключения, запоминаем его. Если он делает больше 3-5 попыток - бан адреса и любых попыток на неделю/месяц. Вот перехватить пакет с правильным паролем - да могут.