Цитата:
|
Сообщение от 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;
Вынес проверку в отдельную процедуру, т.к. может потребоваться доп. функционал, типа проверки логина без учета регистра, да и хранить пароли - не айс, хранить надо хэши паролей, соотв, из пароля надо сделать хэш перед сравнением.