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

Added processing of reserved opcodes.

Browse Source
This commit is contained in:
Yuri Silver 2022-01-07 16:37:29 +03:00
parent 11ac750e87
commit f3a0bdd232
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-web/src/websocket/fpwebsocket.pp
View File

@ -40,6 +40,7 @@ Const
DefaultWebSocketVersion = 13;
// Opcodes
FlagReserved = $F;
FlagContinuation = $0;
FlagText = $1;
FlagBinary = $2;
@ -76,7 +77,7 @@ type
EWebSocket = Class(Exception);
EWSHandShake = class(EWebSocket);
TFrameType = (ftContinuation,ftText,ftBinary,ftClose,ftPing,ftPong);
TFrameType = (ftContinuation,ftText,ftBinary,ftClose,ftPing,ftPong,ftReserved);
TFrameTypes = Set of TFrameType;
@ -484,7 +485,7 @@ uses strutils, sha1,base64;
function TFrameTypeHelper.GetAsFlag: Byte;
Const
Flags : Array[TFrameType] of byte = (FlagContinuation,FlagText,FlagBinary,FlagClose,FlagPing,FlagPong);
Flags : Array[TFrameType] of byte = (FlagContinuation,FlagText,FlagBinary,FlagClose,FlagPing,FlagPong,FlagReserved);
begin
Result:=Flags[Self];
@ -500,7 +501,8 @@ begin
FlagPing : Self:=ftPing;
FlagPong : Self:=ftPong;
else
Raise EConvertError.CreateFmt(SErrInvalidFrameType,[aValue]);
Self:=ftReserved;
//Raise EConvertError.CreateFmt(SErrInvalidFrameType,[aValue]);
end;
end;
@ -1258,7 +1260,7 @@ Function TWSConnection.HandleIncoming(aFrame : TWSFrame) : Boolean;
begin
Result:=True;
// check Reserved
// check Reserved bits
if aFrame.Reserved<>0 then
begin
Close('', CLOSE_PROTOCOL_ERROR);
@ -1266,7 +1268,14 @@ begin
Result:=false;
Exit;
end;
// check Reserved opcode
if aFrame.FrameType = ftReserved then
begin
Close('', CLOSE_PROTOCOL_ERROR);
UpdateCloseState;
Result:=false;
Exit;
end;
// here we handle payload.
if aFrame.FrameType<>ftContinuation then
FInitialOpcode:=aFrame.FrameType;