Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Mitglieder LogIn (https://www.delphipraxis.net/18641-mitglieder-login.html)

Neuni 22. Mär 2004 16:46


Mitglieder LogIn
 
Hi,
ich wollte mein Programm so schreiben, dass es auf eine Liste (oder so) im Internet zugreift, und dann guckt ob der eingegebene Benutzername und das Passwort so exestieren.

Hoffe sowas geht :roll:

Meflin 22. Mär 2004 16:54

Re: Mitglieder LogIn
 
äh ja wieso sollte sowas nicht gehen?

czapie 22. Mär 2004 18:00

Re: Mitglieder LogIn
 
Ich glaube dein Stichwort heißt Datenbank.

Aber vielleicht kannst du ein bißchen genauer beschreiben wo du hin willst.

Czapie.

Meflin 22. Mär 2004 18:01

Re: Mitglieder LogIn
 
wobei es nicht gerade die einfachste übung wäre, eine db übers internet anzusprechen!

shmia 22. Mär 2004 18:23

Re: Mitglieder LogIn
 
Zitat:

Zitat von Neuni
ich wollte mein Programm so schreiben, dass es auf eine Liste (oder so) im Internet zugreift, und dann guckt ob der eingegebene Benutzername und das Passwort so exestieren.

Schritt 1.)
Schreibe eine Text-Datei mit folgendem Aufbau:

thomas=pw64644
markus=solitaire2003
user=passwort
....

Schritt 2.)
Lade die Datei auf einen HTTP-Server

Schritt 3.)
Dein Programm soll die Datei downloaden:
Delphi-Quellcode:
uses ...,UrlMon;


function DownLoadInternetFile(const Source, Dest : String): Boolean;
begin
   Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
end;

...
begin
   if DownLoadInternetFile('http://www.hallo.de/userlist.txt', 'C:\userlist.txt') then
   begin
      // gut die Datei ist auf lokaler Platte
      FUserlist.LoadFromFile('C:\userlist.txt'); // in Stringliste laden
      // hier auswerten

      for i:=0 to FUserlist.Count-1 do
      begin
         if FUserlist.Names[i] = eingegebenerUser then
         begin
            Password := FUserlist.Values[i];
            // Vergleiche Password mit eingegebenem PW
            .....
            break;
         end;
      end;
   end
   else
      raise Exception.Create('Kann Userliste nicht downloaden !');
end;
Schritt 4.)
Suche dir ein günstiges Verschlüsselungsverfahren für die Passwörter !
Am Besten eine One-Way Verschlüsselung wie z.B. unter Unix zur PW-Verschlüsselung
üblich.

Meflin 22. Mär 2004 18:25

Re: Mitglieder LogIn
 
an dieser stelle sollte man darauf hinweisen dass dies eine sehr unsichere methode wäre. du solltest mindestens in der datei nur hashs anstatt der passwörter abspeichern!

Neuni 22. Mär 2004 18:39

Re: Mitglieder LogIn
 
hmmmm...
die idee is schon ganz gut, ich werd gleich mal ausprobieren ob das so geht, danke schonmal.

Chewie 22. Mär 2004 19:08

Re: Mitglieder LogIn
 
Zitat:

Zitat von Meflin
wobei es nicht gerade die einfachste übung wäre, eine db übers internet anzusprechen!


Ist bei z.B. einer MySQL-Datenbank nicht anders, als wenns lokal geht!


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz