Wie am einfachsten Passwörter speichern

[jAcK oRsEn]

Hi,


wie kann ich am einfachsten Sicher PAsswörter speichern...z.B. in einer *.ini Datei.

Ich möchte nur wissen welche die einfachste aber trotzdem sichere methode ist das passwort zu verschlüsseln!

[citybreaker]

Die einfachste wäre wohl die Ini Datei. Alerdings ist die nicht die sicherste.
Hatten das Thema soweit ich weiß schon öfter.

http://www.delphipraxis.net/internal...t=passw%F6rter

[jAcK oRsEn]

hmm, in der suche finde ich nichts vernünftiges...dein beitrag konnte mir auch nicht helfern

[fkerber]

Hi!

Schonmal nach [dp]Verschlüsselung[/dp] gesucht?
MD5
rijndael

Ciao fkerber

[jAcK oRsEn]

hab jetzt schon fast 30 beiträge durchgeschau aber nichts brauchbares gefunden...

ich brauche entweder nen code oder ne komponente und dann bitte mit downloadlink

[fkerber]

Hi!

Willst du einfach nur einen String verschlüsseln?
Schonmal nach Blowfish geguckt?

Ciao fkerber

[HaJo]

Hallo,

vielleicht hilft Dir das hier. Ist zwar nicht toll verschlüsselt aber geht halt :-)

Delphi-Quellcode:

TYPE
  //  Am Programmbeginn oder in Deiner Initialisierungsroutine deklarieren
  PW = String [40];
VAR
  PWort := STRING[40];


// Die beiden Prozeduren die ver-und entschlüsseln
PROCEDURE Crypt(var mess : PW; lg : integer);
BEGIN
   If lg > 1 Then
      Begin
         crypt(mess, lg-1);
         mess[lg] := chr((ord(mess[lg-1]) + ord(mess[lg])) mod 256);
      End;
END;

PROCEDURE DeCrypt(var mess : PW; lg : integer);
BEGIN
   If lg >= 2 Then
      Begin
         mess[lg] := chr((ord(mess[lg]) - ord(mess[lg-1]) + 256) mod 256);
         decrypt(mess, lg-1);
      End;
END;

Der Aufruf erfolgt dann etwa mit: Decrypt(PWort, length(PWort));

Gruß
Jochen

[jAcK oRsEn]

ja, ich möchte einen string verschlüsseln...im string ein passwort!

[fkerber]

Hi!

Im Forum findet man eigentlich genug zum Thema ...
Such auch mal noch nach DEC

Ciao fkerber

[jAcK oRsEn]

hat jemand von dec einen downloadlink?