Loginsystem

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         die0unddie1

 Script Function:
	Registriervorlage

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 210, 131, 192, 124)
$Input1 = GUICtrlCreateInput("", 72, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 72, 48, 121, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Loginname", 16, 16, 56, 17)
$Label2 = GUICtrlCreateLabel("Passwort", 16, 48, 47, 17)
$Button1 = GUICtrlCreateButton("Login", 16, 88, 73, 25)
$Button2 = GUICtrlCreateButton("Registrieren", 112, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			FileOpen("Accounts",0)
			$Fileread = FileRead("Accounts")
			$Filewroten = _StringEncrypt(0,$Fileread,123,3)
			FileWrite("Accounts2",$Filewroten)
			$Iniread = IniRead("Accounts2",GuiCtrlread($input1),GuiCtrlread($Input2),1)
			FileDelete("Accounts2")
			If $Iniread = 1 Then
				MsgBox(0,"Fehler","Login/password not found")
			Else
				MsgBox(0,"Win","Login&password are right. Welcome " & GUIctrlread($Input1))
			EndIf

		Case $Button2
			FileOpen("Accounts",0)
			$Vorhanden = IniRead("Accounts",GUICtrlRead($Input1),GUICtrlRead($Input2),1)
			If $Vorhanden = 1 Then
				$Fileread = FileRead("Accounts")
				$Filewroten = _StringEncrypt(0,$Fileread,123,3)
				FileWrite("Accounts2",$Filewroten)
				Iniwrite("Accounts2",GUIctrlread($Input1),GUIctrlread($Input1),"")
				Iniwrite("Accounts2",GUIctrlread($Input1),GUIctrlread($Input2),"")
				$Fileread2 = FileRead("Accounts2")
				$Filewroten2 = _StringEncrypt(1,$Fileread2,123,3)
				FileOpen("Accounts",2)
				FileWrite("Accounts",$Filewroten2)
				FileDelete("Accounts2")
			Else
				MsgBox(0,"error","Accountname Schon Vorhanden.")
			EndIf
	EndSwitch
WEnd

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <FTP.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 209, 109, 360, 167)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Login", 16, 72, 81, 33)
$Label1 = GUICtrlCreateLabel("Username: ", 8, 8, 50, 17)
GUICtrlSetColor(-1, 0x008000)
$Label2 = GUICtrlCreateLabel("Passwort: ", 8, 36, 53, 17)
GUICtrlSetColor(-1, 0x008000)
$Input1 = GUICtrlCreateInput("", 64, 8, 137, 21)
$Input2 = GUICtrlCreateInput("", 64, 32, 137, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$nMsge = GUIGetMsg()
	Switch $nMsge
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Username = GUICtrlRead($Input1)
			$Passwort = GUICtrlRead($Input2)
			$Logindata = InetRead("[COLOR="Lime"]ftp://[COLOR="Red"]MEINUSERNAME:MEINPASSWORT[/COLOR]@mein.ftp-server.de/" & $Username & ".txt[/COLOR]"); Der Absolute Pfad auf dem FTP Server, Ich hab das so geregelt
																											; Das Jeder User seine eigene Textdatei Mit seinen Accountdaten
																											; Hat nach diesem Prinzip:
																											;---------
																											; Username
																											; Passwort
																											;---------
																											; Das Programm macht einen Stringsplit mit @CRLF sowerden die
																											; Beiden Logindaten in $SplitLogindata[1] und $SplitLogindata[2]
																											; Umgewandelt!

			$BinaryLogindata = BinaryToString($Logindata)
			$SplitLogindata = StringSplit($BinaryLogindata, @CRLF)
			If $Username = $SplitLogindata[1] Then
				If $Passwort = $SplitLogindata[2] Then
					MsgBox(0,"Logged In!","Erfolgreich eingeloggt!" & @CRLF & "Viel Spaß!")
					GUIDelete($Form1)
					_Main()
					ExitLoop
					GUISetState(@SW_HIDE)
				EndIf
			EndIf
				$Label3 = GUICtrlCreateLabel("Accountdaten sind falsch!", 80, 56, 127, 17)
				GUICtrlSetColor(-1, 0x800000)
				Sleep(5000)

		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func _Main()
	;Dein Programmcode
	MsgBox(0,"","")
EndFunc