Ok so sieht es jetzt schon mal gut aus... jeder neue Nutzer bekommt eine eigene Datei.
Code:
procedure TFormReg.Button_LoginClick(Sender: TObject);
begin
if (Edit_Benutzername.Text = '') or (Edit_PW.Text = '') or (Edit_PW_1.Text = '') then
{1}begin
showmessage('Bitte überprüfen Sie Ihre Eingaben!');
Edit_Benutzername.Text := '';
Edit_PW.Text := '';
Edit_PW_1.Text := '';
{1}end
else
{2}begin
if Edit_PW.Text <> Edit_PW_1.Text then
{3}begin
showmessage('Ihr gewählten Passwörter stimmen nicht überein!');
Edit_Pw.Text := '';
Edit_PW_1.Text := '';
{3}end
else
if Edit_PW.Text = Edit_PW_1.Text then
{4}begin
Benutzername := Edit_Benutzername.Text;
Memo_Login.Lines.Add(Benutzername);
Memo_Login.Lines.SaveToFile(Benutzername+'.txt');
{4}end;
{2}end;
{1}end;
Ich kann natürlich später dann "append" verwenden, damit es nur eine einzige Datei ist.
Nun muss noch das Passwort angefügt werden für jeden Nutzer einzeln. Halt auch so eine
Ascii Verschlüsselung. Das Programm gibt dann einen Schlüssel vor für jeden Account: z.B. 40
also wird aus A --> 51 --> + 40 = 91 (nicht nachvollziehbar ohne den Schlüssel)
der Schlüssel wird vom Benutzer selbst nicht gesehen.
Beim Login muss ich natürlich dann die entsprechende Xardas.txt Datei suchen lassen.
Code:
assignfile(tf,Benutzername + '.txt')
reset(tf)
usw.