;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
Alles anzeigen