Wie am einfachsten Passwörter speichern

[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