AHK Hilfe

;SIMPLE LOGIN SYSTEM
;by locomoco
;@breadfish https://breadfish.de/index.php?user/40277-locomoco/


#SingleInstance, Force


IfNotExist, %A_ScriptDir%/Accounts/
	FileCreateDir, %A_ScriptDir%/Accounts/
SetWorkingDir, %A_ScriptDir%/Accounts/
count1:=0
count2:=0
loop, Read, %A_WorkingDir%/users.txt
	If (trim(A_LoopReadLine) != "")
	count1++
loop, Read, %A_WorkingDir%/pass.txt
	If (trim(A_LoopReadLine) != "")
	count2++
if(count1!=count2)
{
	MsgBox, 308, Simple Login - Error, Fehler:`nEs gibt unterschiedliche Mengen an Benutzern und Passwörtern!`nMöchten Sie die Datenbank löschen?
	IfMsgBox, Yes
	{
		FileDelete, %A_WorkingDir%/users.txt
		FileDelete, %A_WorkingDir%/pass.txt
		Reload
	}
	IfMsgBox, No
	{
		MsgBox, 4144, Simple Login - Error, Programm kann nicht ausgeführt werden
		ExitApp
	}
}
InputBox, uname, Login, Bitte gebe einen Benutzernamen ein:, false
if ErrorLevel
{
    MsgBox, Simple Login, Beende das Program bei betätigung der OK Taste
	ExitApp
}
if(count1 == 0)
{
	MsgBox, 68, Simple Login, Es sind keine Benutzer vorhanden!`nMöchtest du einen neuen Benutzer erstellen?
	IfMsgBox, Yes
	{
		FileAppend, `n%uname%, %A_WorkingDir%/users.txt
		InputBox, upass, Login, Bitte gebe ein neues Passwort ein:, false
		if ErrorLevel
		{
			MsgBox, Simple Login, Beende das Program bei betätigung der OK Taste
			ExitApp
		}
		FileAppend, `n%upass%, %A_WorkingDir%/pass.txt
		Reload
	}
}
InputBox, upass, Login, Bitte gebe ein Passwort ein:, false
if ErrorLevel
{
    MsgBox, Simple Login, Beende das Program bei betätigung der OK Taste
	ExitApp
}
counter:=1
ausers := []
Loop
{
	if(counter > count1)
		break
	FileReadLine, tmpusers, %A_WorkingDir%/users.txt, %counter%
    ausers.Push(tmpusers)
	counter++
}


success:=false


Loop % counter-1
{
	tmpcount:=A_Index
    if(ausers[tmpcount] == uname)
	{
		tmpusers:=""
		apass:=[]
		counter2:=1
		Loop
		{
			if(counter2 > count2)
				break
			FileReadLine, tmppass, %A_WorkingDir%/pass.txt, %counter2%
			apass.Push(tmppass)
			counter2++
		}
		Loop % counter-1
		{
			if(apass[tmpcount] == upass)
			{
				MsgBox, Erfolgreich Eingeloggt!
				success:=true
				tmppass:=""
				break
			}
			else
			{
				MsgBox, 16, Simple Login, Login Fehlgeschlagen`nPasswort falsch!
				Reload
			}
		}
	}
	if(success)
		break
	else if(tmpcount >= counter-1)
	{
		MsgBox, 16, Simple Login, Login Fehlgeschlagen`nBenutzername falsch!
		Reload
	}
}
if(!success)
{
	MsgBox, 4112, Simple Login - Error, Es gab einen Fehler`, der Login konnte nicht durchgeführt werden.`nDas Programm wird geschlossen...
	ExitApp
}
Gui, Add, Text,, Erfolgreich eingeloggt!
Gui, Add, Text,, Willkommen %uname%
Gui, Add, Text,, Dein Passwort: %upass%
Gui, Add, Text,, Dein Account ist in Zeile: %tmpcount%
Gui, Add, Button,gNewAccount, Neuen Benutzer erstellen
Gui, Show
return
GuiClose:
ExitApp


NewAccount:
InputBox, newaccname, Register, Bitte gebe einen neuen Benutzernamen ein:, false
InputBox, newaccpass, Register, Bitte gebe einen neuen Passwort ein:, false
Loop % counter-1
{
	tmpcount:=A_Index
    if(ausers[tmpcount] == newaccname)
	{
		MsgBox, Dieser Account existiert bereits!
	}
	else if(tmpcount >= counter-1)
	{
		FileAppend, `n%newaccname%, %A_WorkingDir%/users.txt
		FileAppend, `n%newaccpass%, %A_WorkingDir%/pass.txt
		MsgBox, Das Benutzerkonto von `"%newaccname%`" wurde erstellt!`nPasswort: %newaccpass%
	}
}
newaccname:=""
newaccpass:=""
return