Авторизация на сайтах

#include <IE.au3>

$sLogin = 'Login'
$sPass = 'Pass'
$sUrl = 'http://mlgame.ru/'

$oIE = _IECreate($sUrl)
$oLogin = _IEGetObjById($oIE, 'username')
$oPass = _IEGetObjByName($oIE, 'password')
$oCheck = _IEGetObjById($oIE, 'rememberMe')
$oButton = _IEGetObjById($oIE, 'loginButton')

_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPass, $sPass)
_IEAction($oCheck, 'click')
_IEAction($oButton, 'click')
_IELoadWait($oIE)

#include <IE.au3>

;...
$oInputs = _IETagNameGetCollection ($oForm, 'input');$oForm получен ранее
For $oInput In $oInputs
	If $oInput.type = 'submit' And $oInput.value = 'Войти' Then
		_IEAction($oInput, 'click')
		_IELoadWait($oIE)
		ExitLoop
	EndIf
Next
;...

#include <Crypt.au3>
Login('OgoГоша', 'DcPlusplus123')
Exit

Func Login($vUserName, $vUserPass)
	Local $vSite = 'http://autoit-script.ru/'

	;Получаем HTML код
	Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
	$oHTTP.Open("GET", $vSite)
	$oHTTP.Send()

	Local $vData = $oHTTP.Responsetext

	;Достаем регулярными выражениями sid. Он понадобиться для шифрования.
	Local $vTemp = StringRegExp($vData, 'hashLoginPassword.*?([[:xdigit:]]{32})', 1)
	If Not IsArray($vTemp) Then Return SetError(1, 0, 0) ;Регулярка не сработала. Нет смысла продолжать, поэтому выходим.
	Local $vSid = $vTemp[0] ;Получили sid

	;Достаем регулярными выражениями PHPSESSID. Для гостей он выдается временный.
	$vTemp = StringRegExp($vData, 'PHPSESSID=(\w+)', 1)
	If Not IsArray($vTemp) Then Return SetError(2, 0, 0) ;Регулярка не сработала. Нет смысла продолжать, поэтому выходим.
	Local $vSesSid = $vTemp[0] ;Получили PHPSESSID.

	;Т.к актуальный пароль на сервер не передается он хешируется специальной функцией.
	Local $vHash = sha1(sha1(strtolower(_Encoding_ANSIToUTF8($vUserName)) & _Encoding_ANSIToUTF8($vUserPass)) & $vSid);

	;Получили хэш-пароль. Подготовим все данные для отправки.
	Local $vPostData = 'user=' & $vUserName & '&passwrd=&cookielength=-1&hash_passwrd=' & $vHash

	;Отправляем POST запрос на авторизацию
	$oHTTP.Open("POST", $vSite & 'index.php?PHPSESSID=' & $vSesSid & '&action=login2', False)
	$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
	$oHTTP.Send($vPostData)

	;Получаем главную страницу
	$oHTTP.Open("GET", $vSite)
	$oHTTP.Send()
	Local $HTMLSource = $oHTTP.Responsetext

	Local $aName = StringRegExp($HTMLSource, '<li id="name".*?</li>', 1)
	If Not IsArray($aName) Then
		ConsoleWrite($HTMLSource & @LF)
	Else
		ConsoleWrite(StringRegExpReplace($aName[0], '<.*?>', '') & @LF)
	EndIf
EndFunc   ;==>Login

Func _Encoding_ANSIToUTF8($sString)
	Return BinaryToString(StringToBinary($sString, 4))
EndFunc   ;==>_Encoding_ANSIToUTF8

Func sha1($vData) ;//PHP стиль (изменено stl)
	Return StringLower(StringSplit(_Crypt_HashData($vData, $CALG_SHA1), 2))
EndFunc   ;==>sha1

Func strtolower($sData)
	If Not $sData Or StringIsLower($sData) Then Return $sData
	Local $vDatas = StringSplit($sData, '', 2), $vRet
	For $vData In $vDatas
		If StringRegExp($vData, '[A-Z]') Then
			$vRet &= StringLower($vData)
		Else
			$vRet &= $vData
		EndIf
	Next
	Return $vRet
EndFunc   ;==>strtolower

$url="http://mols.roszdravnadzor.ru/?type=logon&redirect_params="
$login="login"
$pass="password"

#include<IE.au3>
$ie=_IECreate($url)
$logEl=_IEGetObjById($ie,"login")
_IEFormElementSetValue($logEl,$login)
$passEl=_IEGetObjById($ie,"password")
_IEFormElementSetValue($passEl,$pass)

_IELinkClickByText($ie,"Войти в систему")

$oInputs = _IETagNameGetCollection($oIE, "input")
$oForm = _IEFormGetObjByName($oInputs, "hash")
$hash = _IEFormElementGetValue($oForm)
For $oInput In $oInputs
    If $oInput.type = "hidden" And $oInput.value = $hash Then
        _IEAction($oInput, "click")
        _IELoadWait($oIE)
        ExitLoop
    EndIf
Next

$oNodes = $oInput.attributes
For $oNode In $oNodes
$sValue = $oNode.nodeValue
If Not $sValue Then ContinueLoop

$oForm = _IEFormGetCollection($oIE, 0)
For $oForm In $oForms
    If $oForm.GetAttribute("action") == "/vklogin" Then
	  $oButton = _IETagNameGetCollection($oForm, "Button", 0)
	  _IEAction($oButton, "click")
	  _IELoadWait($oIE)
   EndIf

#include <IE.au3>

Local $sUrl = 'http://www.vkway.com/auth'

$oIE = _IECreate($sUrl)
$oForms = _IEFormGetCollection($oIE)
For $oForm In $oForms
    If $oForm.GetAttribute('action') == '/vklogin' Then
		_IEFormSubmit($oForm)
		ConsoleWrite(@error & @LF)
        ExitLoop
    EndIf
Next