90 lines
2.1 KiB
Plaintext
90 lines
2.1 KiB
Plaintext
{
|
|
$Project$
|
|
$Workfile$
|
|
$Revision$
|
|
$DateUTC$
|
|
$Id$
|
|
|
|
This file is part of the Indy (Internet Direct) project, and is offered
|
|
under the dual-licensing agreement described on the Indy website.
|
|
(http://www.indyproject.org/)
|
|
|
|
Copyright:
|
|
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
|
|
}
|
|
{
|
|
$Log$
|
|
}
|
|
{
|
|
Rev 1.2 1/25/2004 2:17:52 PM JPMugaas
|
|
Should work better. Removed one GPF in S/Key.
|
|
|
|
Rev 1.1 1/21/2004 4:03:16 PM JPMugaas
|
|
InitComponent
|
|
|
|
Rev 1.0 11/13/2002 08:00:30 AM JPMugaas
|
|
|
|
Basic LOGIN mechanism like SMTP uses it. This is not really specified in
|
|
a RFC - at least I couldn't find one.
|
|
This is of type TIdSASLUserPass because it needs a username/password
|
|
}
|
|
|
|
unit IdSASLLogin;
|
|
|
|
interface
|
|
|
|
{$i IdCompilerDefines.inc}
|
|
|
|
uses
|
|
IdSASL,
|
|
IdSASLUserPass;
|
|
|
|
type
|
|
TIdSASLLogin = class(TIdSASLUserPass)
|
|
protected
|
|
procedure InitComponent; override;
|
|
public
|
|
class function ServiceName: TIdSASLServiceName; override;
|
|
|
|
function TryStartAuthenticate(const AHost, AProtocolName : string; var VInitialResponse: String): Boolean; override;
|
|
function StartAuthenticate(const AChallenge, AHost, AProtocolName : string) : String; override;
|
|
function ContinueAuthenticate(const ALastResponse, AHost, AProtocolName : String): String; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
IdUserPassProvider, IdBaseComponent;
|
|
|
|
{ TIdSASLLogin }
|
|
|
|
function TIdSASLLogin.TryStartAuthenticate(const AHost, AProtocolName: string;
|
|
var VInitialResponse: String): Boolean;
|
|
begin
|
|
VInitialResponse := GetUsername;
|
|
Result := True;
|
|
end;
|
|
|
|
function TIdSASLLogin.StartAuthenticate(const AChallenge, AHost, AProtocolName: string): String;
|
|
begin
|
|
Result := GetUsername;
|
|
end;
|
|
|
|
function TIdSASLLogin.ContinueAuthenticate(const ALastResponse, AHost, AProtocolName: String): String;
|
|
begin
|
|
Result := GetPassword;
|
|
end;
|
|
|
|
procedure TIdSASLLogin.InitComponent;
|
|
begin
|
|
inherited InitComponent;
|
|
FSecurityLevel := 200;
|
|
end;
|
|
|
|
class function TIdSASLLogin.ServiceName: TIdSASLServiceName;
|
|
begin
|
|
Result := 'LOGIN'; {Do not translate}
|
|
end;
|
|
|
|
end.
|