Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Func _React($Handle, $Post_ID, $React = 1)
- Local $data
- If not IsArray($Handle) Then Return False
- If not (($React >= 0 And $React <= 4) or $React = 7 or $React = 8) Then $React = 1
- $data = "ft_ent_identifier=" & $Post_ID & "&reaction_type=" & $React & "&client_id=1&session_id=1&source=1&fb_dtsg=" & $Handle[2]
- Return _HttpRequest(1, "https://m.facebook.com/ufi/reaction/", $data, $Handle[0])
- EndFunc
- Func _Login($Username, $Password, $iRememberCookie = 1, $sPathSaveCookie = Default)
- If Not $sPathSaveCookie Or $sPathSaveCookie = Default Then $sPathSaveCookie = @ScriptDir & "LoginFB.ini"
- Local $Ret[3], $Post, $Check, $FB_dtsg
- Local $sDataToSend = "email=" & _URIEncode($Username) & "&pass=" & _URIEncode($Password)
- Local $enDataToSen = _Crypt_HashData(_Crypt_HashData($sDataToSend, $CALG_MD5), $CALG_MD5)
- Local $PostData = IniRead($sPathSaveCookie, $enDataToSen, 'PostData', '')
- If $iRememberCookie And $PostData And _TimeStampUNIX() - IniRead($sPathSaveCookie, $enDataToSen, 'Timestamp', 0) < 50000 Then
- Local $deData = _Crypt_DecryptData(_Crypt_DecryptData($PostData, $Password, $CALG_AES_256), $Username, $CALG_AES_256)
- If @error Then
- IniDelete($sPathSaveCookie, $enDataToSen)
- Return _Login($Username, $Password, 0, $sPathSaveCookie)
- EndIf
- Local $aRet = StringSplit(BinaryToString($deData), '±', 2)
- Else
- $Post = _HttpRequest(1, "https://www.facebook.com/login.php", $sDataToSend, _GetCookie(_HttpRequest(1, "https://www.facebook.com/", "Facebook")))
- $Check = StringRegExp($Post, "Set-Cookie: c_user=(.*?);", 3)
- If not IsArray($Check) Then Return SetError(1, 0, False)
- $Ret[0] = _GetCookie($Post)
- $Ret[1] = $Check[0]
- Local $FB_dtsg = StringRegExp(_HttpRequest(2, 'https://www.facebook.com', '', $Ret[0]), '\?"fb_dtsg\?" value=\?"(.*?)\?"', 1)
- If not IsArray($FB_dtsg) Then Return SetError(2, 0, False)
- $PostData = _Crypt_EncryptData(_Crypt_EncryptData($Ret[0] & '±' & $Ret[1] & '±' & $FB_dtsg[0], $Username, $CALG_AES_256), $Password, $CALG_AES_256)
- IniWrite($sPathSaveCookie, $enDataToSen, 'Timestamp', _TimeStampUNIX())
- IniWrite($sPathSaveCookie, $enDataToSen, 'PostData', $PostData)
- Local $Ret[3] = [$Ret[0], $Ret[1], $FB_dtsg[0]]
- EndIf
- Return $Ret
- EndFunc
Add Comment
Please, Sign In to add comment