Возможно ли сделать авторизацию через mysql?
Есть код авторизации
Но он через ini
Добавлено:
Как я понимаю нужно изменить функцию проверки логина и пасса
Есть код авторизации
Код:
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIFFLabel.au3>
#include <ButtonConstants.au3>
#include <GUIListbox.au3>
#include <GuiStatusBar.au3>
#include <String.au3>
#include <Array.au3>
#Region Объявление переменных
$username_checked = 0
$password_checked = 0
$username_startup = ''
$password_startup = ''
#EndRegion Объявление переменных
#Region Блок запоминания - инициализация
$reg_remember_username_confirm = RegRead("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberUsername')
If $reg_remember_username_confirm = 1 Then
$username_checked = 1
$username_startup = RegRead("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'Username')
EndIf
$reg_remember_password_confirm = RegRead("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberPassword')
If $reg_remember_password_confirm = 1 Then
$password_checked = 1
$password_startup = RegRead("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'Password')
$password_startup = _StringEncrypt ( 0, $password_startup,'123321 OoO',1)
EndIf
#EndRegion Блок запоминания - инициализация
#Region ### START Koda GUI section ### Login
$hGUI = GUICreate('Login - FustCup.Net', 250, 130)
GUICtrlCreateLabel("Логин", 50, 20)
$hLogin = GUICtrlCreateInput($username_startup, 90, 16, 120)
GUICtrlCreateLabel("Пароль", 50, 50)
$hPassword = GUICtrlCreateInput($password_startup, 90, 44, 120, 21, $ES_PASSWORD)
$remember_name = GUICtrlCreateCheckbox("Запомнить логин", 50, 70)
$remember_pass = GUICtrlCreateCheckbox("Запомнить пароль", 50,90)
$hButton = GUICtrlCreateButton('Войти', 170, 73, 42,40)
If $username_checked = 1 Then GUICtrlSetState($remember_name, $GUI_CHECKED)
If $password_checked = 1 Then GUICtrlSetState($remember_pass, $GUI_CHECKED)
#EndRegion ### END Koda GUI section ### Login
GUISetState()
While 1
$hLogin1 = GUICtrlRead($hLogin) ; читаем имя и пароль с инпутов
$hPassword1 = GUICtrlRead($hPassword)
If GUICtrlRead($remember_name) = 1 Then ; если галка запомнить имя
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberUsername', 'REG_SZ', '1')
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'Username', 'REG_SZ', $hLogin1)
Else
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberUsername', 'REG_SZ', '0')
EndIf
If GUICtrlRead($remember_pass) = 1 Then ; если галка запомнить пароль
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberPassword', 'REG_SZ', '1')
$user_pass_encoded = _StringEncrypt ( 1, $hPassword1,'123321',1)
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'Password', 'REG_SZ', $user_pass_encoded)
Else
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberPassword', 'REG_SZ', '0')
EndIf
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $hButton
$sLog = GUICtrlRead($hLogin)
$sPass = GUICtrlRead($hPassword)
$password_startup1 = _StringEncrypt ( 1, $sPass,'123321',1)
$iControl = _Validate_Password($sLog, $password_startup1)
If Not @error Then
If $iControl Then
ExitLoop
Else
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberUsername', 'REG_SZ', '0')
RegWrite("HKEY_CURRENT_USER\SOFTWARE\FastCup", 'RememberPassword', 'REG_SZ', '0')
Exit
EndIf
Else
Exit
EndIf
EndSelect
WEnd
GUIDelete($hGUI)
Func _Validate_Password($s_Login, $s_Password)
Local $s_TextFromSite, $s_Url = 'http://domen.ru/file.ini', _
$s_Control_Pass, $s_Section = 'Login_Password'
$s_TextFromSite = InetRead($s_Url, 17)
If @error Then Return SetError(1)
$s_TextFromSite = BinaryToString($s_TextFromSite)
$s_Control_Pass = _IniString_Read($s_TextFromSite, $s_Section, $s_Login, 'Error')
Return SetError(0, 0, $s_Control_Pass = $s_Password)
EndFunc
Но он через ini
Добавлено:
Сообщение автоматически объединено:
Как я понимаю нужно изменить функцию проверки логина и пасса