Klassifiziere zB alle Zeichen.
Dann
Delphi-Quellcode:
const
Zahl = 1;
Buchstabe = 2;
Sonderzeichen = 4;
//----------------------------
sicher:=0;
for i:=1 to length(s) do
case s[i] of
'0'..'9': sicher:=sicher or Zahl;
'a'..'z',
'A'..'Z': sicher:=sicher or Buchstabe;
else
sicher:=sicher or Sonderzeichen;
end;
Wenn du danach pruefst, muss "sicher" = 4 sein sonst ist das Passwort nach deinen Massstaeben unsicher.