TvsAuthentication

type TvsAuthentication = class(TComponent)

protected

  FPassDecoded: string;

  FPassEncoded: string;

  FDummyBool: Boolean;

  FUser: string;

  FPass: string;

  FOnAuthenticate: TOnAuthenticate;

  FIni: TIniFile;

  procedure EncodeDecodePass;

  function AuthenticateAnonymous;

  function AuthenticateWin32;

  function AuthenticateUnix;

  function AuthenticateSystem;

  function AuthenticateIniFile;

  function AuthenticateCallBack;

public

  function Authenticate();

  function GetAuthenticated;

  function AddUser();

  property IPInfo: TIPInfo; [rw]

published

  property Encoding: TAuthEncoding; [rw]

  property Method: TAuthMethod; [rw]

  property User: string; [rw]

  property Pass: string; [rw]

  property PasswordFile: string; [rw]

  property CaseSensitive: Boolean; [rw]

  property IsAuthenticated: Boolean; [rw]

  property OnAuthenticate: TOnAuthenticate; [rw]

end;

TvsAuthentication

TObject