paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* RFC states that client must use mask: enforce mask on connect

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-27 09:43:40 +01:00
parent 5469199726
commit a5f49c1cef
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-web/src/websocket/fpwebsocketclient.pp
View File

@ -294,6 +294,9 @@ begin
FConnection:=CreateClientConnection(FTransport);
FConnection.OnMessageReceived:=@MessageReceived;
FConnection.OnControl:=@ControlReceived;
// RFC states we MUST use a mask.
if OutGoingFrameMask=0 then
OutGoingFrameMask:=1+Random(MaxInt-1);
FConnection.OutgoingFrameMask:=Self.OutGoingFrameMask;
if UseSSL then
FSocket.Connect;
@ -389,7 +392,7 @@ end;
Function TCustomWebsocketClient.CheckHandShakeResponse(aHeaders : TStrings) : Boolean;
Var
Var
K : String;
{%H-}hash : TSHA1Digest;
B : TBytes;