Autoit Mit Login und Registration !

WORLD-KILLER

Hallo leute !

Ich hab mich mal vorm Pc geschmissen und versucht, ein script zu basteln,
wo man ein login bzw. eine registration benötigt....
also hier mal der code:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Users\Michaela\Desktop\REGI_GUI\REGI_GUI.kxf
$Form1 = GUICreate("Registration | Login", 434, 307, -1, -1)
$Tab1 = GUICtrlCreateTab(8, 8, 417, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Registration")
$Label2 = GUICtrlCreateLabel("Registration", 24, 40, 175, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("INFO: Falls du versuchst einen zweiten Account zu erstellen, ", 16, 240, 391, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel(" sowird der erste gelöscht.", 16, 264, 396, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label7 = GUICtrlCreateLabel("Gewünschter Benutzername:", 32, 128, 147, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label8 = GUICtrlCreateLabel("Gewünschtes Passwort :", 32, 160, 153, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input1 = GUICtrlCreateInput("", 192, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input2 = GUICtrlCreateInput("", 192, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button1 = GUICtrlCreateButton("Jetzt registrieren !", 192, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$TabSheet2 = GUICtrlCreateTabItem("Login")
$Label1 = GUICtrlCreateLabel("Login", 24, 40, 82, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("INFO: Falls du deine Accountdaten vergssen hast,", 16, 240, 283, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label6 = GUICtrlCreateLabel("kannst du dir einfach einen neuen erstellen.", 16, 264, 244, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label9 = GUICtrlCreateLabel("Benutzername:", 32, 128, 77, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label10 = GUICtrlCreateLabel(" Passwort :", 24, 160, 86, 17)
$Input3 = GUICtrlCreateInput("", 120, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input4 = GUICtrlCreateInput("", 120, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button2 = GUICtrlCreateButton("Jetzt einloggen !", 120, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
GUICtrlCreateTabItem("")
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
$reader01 = GUICtrlRead ( $input1 )
$reader02 = GUICtrlRead ( $input2 )
FileDelete ("no_func_01.loggui" )
FileDelete ("no_func_02.loggui" )
FileWrite ( "no_func_01.loggui" , $reader01 )
FileWrite ( "no_func_02.loggui" , $reader02 )
MsgBox (0, "INFORMATION" , "Du hast deinen Accout erfolgreich erstellt ! Du kannst dich nun beim Login einloggen . " )
Case $Button2
$reader03 = GUICtrlRead ( $input3 )
$reader04 = GUICtrlRead ( $input4 )
$reader05 = FileRead ( "no_func_01.loggui" )
$reader06 = FileRead ( "no_func_02.loggui" )
If $reader03 = $reader05 And $reader04 = $reader06 Then
MsgBox (0, "INFO" , "Sie haben das richtige Passwort und den richtigen Benutzernamen eingegeben.")
Else
MsgBox (0, "INFO" , "Sie haben das falsche Passwort / den falschen Benutzernamen eingegeben. Versuchen sie sich erneut einzuloggen oder einen neuen Account zu erstellen.")
EndIf
EndSwitch
WEnd

[/autoit]

so... also bei der registration versucht er zuerst 2 dateien zu löschen (falls man alte acc. daten vergessen
hatt, kann man sich einen neuen erstellen sowird der alte gelöscht egal ob vorhanden oder nich)
so dann erstellt der 2 dateien mit der endung .loggui
nagut auf jedenfall is eine datei der benutzername und eine das passwort...
dann kann mann ja wenn man will hier noch ein befehl dazu machen wenn mann will dass sih falls passwort richtig die gui schließt und eine
"hauptgui" öffnet nagut das könnte so aussehen:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Users\Michaela\Desktop\REGI_GUI\REGI_GUI.kxf
$Form1 = GUICreate("Registration | Login", 434, 307, -1, -1)
$Tab1 = GUICtrlCreateTab(8, 8, 417, 289)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Registration")
$Label2 = GUICtrlCreateLabel("Registration", 24, 40, 175, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("INFO: Falls du versuchst einen zweiten Account zu erstellen, ", 16, 240, 391, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel(" sowird der erste gelöscht.", 16, 264, 396, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label7 = GUICtrlCreateLabel("Gewünschter Benutzername:", 32, 128, 147, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label8 = GUICtrlCreateLabel("Gewünschtes Passwort :", 32, 160, 153, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input1 = GUICtrlCreateInput("", 192, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input2 = GUICtrlCreateInput("", 192, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button1 = GUICtrlCreateButton("Jetzt registrieren !", 192, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$TabSheet2 = GUICtrlCreateTabItem("Login")
$Label1 = GUICtrlCreateLabel("Login", 24, 40, 82, 42)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("INFO: Falls du deine Accountdaten vergssen hast,", 16, 240, 283, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Label6 = GUICtrlCreateLabel("kannst du dir einfach einen neuen erstellen.", 16, 264, 244, 19)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
$Label9 = GUICtrlCreateLabel("Benutzername:", 32, 128, 77, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Label10 = GUICtrlCreateLabel(" Passwort :", 24, 160, 86, 17)
$Input3 = GUICtrlCreateInput("", 120, 128, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Input4 = GUICtrlCreateInput("", 120, 160, 121, 22)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
$Button2 = GUICtrlCreateButton("Jetzt einloggen !", 120, 192, 123, 25, 0)
GUICtrlSetFont(-1, 9, 400, 0, "arial")
GUICtrlCreateTabItem("")
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
$reader01 = GUICtrlRead ( $input1 )
$reader02 = GUICtrlRead ( $input2 )
FileDelete ("no_func_01.loggui" )
FileDelete ("no_func_02.loggui" )
FileWrite ( "no_func_01.loggui" , $reader01 )
FileWrite ( "no_func_02.loggui" , $reader02 )
MsgBox (0, "INFORMATION" , "Du hast deinen Accout erfolgreich erstellt ! Du kannst dich nun beim Login einloggen . " )
Case $Button2
$reader03 = GUICtrlRead ( $input3 )
$reader04 = GUICtrlRead ( $input4 )
$reader05 = FileRead ( "no_func_01.loggui" )
$reader06 = FileRead ( "no_func_02.loggui" )
If $reader03 = $reader05 And $reader04 = $reader06 Then
MsgBox (0, "INFO" , "Sie haben das richtige Passwort und den richtigen Benutzernamen eingegeben.")
ShellExecute ("msic_player.exe")
Exit
Else
MsgBox (0, "INFO" , "Sie haben das falsche Passwort / den falschen Benutzernamen eingegeben. Versuchen sie sich erneut einzuloggen oder einen neuen Account zu erstellen.")
EndIf
EndSwitch
WEnd

[/autoit]

oder ihr könnt ein script noch dazu machen... was ihr wollt und zu registration / login kann man per tab auswahl oben wechseln.
ich hoffe ihr habt verwendung dafür !
ich habe als anhang die .au3 datei und die .kxf datei vom koda form designer in einem zip ordner angehängt.

**Xorianator**

Ganz nett, aber eben untauglich, da man die .loggui in .txt umbenennt und alles da hat

Aber ich finde es sieht cuhl aus

Ineluki

Eine Datei mit der einer "unbekanten" Endung zu versehen bringt NICHTS. Das einzige was wenigstens etwas bringt, ist verschlüsseln.

WORLD-KILLER

ja.. danke... das ist zwar blöd... aber es fällt nicht so schnell auf wenn man das ganze in nen ordner macht, wo sehr viele scrips drinnen sind und nach dem login eine
gui öffnet wo man jedes script einzeln öffnen kann... so wie bei mir
naja cool sihts auf alle fälle aus

nochwas:

ihr könnt mit dem zeugs anfangen was ihr wollt ich reg mich nicht auf^^
viel spass mit dem ding !

edit:

an verschlüsseln hab ich auch gedacht... aber irgendwie hab ich mich nicht ausgekannt^^

Schrubber

Ich würds ggf. nicht in ein unbekanntes Format setzen sondern vll in eine .wav (vorrausgesetzt, es sind andere vorhanden)

Ineluki

Schau dir mal diese Befehle an:

[autoit]

#include <Crypt.au3>
#include <String.au3>
_Crypt_EncryptData
_Crypt_EncryptFile
_Crypt_HashData
_StringEncrypt

[/autoit]

WORLD-KILLER

also die befehle verschlüsseln des?

volle

ja wordkiller^^
und noch was , es ist eigentlich unnütz mit dem registrieren^^ und dem einloggen ;D
ich würd das alles mit einer datenbank in bezug nehmen sonst hat es irgendwie kein sinn

aber sonst , GUI sieht ganz nett aus uns es funktioniert^^

**Sprenger120**

Nicht ganz. _Crypt_HashData erstellt wie der Befehl schon sagt einen Hash. Und aus diesem Hash kann man die Daten nich wieder zurückbringen.

Mann kann damit aber sehr gut prüfen ob eine Datei exakt den gleichen inhalt hat wie eine andere. Eine chance das 2 Unterschiedliche Zeichenketten den gleichen Hash haben ist ziemlich gering.

Ineluki

Zitat von Sprenger120

Nicht ganz. _Crypt_HashData erstellt wie der Befehl schon sagt einen Hash. Und aus diesem Hash kann man die Daten nich wieder zurückbringen.

Daher sehr sicher. Zum prüfen kann man ja dann einfach den Hash vom eingegbenen Wert mit dem Hash des richtigen Passworts vergleichen

bbm1995

hab mal übersprungen.
die dateien mit einem Beliebigen .* bringt nix.
ich würde sie in *.EXE umbenennen, weil windows die Exe-Dateien nicht mit Editor öffnen kann.
(mit Notepad++ kann jede Dateiendung geöffnet werden...)

**Sprenger120**

Zitat von bbm1995

ich würde sie in *.EXE umbenennen, weil windows die Exe-Dateien nicht mit Editor öffnen kann.

Doch. Einfach in txt umbenennen und Fertig. Das mit den Dateiendungen wird nix bringen weil mann das ganz einfach rausbekommt.