Passwortlänge abfragen

Hallo,

ich brauche Hilfe bei einer Abfrage zu If StringLen($sPW1) < 4 Then.

Func _Masterkey()


	Local $sPW1 = GUICtrlRead($sInput1)


	If GUICtrlRead($sInput1) <> GUICtrlRead($sInput2) Then
		MsgBox(16,"Fehler","Die Passwörter stimmen nicht überein")
		GUICtrlSetData($sInput1,"")
		GUICtrlSetData($sInput2,"")
		Return 0
	EndIf


	If StringLen($sPW1) < 4  Then
		MsgBox(16,"Fehler","Ihr Passwort muss mind. 5 Zeichen haben")
		Return 0
	EndIf


	$config = _Crypt_HashData(GUICtrlRead($sInput1),$CALG_MD5)
	IniWrite($sInifile2,"Config","1",$config & @CRLF)
	GUISetState(@SW_HIDE,$sForm1)
	MsgBox(64,"Erfolg! ","Das Master-Passwort wurde erfolgreich erstellt!")
	Exit
EndFunc

Das klappt leider nicht. Ich möchte abfragen, dass mind. 4 Buchstaben oder Zeichen eingegeben werden. Wenn nicht, dann gib die Msgbox aus. Wäre klasse wenn mir jemand unter die Arme greifen könnten.

Zitat von water

Definiere "Das klappt leider nicht.". Mit StringLen bist Du auf dem richtigen Weg.

Nun ja, ich gebe ein 1 oder 7 stelliges Passwort ein und es wird mir stets meine Msgbox MsgBox(16, "Fehler", "Ihr Passwort muss mind. 5 Zeichen haben") ausgegeben.

Zitat von alpines

du greifst vielleicht auf das falsche Control zu.

Leider nein. Es ist das richtige Control. Aber Du hast recht. Es müsste $hInput1 heissen. Ich nutzte diese Variable aber schon für die Abfrage des Masterpasswortes.

Der Fehler muss irgendwo bei der Abfrage liegen. Aber wo.

If StringLen($sPW1) < 4  Then 
                MsgBox(16, "Fehler", "Ihr Passwort muss mind. 5 Zeichen haben")
		Return 0
EndIf

Also wenn Ihr hier keine Fehler seht, muss ich noch wo anders einen Schnitzer haben. Danke Euch einstweilen für die Antworten.

Zitat von alpines

Führst du die Funktion überhaupt aus?

Ja, das habe ich bereits getestet. Aber ich bin einen Schritt weiter.

Hab' eben bemerkt, dass es bei jedem ersten Skript-Aufruf funktioniert aber beim zweiten Mal schon nicht mehr. Dann war der Fehler schnell behoben.

Ich hatte Euch hier das Original der Funktion am Ende des Skriptes mit Exit gepostet.
In der von mir verwendeten Skript-Kopie (mein Testskript) hatte ich noch Exit Run ($Outfile) am Ende des Skriptes.

D. h. ich Dubbel habe eine kompilierte Version mit dem nicht neu eingefügten Code

Zitat von bazii

If StringLen($sPW1) < 4 Then
MsgBox(16, "Fehler", "Ihr Passwort muss mind. 5 Zeichen haben")
Return 0
EndIf

ausgeführt. Klar, dass die Abfrage da ins leere lief.

Also, Problem gelöst.

Danke Euch sehr für Eure Ansätze und Hilfe.

Zitat von misterspeed

Das ist leider falsch. Entweder du änderst die Abfrage zu <=4 oder <5. Alternativ kannst du dich natürlich auch mit einem 4-stelligen Passwort begnügen, dann stimmt aber dein Text nicht.

Danke Dir für den Hinweis ! Du hast recht. Ich hatte das nach dem kompilieren beim testen erst bemerkt aber hier nicht mehr korrigiert.