User & Passwörter?

[HaJo]

Tag Alexander,

hier was einfaches

Delphi-Quellcode:

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;

Gruß
Jochen