Difference between revisions of "Unit Authentication"

Revision as of 04:36, 26 April 2018

@@ Line 39: / Line 39: @@
 |-
 | <code>TAuthenticator = class(TObject)</code>
+| style="width: 40%;"|
+|-
+|}
+{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
+|-
+| <code>TNullAuthenticator = class(TAuthenticator)</code>
 | style="width: 40%;"|
 |-

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FFlags:LongWord;`

`procedure SetFlags(AFlags:LongWord);`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`
public
`property Flags:LongWord read FFlags write SetFlags;`

`function UsernamePrompt:String; virtual;`
`function PasswordPrompt(const AUsername:String):String; virtual;`

`function CheckUsername(const AUsername:String):LongWord; virtual;`
`function CheckPassword(const AUsername,APassword:String):LongWord; virtual;`

Note: An authenticator module that accepts any username and password.

public
`function UsernamePrompt:String; override;`
`function PasswordPrompt(const AUsername:String):String; override;`

`function CheckUsername(const AUsername:String):LongWord; override;`
`function CheckPassword(const AUsername,APassword:String):LongWord; override;`