Memory-Spiel: Ideen

[XardasLP]

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.