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.