Passwort := Copy(HexStr(MD5('geheimer Text' + Computername + DateTimeToStr(Trunc(Now * 24)))), 1, 15);
und schon hat man ein schönes 15-stelliges Passwort.
Direkt wäre es vielleicht etwas leicht zu knacken ... falls mal jemandem auffällt, wie man das nächste Passwort "ausrechnet".
