Read HTTP request from a SOCKET in perl -

-

i have problem reading socket in perl.

the story goes : 1.1.1.1 server 2.2.2.2 other server opened ssh tunnel on 1.1.1.1 3.3.3.3 ip mozilla firefox

i have ssh tunnel opened on port 12345 , tcp.pl "server" oppenning on port 2000 , forwarding raw traffic port 12345 gets again.

i have oppened mozilla firefox , put @ socks5 1.1.1.1:2000 (the tcp.pl server), , when surf web, surf 2.2.2.2's ip, witch good.

i wrote someware in code print sockets tcp.pl getting command :

`print $buffer;`

the problem can read http headers , see stuff 

get / http/1.1 host: site.com user-agent: mozilla/5.0 (windows nt 6.1; wow64; rv:29.0) gecko/20100101 firefox/29.0 accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 accept-language: en-us,en;q=0.5 accept-encoding: gzip, deflate cookie: _ga=ga1.2.1235518067.1410367631 connection: keep-alive

witch ok, don't quite http content , mean don't html code. part of html code this

:g�� ��� <-- wired characters <html>...</html> ���lop� <-- wired characters

and get

puttyputtyputtyputtyputtyputtyputtyputtyputtyputtyputty

and beep sound.

the code (tcp.pl)

an infinite loop reads reads , reads ....

while (1)  {     $socket ($ioset->can_read)      {         if($socket == $server)          {             new_connection($server);         }         else          {             next unless exists $socket_map{$socket};             $remote = $socket_map{$socket};             $buffer;              # data main port             $read = $socket->sysread($buffer, 4096);             if ($read)              {                 print $read; # gives number 43243 5436346456 34654643464                 print $buffer; # allways gives http headers, , token distorted, showing characters ":g�� ������lop�" , chunks of html code time time                 # output "puttyputtyputtyputtyputtyputtyputtyputtyputtyputtyputty" , hearing beeping sounds                  # forward data other port (in browser see no differance)                 $remote->syswrite($buffer);             }             else {                 close_connection($socket);             }         }     } }

i believe because fact don't order packets properly, mean have read sockets , order ack , seq flags, read it.

now main quession, how read html content is?

thank you.


Comments

Post a Comment

Popular posts from this blog

c# - HttpResponseMessage System.InvalidOperationException -

-
quite simple problem i've got easy solve reckon brains. it's tried different queries on google , nothing popped hey that's why here. here error: system.invalidoperationexception basically error thrown on piece of code here string test = response.content.headers.getvalues("location").firstordefault(); location in fiddler looks this: location: https://www.redirecturlishere.com/blah here entire function: private async task<string> getrequest() { //httpcontent postcontent = new stringcontent(post, encoding.ascii, "application/x-www-form-urlencoded"); using (httpresponsemessage response = await httpclient.getasync( "http://www.cant-share-url.com")) { using (httpcontent content = response.content) { string test = response.content.headers.getvalues("location").firstordefault(); } } return ""; ...
Read more

sql - Postgresql error: "failed to find conversion function from unknown to text" -

-
i have following postgresql query: ( select '201405mase04' testid, count(*) totq, count(distinct case when se1 = '' null else se1 end) totse, case when count(*)=0 7 else count(distinct rc) end totrc eivtestitems ti, eivtests t ti.test_id = t.test_id , t.test_type_id = 1 , t.test_id= '201405mase04' , ti.omit <> 1 ), b ( select '201405mase04' testid, count(*) totq eivtestitems ti, eivtests t ti.test_id = t.test_id , t.test_type_id = 1 , t.test_id= '201405mase04' , ti.omit = 1 ), c ( select '201405mase04' testid, count(*) totq eivtestitems ti, eivtests t ti.test_id = t.test_id , t.test_type_id = 1 , t.test_id= '201405mase04' , ti....
Read more