Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function GetLogin(SentName$,SentPW$)
- TCP = OpenTCPStream(HTTPServerAdress$, 80)
- ;HTTP GET
- WriteLine TCP, "GET /login/check.php?name="+SentName$+"&pass="+SentPW$+" HTTP/1.0"
- WriteLine TCP, "Host: siriusmmo.si.ohost.de"
- WriteLine TCP, "Connection: Close"
- ; WriteLine TCP, ""
- readacc$=""
- While Not Eof(TCP)
- DebugLog ReadLine$(TCP)
- Wend
- CloseTCPStream TCP
- End Function
- (Ends up in)
- HTTP/1.1 200 OK
- Set-Cookie: notabotxxx=19a32bc1df78c99b44982472dadfcc20; expires=Sun, 25-Mar-2012 09:19:22 GMT; path=/; domain=siriusmmo.si.ohost.de
- Content-Length: 784
- Date: Sun, 25 Mar 2012 08:19:22 GMT
- Connection: close
- Server: Apache/2.2.16 (Debian) mod_perl/2.0.4 Perl/v5.10.1
- Content-Type: text/html; charset=ISO-8859-1
- (Instead of Echoing)
- 1 or 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement