soeyd
Новичок
- Сообщения
- 2
- Репутация
- 0
Пожалуйста со всеми души прошу помогите с авторизацией на сайте мурклуб
Код:
FUNC _GET_COOKIES($LOGIN, $PASSWORD)
$DATA= ""
$CONTENT= "login="& _INETEXPLORERCAPABLE($LOGIN)& "&password="& _INETEXPLORERCAPABLE($PASSWORD)& "&hop=1"
$DATA&= "POST /index.php HTTP/1.1"& @CRLF
$DATA&= "Host: murclub.ru"& @CRLF
$DATA&= "Content-Length: "& STRINGLEN($CONTENT)& @CRLF
$DATA&= "Content-Type: application/x-www-form-urlencoded"& @CRLF
$DATA&= ""& @CRLF
$DATA&= $CONTENT& @CRLF
$SOCKET= TCPCONNECT(TCPNAMETOIP("murclub.ru"), 80)
TCPSEND($SOCKET, $DATA& @CRLF)
$TCPRECV= BINARYTOSTRING(TCPRECV($SOCKET, 1024, 1), 4)
$MURSESSION= STRINGREGEXP($TCPRECV, "MURSESSION=(.*?);", 3)
$MUR_MAIL= STRINGREGEXP($TCPRECV, "mur_mail=(.*?);", 3)
$MUR_PASS= STRINGREGEXP($TCPRECV, "mur_pass=(.*?);", 3)
$NOTMY= STRINGREGEXP($TCPRECV, "notmy=(.*?);", 3)
IF ISARRAY($MURSESSION) AND ISARRAY($MUR_MAIL) AND ISARRAY($MUR_PASS) AND ISARRAY($NOTMY) THEN
DIM $ARRAY[4]
$ARRAY[0]= $MURSESSION[0]
$ARRAY[1]= $MUR_MAIL[0]
$ARRAY[2]= $MUR_PASS[0]
$ARRAY[3]= $NOTMY[0]
RETURN $ARRAY
ELSE
SETERROR(1)
RETURN 0
ENDIF
ENDFUNC
FUNC _GET_INFO($MURSESSION, $MUR_MAIL, $MUR_PASS, $NOTMY, $METOD= "SALARY")
$DATA= ""
$CONTENT= "query="& $METOD
$DATA&= "POST /xmls/xml_proxy.php HTTP/1.1"& @CRLF
$DATA&= "Host: srv2.murclub.ru"& @CRLF
$DATA&= "Cookie: MURSESSION="& $MURSESSION& "; mur_mail="& $MUR_MAIL& "; mur_pass="& $MUR_PASS& "; notmy="& $NOTMY& @CRLF
$DATA&= "Content-Length: "& STRINGLEN($CONTENT)& @CRLF
$DATA&= "Content-type: application/x-www-form-urlencoded"& @CRLF
$DATA&= @CRLF
$DATA&= $CONTENT& @CRLF
$SOCKET= TCPCONNECT(TCPNAMETOIP("srv2.murclub.ru"), 80)
TCPSEND($SOCKET, $DATA& @CRLF)
IF @ERROR THEN SETERROR(1)
$TCPRECV= ""
$TIMER= TIMERINIT()
WHILE 1
$TCPRECV&= BINARYTOSTRING(TCPRECV($SOCKET, 1024, 1), 4)
IF @ERROR OR TIMERDIFF($TIMER)> $ERRORSLEEP THEN EXITLOOP
WEND
RETURN $TCPRECV
ENDFUNC
