Register/Login Script [AutoIt]

Sezer

Hallöchen, ich zeige euch meinen selbst geschriebenen AutoIt Register/Login Script vor.

Erklärung:
Wenn man sich registriert speichert er in den Ordner Spieler 2 Textdateien, ein mal Username und Passwort. Natürlich verschlüsselt es auch den Passwort damit es sicherer ist. Wenn man sich einloggt, fragt es ab ob eine Datei existiert mit den Username, und wenn ja fragt es ab ob alles genau gleich ist.

Wenn ihr den Script nicht downloaded sondern einfach kopiert, müsst ihr einen Ordner namens Spieler erstellen.

Script:

Zitat

[autoit]
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Created by sezer0012", 247, 74, 379, 310)
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Login", 128, 32, 99, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Registrieren", 8, 32, 107, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("NEU HIER?", 8, 8, 112, 19)
GUICtrlSetFont(-1, 14, 800, 0, "Tahoma")
$Label2 = GUICtrlCreateLabel("ODER", 136, 8, 59, 19)
GUICtrlSetFont(-1, 14, 800, 0, "Tahoma")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Form2()
Case $Button2
Form3()
[/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]
Func Form2()
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Login", 216, 94, 337, 251)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Username:", 8, 8, 55, 17)
$Label2 = GUICtrlCreateLabel("Geheimcode:", 8, 32, 67, 17)
$Input1 = GUICtrlCreateInput("", 80, 8, 121, 21)
$Input2 = GUICtrlCreateInput("", 80, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Login", 8, 56, 195, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Local $datei1, $datei2, $zeile1, $zeile2
[/autoit] [autoit][/autoit] [autoit]
Local $username3 = GUICtrlRead($Input1)
Local $gehcode4 = GUICtrlRead($Input2)
[/autoit] [autoit][/autoit] [autoit]
Local $zeile1 = FileRead("S" & $username3)
Local $zeile2 = FileRead("P" & $gehcode4)
[/autoit] [autoit][/autoit] [autoit]
$datei1 = FileOpen(@ScriptDir & "\Spieler\Spieler " & $username3 & "\" & "S" & $username3)
$datei2 = FileOpen(@ScriptDir & "\Spieler\Spieler " & $username3 & "\" & "P" & $gehcode4)
[/autoit] [autoit][/autoit] [autoit]
If Not FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Username" & ".txt") Then
MsgBox(16, "Fehler!", "Account existiert nicht.")
Exit
EndIf
[/autoit] [autoit][/autoit] [autoit]
If Not FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Passwort" & ".txt") Then
MsgBox(16, "Fehler!", "Passwort falsch angegeben!")
Exit
EndIf
[/autoit] [autoit][/autoit] [autoit]
If FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Username" & ".txt") And FileExists(@ScriptDir & "\Spieler\" & $username3 & "\Passwort" & ".txt") Then
Form4()
Else
MsgBox(16, "Fehler!", "Es ist ein Unbekannter Fehler aufgetreten!")
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func Form3()
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Registrieren", 397, 54, 302, 218)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Username:", 8, 8, 55, 17)
$Input1 = GUICtrlCreateInput("", 64, 8, 121, 21)
$Label2 = GUICtrlCreateLabel("Passwort:", 192, 8, 67, 17)
$Input2 = GUICtrlCreateInput("", 264, 8, 121, 21)
$Button1 = GUICtrlCreateButton("Registrieren", 64, 32, 323, 17, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Local $Spieler = "\Spieler\"
[/autoit] [autoit][/autoit] [autoit]
$username1 = GUICtrlRead($Input1)
$gehcode2 = GUICtrlRead($Input2)
$lvl = 1
[/autoit] [autoit][/autoit] [autoit]
If FileExists(@ScriptDir & $Spieler & $username1 & "\" & "S" & $username1 & ".txt") Then
MsgBox(16, "Fehler!", "Account existiert schon!" & @CRLF & @CRLF & "Wenn sie ihr Passwort vergessen haben," & @CRLF & "müssen sie sich einen neuen Account" & @CRLF & "mit anderen Daten zulegen.")
Exit
EndIf
[/autoit] [autoit][/autoit] [autoit]
DirCreate(@ScriptDir & "\Spieler\" & $username1)
FileWrite(@ScriptDir & "\Spieler\" & $username1 & "\" & "Username" & ".txt", $username1 & @CRLF)
FileWrite(@ScriptDir & "\Spieler\" & $username1 & "\" & "Passwort" & ".txt", _StringEncrypt(1, $gehcode2, $gehcode2, $lvl))
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Erfolgreich!", "Sie haben sich erfolgreich Registriert," & @CRLF & "loggen sie sich bitte jetzt ein.")
Exit
[/autoit] [autoit][/autoit] [autoit]
$LOG = FileOpen(@ScriptDir & "\Spieler\" & "Spieler " & $username1 & ".txt", 1 )
If $LOG = -1 Then
MsgBox( 0, "Mist", "Datei konnte nicht geöffnet werden" )
Exit
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func Form4()
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("Das wars!", 391, 238, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 385, 233)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Edit1, "Das war das Login - Script.")
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
[/autoit] [autoit][/autoit] [autoit]
EndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd
EndFunc
[/autoit]
Alles anzeigen

VirusTotal: https://www.virustotal.com/de/file/aea8f8…sis/1368267872/
Download - Link: http://www.mediafire.com/?k5g8a7wteb38hjw

Natürlich müsst ihr noch was ändern, also wenn man sich eingeloggt hat soll ja was passieren, das müsst ihr ändern wie ihr es wollt!
Das ist mein erstes richtiges AutoIt Script [Blockierte Grafik: http://www.elitepvpers.com/forum/images/smilies/biggrin.gif]
wenn es bugs gibt bitte melden

Joriktos

Bau doch noch ein

[autoit]

If Not FileExists(@ScriptDir & "\Spieler") Then
DirCreate(@ScriptDir & "\Spieler")
EndIf

[/autoit]

ein, dann muss der Ordner nicht selbst erstellt werden

Außerdem solltest du dir mal diesen Thread anschauen: [Tutorial] Sauber Programmieren
Da stehen tolle Sachen über die Variablenbenennung und über Einrückungen drin

Sezer

Danke für deine Tipps, werde ich im nächsten Script einbauen.

Frage:
Wie findest du den Register/Login Script?

Yjuq

Zitat von "sezer0012"

[...] Das ist mein erstes richtiges AutoIt Script [...]

Kurz und knapp: Für dein aller erstes ist es ein guter Anfang.

Erst einmal Skripttechnisch:
Du brauchst unbedingt einen sauberen Programmierstil! Besonders wenn die Skripte länger werden wirst DU irgendwann den Überblick verlieren. Zudem lässt sich das Skript so wie es jetzt ist wirklich schlecht in ein vorhandenes Projekt einbauen.
Aber auch mal was positives: Wie ich sehe verschlüsselst du das Passwort ja mit _StringEncrypt(). Du verwendest als Passwort das Passwort, was der User sich ausgesucht hatte. Keine schlechte Idee! Vor allem weil dann auch die Passwortabfrage universell möglich ist und ein Passwort zum entschlüsseln nirgens im Skript hinterlegt ist.

Funktionstechnisch:
Es läuft alles wie gewünscht! Habe bisher keine Bug's oder Nebenwirkungen gefunden.

Designtechnisch:
Für dein erstes Skript sieht das Design ja noch gar nicht mal so schlecht aus. Schlicht, einfach und nicht besonders groß auffallend. Wirklich sehr nett!

Fazit: Überarbeite nochmal dein Skript und versuch mal das umzusetzen was chessi in seinen Tutorial erklärt. Joriktos hat es ja in Post #2 bereits verlinkt. Wenn du es dann tatsächlich überarbeitest, lade die neue Version doch dann bitte hier hoch!

€dit:
Was ich gerade gefunden habe: Bewerbung Maker v1
Zählst du das nicht zu deinen geschriebenen Skripten mit?

Sezer

Erstmal danke für diesen Lob oder Tipp :D,
den Bewerbung Maker zähle ich nicht mit weil,
es ein paar Bugs hatte und ich da, wie soll ich sagen, noch nicht so schlau in AutoIt war