Einzelnen Beitrag anzeigen

LOMBI
(Gast)

n/a Beiträge
 
#6

Re: Bei Login auf Zugriffsverletzung reagieren ...

  Alt 14. Feb 2007, 20:21
Hallo halinchen/Heiko,

die Zugriffsverletzung bezieht sich auf die Verschlüsselung.
Wenn die beiden Editfelder leer bleiben, kann weder Benutzer noch
Kennwort in die .ini geschrieben werden.

Delphi-Quellcode:
...
try
  if (myKey = MD5_Hash2String((HashForString(EditBenutzer.Text + EditKennwort.Text)))) AND (myKey <> '') then
  begin
    ShowMessage ('Sie sind angemeldet!')
    end else
    begin
    ShowMessage ('Benutzername und/oder Kennwort falsch!');
    EditBenutzer.SetFocus;
    EditBenutzer.Text := '';
    EditKennwort.Text := '';
    end;
    except
   if (EditBenutzer.Text = '') or
   (EditKennwort.Text = '') then
begin
  ShowMessage('Bitte anmelden');
  EditBenutzer.SetFocus;
  Exit
  end;
end;
  Mit Zitat antworten Zitat