Guest User

Untitled

a guest
Nov 6th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.28 KB | None | 0 0
  1. Func _React($Handle, $Post_ID, $React = 1)
  2. Local $data
  3. If not IsArray($Handle) Then Return False
  4. If not (($React >= 0 And $React <= 4) or $React = 7 or $React = 8) Then $React = 1
  5. $data = "ft_ent_identifier=" & $Post_ID & "&reaction_type=" & $React & "&client_id=1&session_id=1&source=1&fb_dtsg=" & $Handle[2]
  6. Return _HttpRequest(1, "https://m.facebook.com/ufi/reaction/", $data, $Handle[0])
  7. EndFunc
  8.  
  9. Func _Login($Username, $Password, $iRememberCookie = 1, $sPathSaveCookie = Default)
  10. If Not $sPathSaveCookie Or $sPathSaveCookie = Default Then $sPathSaveCookie = @ScriptDir & "LoginFB.ini"
  11. Local $Ret[3], $Post, $Check, $FB_dtsg
  12. Local $sDataToSend = "email=" & _URIEncode($Username) & "&pass=" & _URIEncode($Password)
  13. Local $enDataToSen = _Crypt_HashData(_Crypt_HashData($sDataToSend, $CALG_MD5), $CALG_MD5)
  14. Local $PostData = IniRead($sPathSaveCookie, $enDataToSen, 'PostData', '')
  15. If $iRememberCookie And $PostData And _TimeStampUNIX() - IniRead($sPathSaveCookie, $enDataToSen, 'Timestamp', 0) < 50000 Then
  16. Local $deData = _Crypt_DecryptData(_Crypt_DecryptData($PostData, $Password, $CALG_AES_256), $Username, $CALG_AES_256)
  17. If @error Then
  18. IniDelete($sPathSaveCookie, $enDataToSen)
  19. Return _Login($Username, $Password, 0, $sPathSaveCookie)
  20. EndIf
  21. Local $aRet = StringSplit(BinaryToString($deData), '±', 2)
  22. Else
  23. $Post = _HttpRequest(1, "https://www.facebook.com/login.php", $sDataToSend, _GetCookie(_HttpRequest(1, "https://www.facebook.com/", "Facebook")))
  24. $Check = StringRegExp($Post, "Set-Cookie: c_user=(.*?);", 3)
  25. If not IsArray($Check) Then Return SetError(1, 0, False)
  26. $Ret[0] = _GetCookie($Post)
  27. $Ret[1] = $Check[0]
  28. Local $FB_dtsg = StringRegExp(_HttpRequest(2, 'https://www.facebook.com', '', $Ret[0]), '\?"fb_dtsg\?" value=\?"(.*?)\?"', 1)
  29. If not IsArray($FB_dtsg) Then Return SetError(2, 0, False)
  30. $PostData = _Crypt_EncryptData(_Crypt_EncryptData($Ret[0] & '±' & $Ret[1] & '±' & $FB_dtsg[0], $Username, $CALG_AES_256), $Password, $CALG_AES_256)
  31. IniWrite($sPathSaveCookie, $enDataToSen, 'Timestamp', _TimeStampUNIX())
  32. IniWrite($sPathSaveCookie, $enDataToSen, 'PostData', $PostData)
  33. Local $Ret[3] = [$Ret[0], $Ret[1], $FB_dtsg[0]]
  34. EndIf
  35. Return $Ret
  36. EndFunc
Add Comment
Please, Sign In to add comment