ich möchte aus einem eingegebenen Passwort feststellen, ob mindestens eine Zahl, ein Grossbuchstabe, ein Kleinbuchstabe ein Sonderzeichen eingetragen ist - dies kann egal an welcher Stelle sein.
funtk. aber irgendwie nicht.
Code: Alles auswählen
For i = 048 to 057
AAdd(aZahl,Chr(i))
Next i
For i = 033 to 047
AAdd(aSond,Chr(i))
Next i
For i = 058 to 064
AAdd(aSond,Chr(i))
Next i
For i = 091 to 096
AAdd(aSond,Chr(i))
Next i
For i = 123 to 128
AAdd(aSond,Chr(i))
Next i
For i = 65 to 090
AAdd(aGross,Chr(i))
Next i
For i = 097 to 122
AAdd(aKlein,Chr(i))
Next i
For j = 1 to Len(aZahl)
nPos:=At(aZahl[j],alltrim(aFelder[2]))
AAdd(aOk,nPos)
Next j
If AScan(aOK,1) < 1
msgbox("Kein numerischer Wert im Passwort eingegeben","Fehlerhafte Eingabe")
Return {aFelder,.f.}
Endif
aOK:={}
For j = 1 to Len(aKlein)
nPos:=At(aKlein[j],alltrim(aFelder[2]))
AAdd(aOk,nPos)
Next j
If AScan(aOK,1) <1
msgbox("Kein Kleinbuchstabe im Passwort eingegeben","Fehlerhafte Eingabe")
Return {aFelder,.f.}
Endif
aOK:={}
For j = 1 to Len(aSond)
nPos:=At(aSond[j],alltrim(aFelder[2]))
AAdd(aOk,nPos)
Next j
If AScan(aOK,1) <1
msgbox("Kein Sonderbuchstabe im Passwort eingegeben","Fehlerhafte Eingabe")
Return {aFelder,.f.}
Endif
aOK:={}
For j = 1 to Len(aGross)
nPos:=At(aGross[j],alltrim(aFelder[2]))
AAdd(aOk,nPos)
Next j
If AScan(aOK,1) <1
msgbox("Kein Grossbuchtabe im Passwort eingegeben","Fehlerhafte Eingabe")
Return {aFelder,.f.}
Endif
aOK:={}
Hat jemand eine Idee?
so es ist doch schon erledigt