[Release] Login-System mit MySql Datenbank

Page 2 of 2

01/02/2013 18:59 !Letin!#16

Kannst du mir sagen was bei den usern "Admin" und "member" die langen Zahlen sind

01/02/2013 19:14 omer36#17

Quote:

Originally Posted by !Letin!

Kannst du mir sagen was bei den usern "Admin" und "member" die langen Zahlen sind

passw�rter

€also verschl�sselt mit md5.

admin -> pw admin (md5)
member -> pw member (md5)

[Only registered and activated users can see links. Click Here To Register...]

01/03/2013 14:58 isaias#18

hm... ich habe selber mal ein login-system gemacht aber ohne mysql! mit mysql ist das halt einfach schwieriger und unsicher!

Spoiler

Code:

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

 AutoIt Version: 3.3.8.0
 Author:         isaias/die0unddie1

 Script Function:
		LoginVorlage

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

#include <File.au3>
#include <string.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Login = GUICreate("Login", 212, 114, 192, 124)
$input1 = GUICtrlCreateInput("", 64, 16, 121, 21)
$Label1 = GUICtrlCreateLabel("Name", 8, 16, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 8, 48, 50, 17)
$input2 = GUICtrlCreateInput("", 64, 48, 121, 21,$ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Login", 24, 80, 75, 25)
$Button2 = GUICtrlCreateButton("Registrieren", 120, 80, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
		$FilereadC=FileRead(@ScriptDir&"\Data")
		$SEde=_StringEncrypt(0,$FilereadC,123,3)
		_FileCreate(@ScriptDir&"\Data2")
		FileWrite(@ScriptDir&"\Data2",$SEde)
		$iniread=IniRead(@ScriptDir&"\Data2",GUICtrlRead($input1),GUICtrlRead($input2),"Notfound")
		FileDelete(@ScriptDir&"\Data2")
		If $iniread="Notfound" Then
			MsgBox(0,"Fehler","username oder passwort sind falsch")
		Else
			MsgBox(0,"Erfolg","sie haben sich erfolgreich eingeloggt")
		EndIf
		Case $Button2
			$RegIRC=FileRead(@ScriptDir&"\Data")
			$RegSEde=_StringEncrypt(0,$RegIRC,123,3)
			_FileCreate(@ScriptDir&"\Data2")
			FileWrite(@ScriptDir&"\Data2",$RegSEde)
			IniWrite(@ScriptDir&"\Data2",GUICtrlRead($input1),GUICtrlRead($input2),1)
			FileDelete(@ScriptDir&"\Data")
			$RegIRde=FileRead(@ScriptDir&"\Data2")
			_FileCreate(@ScriptDir&"\Data")
			$RedSEec=_StringEncrypt(1,$RegIRde,123,3)
			FileWrite(@ScriptDir&"\Data",$RedSEec)
			FileDelete(@ScriptDir&"\Data2")
EndSwitch
WEnd

01/03/2013 17:09 butter123#19

dein skript ist nur lokal auf einem pc, mit mysql kannste irgendwo ne datenbank mit den ganzen benutzern haben

01/04/2013 14:38 Lawliet#20

Quote:

Originally Posted by isaias

hm... ich habe selber mal ein login-system gemacht aber ohne mysql! mit mysql ist das halt einfach schwieriger und unsicher!

Spoiler

Code:

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

 AutoIt Version: 3.3.8.0
 Author:         isaias/die0unddie1

 Script Function:
		LoginVorlage

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

#include <File.au3>
#include <string.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Login = GUICreate("Login", 212, 114, 192, 124)
$input1 = GUICtrlCreateInput("", 64, 16, 121, 21)
$Label1 = GUICtrlCreateLabel("Name", 8, 16, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 8, 48, 50, 17)
$input2 = GUICtrlCreateInput("", 64, 48, 121, 21,$ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Login", 24, 80, 75, 25)
$Button2 = GUICtrlCreateButton("Registrieren", 120, 80, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
		$FilereadC=FileRead(@ScriptDir&"\Data")
		$SEde=_StringEncrypt(0,$FilereadC,123,3)
		_FileCreate(@ScriptDir&"\Data2")
		FileWrite(@ScriptDir&"\Data2",$SEde)
		$iniread=IniRead(@ScriptDir&"\Data2",GUICtrlRead($input1),GUICtrlRead($input2),"Notfound")
		FileDelete(@ScriptDir&"\Data2")
		If $iniread="Notfound" Then
			MsgBox(0,"Fehler","username oder passwort sind falsch")
		Else
			MsgBox(0,"Erfolg","sie haben sich erfolgreich eingeloggt")
		EndIf
		Case $Button2
			$RegIRC=FileRead(@ScriptDir&"\Data")
			$RegSEde=_StringEncrypt(0,$RegIRC,123,3)
			_FileCreate(@ScriptDir&"\Data2")
			FileWrite(@ScriptDir&"\Data2",$RegSEde)
			IniWrite(@ScriptDir&"\Data2",GUICtrlRead($input1),GUICtrlRead($input2),1)
			FileDelete(@ScriptDir&"\Data")
			$RegIRde=FileRead(@ScriptDir&"\Data2")
			_FileCreate(@ScriptDir&"\Data")
			$RedSEec=_StringEncrypt(1,$RegIRde,123,3)
			FileWrite(@ScriptDir&"\Data",$RedSEec)
			FileDelete(@ScriptDir&"\Data2")
EndSwitch
WEnd

Totaler Quatsch ^^ Mit deinem Script ist es nochmal n gutes St�ck unsicherer.
Nicht nur Autoit kann Ini's lesen :p

Page 2 of 2