ja genau diese funktion gib mir tmd5digget aus, wie bekomme ich dass nun verglichen mit einem vorhanden hash.. ich habe ein problem damit, dass es kein string ist, ich weiß nicht wie ich damit umgehen kann
so hier mal im Detail:
In der system.ini sind username und passwort gespeichert, ich möchte das passwort in der datei als md5 hash gespeichert haben und beim anmelden überprüfen lassen..
Delphi-Quellcode:
procedure TFTPServer.IdFTPServer1UserLogin( ASender: TIdFTPServerThread;
const AUsername, APassword: string; var AAuthenticated: Boolean ) ;
begin
Anmeldeini := ExtractFilePath(ParamStr(0)) + 'system.ini';
with TMemIniFile.Create(Anmeldeini) do
try
user :=ReadString(LOGIN_SECTION, USER_KEY, 'Standard');
pw := ReadString(LOGIN_SECTION, PSWD_KEY, 'Standard');
AAuthenticated := ( AUsername = user ) and ( APassword = pw ) ;
finally
Free;
end;
if not AAuthenticated then
exit;
ASender.HomeDir := '/';
asender.currentdir := '/';
end;