Авторизация через MySQL

#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