|
Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
AW: Passwort Generator
30. Jun 2011, 10:33
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". 
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (30. Jun 2011 um 10:50 Uhr)
|