[lmikle]

Сообщение от idinht

Можно ли это как модифицировать для того чтобы он подключал пользователей под разными именами (заранее приписанными)?

Можно.
Сделай внешний файл, например, пары имя=пароль. Дальше в этой процедуре подгружаешь этот файл и проверяешь переданные login и password против него.

Например, есть файл ftp.txt:

Код:

admin=password1
user=password2

тогда код будет как-то так:

Код:

function TFTPServer.AuthUser(ALogin, APassword : String) : Boolean;
var
  S : TStringList;
begin
  S := TStringList.Create;
  Try
   Try
      S.LoadFromFile(ExtractFilePAth(ParamStr(0)) + 'ftp.txt');
      Result := S.Values[ALogin] = APassword;
    Finally
      S.Free;
    End;
  Except
    Result := False;
end;

Вынес проверку в отдельную процедуру, т.к. может потребоваться доп. функционал, типа проверки логина без учета регистра, да и хранить пароли - не айс, хранить надо хэши паролей, соотв, из пароля надо сделать хэш перед сравнением.