Register/Login Script mit FTP

[sezer0012]

Hallo, ich möchte euch mein selbst geschriebenes Register/Login Script vorstellen.
Es speichert die Daten auf euren Filezilla - Server.

Wenn man sich registriert, holt es eine zip Datei vom Server und schiebt die ini (mit den Daten) in die zip Datei, dann wird es ins Filezilla server geschoben. Wenn man den Programm startet, werden als erstes alle Daten geladen, also die Zip Datei wird
in einen Ordner entpackt. Wenn man sich einloggt wird es abgefragt ob der angegebene Name existiert. Falls man das Programm schließt werden alle Daten gelöscht so das man nicht schauen kann wie die Daten sind. Man kann es aber auch versteckter machen so das man gar nicht schauen kann wie die Daten sind, habe ich aber nicht gemacht.

Code:

 Spoiler

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#include <FTPEx.au3>
#include <Zip.au3>

;Laden Form 0
#Region ### START Koda GUI section ### Form=
$Form0 = GUICreate("Laden", 326, 59, 263, 241)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Laden, bitte haben sie etwas geduld.", 8, 8, 312, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("© by Sezer Kabak.", 96, 32, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Login Form1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 219, 111, 192, 124)
GUISetBkColor(0x99B4D1)
$Label3 = GUICtrlCreateLabel("Benutzername:", 8, 8, 75, 17)
$Input1 = GUICtrlCreateInput("", 88, 8, 121, 21)
$Label4 = GUICtrlCreateLabel("Passwort:", 8, 32, 50, 17)
$Input2 = GUICtrlCreateInput("", 88, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Einloggen", 8, 56, 203, 25)
$Button2 = GUICtrlCreateButton("Registrieren", 8, 80, 203, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Registrieren Form2
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Registrieren", 234, 166, 193, 126)
GUISetBkColor(0x99B4D1)
$Label5 = GUICtrlCreateLabel("Benutzername:", 8, 8, 75, 17)
$Label6 = GUICtrlCreateLabel("Passwort:", 8, 32, 50, 17)
$Input3 = GUICtrlCreateInput("", 104, 8, 121, 21)
$Input4 = GUICtrlCreateInput("", 104, 32, 121, 21)
$Label7 = GUICtrlCreateLabel("E-mail:", 8, 64, 35, 17)
$Input5 = GUICtrlCreateInput("", 104, 64, 121, 21)
$Label8= GUICtrlCreateLabel("E-mail wiederhollen:", 8, 88, 97, 17)
$Input6 = GUICtrlCreateInput("", 104, 88, 121, 21)
$Button3 = GUICtrlCreateButton("Registrieren", 8, 112, 219, 25)
$Button4 = GUICtrlCreateButton("Zurück", 8, 136, 219, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Eingeloggt Form3
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Eingeloggt", 264, 75, 192, 124)
GUISetBkColor(0x99B4D1)
$Button5= GUICtrlCreateButton("Beenden", 8, 48, 243, 25)
$Label9 = GUICtrlCreateLabel("Erfolgreich eingeloggt!", 8, 8, 248, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Globale Variablen
$FTP_open = _FTP_Open("MeinFTP") ;Ist egal wie es heißt
$FTP_Connect = _FTP_Connect($FTP_open, "DeinNameUndHoster.bplaced.net", "Einlogname", "Passwort")

;Wenn Ordner Benutzer nicht existiert, erstelle Ordner
If Not FileExists(@TempDir & "\Benutzer") Then 
DirCreate(@TempDir & "\Benutzer") 
EndIf

InetGet("http://DeinNameUndHoster.bplaced.net/Benutzer.zip", @TempDir & "\Benutzer\Benutzer.zip", 1) 
_Zip_UnzipAll(@TempDir & "\Benutzer\Benutzer.zip", @TempDir & "\Benutzer", 0)

GUISetState(@SW_HIDE, $Form0)
GUISetState(@SW_SHOW, $Form1)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        FileDelete(@TempDir & "\Benutzer")
        Exit
        
    ;Logge Benutzer ein
    Case $Button1
        Login()
        GUISetState(@SW_HIDE, $Form1)
        GUISetState(@SW_SHOW, $Form3)
        
    ;Schließe Form1, Zeige Form2
    Case $Button2
        GUISetState(@SW_HIDE, $Form1)
        GUISetState(@SW_SHOW, $Form2)
        
    ;Registriere Benutzer
    Case $Button3
        Register()
        MsgBox(64, "Registriert", "Sie haben sich erfolgreich registriert.")
        Exit
        
    ;Schließe Form2, Zeige Form1
    Case $Button4
        GUISetState(@SW_HIDE, $Form2)
        GUISetState(@SW_SHOW, $Form1)
        
    ;Beende Programm
    Case $Button5
        FileDelete(@TempDir & "\Benutzer")
        Exit

EndSwitch
WEnd

Func Register()

$Benutzername = GUICtrlRead($Input3) ;Benutzername
$Passwort = GUICtrlRead($Input4) ;Passwort
$Email1 = GUICtrlRead($Input5) ;Email
$Email2 = GUICtrlRead($Input6) ;Wiederhollte Email

;Wenn Benutzername existiert, MsgBox schicken
If FileExists(@Tempdir & "\Benutzer" & $Benutzername & ".ini") Then
    MsgBox(16, "Fehler", "Der Benutzername existiert schon.")
    Exit
EndIf

;Wenn Email nicht gleich ist wie die wiederhollte
If $Email1 <> $Email2 Then
    MsgBox(16, "Fehler", "Die E-mail Adresse ist nicht gleich wie die wiederhollte.")
    Exit
EndIf

_FileCreate(@TempDir & "\Benutzer" & $Benutzername & ".ini")
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Name", "Name", $Benutzername)
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Passwort", "Passwort", $Passwort)
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Email", "Email", $Email2)

_Zip_AddFile(@TempDir & "\Benutzer\Benutzer.zip", @TempDir & "\Benutzer" & $Benutzername & ".ini", 0)
_FTP_FilePut($FTP_Connect, @TempDir & "\Benutzer\Benutzer.zip", "Benutzer.zip", 0)
_FTP_Close($FTP_open)

EndFunc

Func Login()

$I_Benutzername = GUICtrlRead($Input1) ;Input_Benutzername
$I_Passwort = GUICtrlRead($Input2) ;Input_Passwort

;Wenn $Benutzername nicht existiert
If NOT FileExists(@TempDir & "\Benutzer" & $I_Benutzername & ".ini") Then
    MsgBox(16, "Fehler", "Benutzername falsch angegeben.")
    FileDelete(@TempDir & "\Benutzer")
    Exit
EndIf

$Open = FileOpen(@TempDir & "\Benutzer" & $I_Benutzername & ".ini")
$Passwort = IniRead(@TempDir & "\Benutzer" & $I_Benutzername & ".ini", "Passwort", "Passwort", "NotFound")

;Wenn $Passwort falsch ist
If $I_Passwort <> $Passwort Then
    MsgBox(16, "Fehler", "Passwort falsch angegeben.")
    FileDelete(@TempDir & "\Benutzer")
    Exit
EndIf
FileClose(@TempDir & "\Benutzer" & $I_Benutzername & ".ini")

EndFunc

Mit Freundlichen Grüßen,
sezer0012

[alpines]

In Coding Releases -> Coding Snippets posten und dann hier verlinken, weil es speziell für AutoIt ist: