Making WebSocket server

[FireFox]

Hi,

I have the project to do an UDF for Google Chrome like the one existing for Mozilla Firefox. If it's done, it will also work for all browsers which supports WebSocket and addons.

I have found an addon which do the WebSocket client, it can connect to a WebSocket server and send messages.

You don't have to install the addon because this website does the job : http://websocket.org/echo.html

In order to use it, fill the Location/URL with : ws://localhost:8080/

So I'm trying to make a WebSocket client. It receives the "Upgrade" request from the client but i'm not able to make a valid upgrade back request response.

I have converted a javascript server code to autoit, and maybe it's not perfectly converted and that would be the reason why it does not work :/

Because I don't know everything about it, I'm maybe wrong somewhere.

Understanding WebSocket : http://blog.new-bamboo.co.uk/2010/6/7/living-on-the-edge-of-the-websocket-protocol

Here is my WebSocket server :

expandcollapse popup

#include <Array.au3>
#include <Crypt.au3>

TCPStartUp()

$iPort = 8001

$hListenSocket = TCPListen("127.0.0.1", $iPort)
If $hListenSocket = -1 Then Exit

While 1
    $hConnectSocket = TCPAccept($hListenSocket)
    If $hConnectSocket <> -1 Then ExitLoop
Wend
Sleep(100)

$sUpgradeRequest = TCPRecv($hConnectSocket, 2048)
ConsoleWrite("+Recv:" & @CrLf & $sUpgradeRequest & @Crlf)

$response = HandshakeHYBI00($sUpgradeRequest)

If IsArray($response) Then
    ;handshake succeeded, open connection
    $sUpgradeResponse = _ArrayToString($response, @CrLf)
    TCPSend($hConnectSocket, $sUpgradeResponse)

    ConsoleWrite(@CrLf & "+Send:" & @CrLf & $sUpgradeResponse & @CrLf)
EndIf

TCPSend($hConnectSocket, "Hello !")

While 1
WEnd

Func HandshakeHYBI00($request)
    ; split up lines and parse
    Local $lines = StringSplit($request, @Cr)

    If StringInStr($lines[6], 'Sec-WebSocket-Key1') And StringInStr($lines[7], 'Sec-WebSocket-Key2') Then
        Local $aKey1Data = StringSplit($lines[6], ": ", 1), $aKey2Data = StringSplit($lines[7], ": ", 1)
        Local $key1 = computeKey($aKey1Data[2]), $key2 = computeKey($aKey2Data[2])
        Local $OriginData = StringSplit($lines[5], ": ", 1)
        Local $data = StringRight($request, 8) ;md5 hash

        ;update hash with all values
        _Crypt_Startup()
        $hash = _Crypt_HashData(bigEndian($key1) & bigEndian($key2) & $data, $CALG_MD5)
        _Crypt_Shutdown()

        Local $response[7] = [ _
            'HTTP/1.1 101 WebSocket Protocol Handshake', _
            'Upgrade: WebSocket', _
            'Connection: Upgrade', _
            'Sec-WebSocket-Origin: ' & $OriginData[2], _
            'Sec-WebSocket-Location: ws://localhost:' & $iPort, _
            '', _
            BinaryToString($hash) _
        ]

        Return $response
    EndIf

    Return false
EndFunc

Func bigEndian($value)
    Local $result[4] = [ _
        Chr(BitShift($value, 24 & 0xFF)), _
        Chr(BitShift($value, 16 & 0xFF)), _
        Chr(BitShift($value, 8 & 0xFF)), _
        Chr($value & 0xFF) _
    ]
    Return _ArrayToString($result, "")
EndFunc

Func computeKey($key)
    Local $spaces, $number
    $spaces = StringSplit($key, " ")
    $number = Int(StringRegExpReplace($key, "\D", ""))

    Return ($number / $spaces[0])EndFunc

Any help will be appreciated

Br, FireFox.

Edited August 22, 2011 by FireFox

[rcmaehl]

Where exactly is the problem? For example, use ConsoleWrite(Increasing numbers here) after each section and tell me where it's getting stuck.

[FireFox]

  On 8/21/2011 at 11:58 PM, 'rcmaehl said:

Where exactly is the problem? For example, use ConsoleWrite(Increasing numbers here) after each section and tell me where it's getting stuck.

The problem is that I'm not able to make a valid server response. I don't know where it does not work in my script, but I think it's from the token :

"the server uses to construct a 16-byte token at the end of its handshake to prove that it has read the client's handshake."

Because the client side sticks at "Connecting..." whenever I send a handshake with the server (which is not valid)

Br, FireFox.

Edited August 22, 2011 by FireFox

[FireFox]

bump

[mLipok]

Hello @FireFox

Do you have any progress ?

 

mLipok

 

[FireFox]

  On 5/7/2015 at 11:00 PM, mLipok said:

Do you have any progress ?

​Hi,

No unfortunately I've dropped the project. But if anyone knows how to deal with websocket it would be appreciated since I could also use it with the ChromeCast.

Now there's a Chrome UDF which I think does the job.

Br, FireFox.

Edited May 17, 2015 by FireFox