解码 这个有时候数组越界 哪里出了问题 帮忙看看

学长大人

.版本 2

.子程序 接收数据解码, 文本型, 公开, 所有收到消息全部通过此函数解码
.参数 原数据, 字节集, 可空
.参数 返回数据, 字节集, 可空
.局部变量 FIN, 整数型
.局部变量 opcode, 整数型
.局部变量 mask, 整数型
.局部变量 MaskingKey, 整数型, , "4"
.局部变量 PayLoadLength, 整数型
.局部变量 Frame, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 i, 整数型, , , 当前位
.局部变量 数据, 整数型, , "0"

字节集_字节集到数组 (原数据, Frame)
i ＝ 1
FIN ＝ 右移 (到整数 (Frame [i]), 7)  ' i=1
opcode ＝ 位与 (到整数 (Frame [i]), 15)
i ＝ i ＋ 1  ' i=2
mask ＝ 右移 (到整数 (Frame [i]), 7)
PayLoadLength ＝ 位与 (到整数 (Frame [i]), 127)  ' 0x7F
i ＝ i ＋ 1
' 处理特殊长度
.如果真 (PayLoadLength ＝ 126)
    PayLoadLength ＝ 左移 (到整数 (Frame [i]), 8)
    i ＝ i ＋ 1
    PayLoadLength ＝ PayLoadLength ＋ 到整数 (Frame [i])
    i ＝ i ＋ 1
.如果真结束
.如果真 (PayLoadLength ＝ 127)
    i ＝ i ＋ 4
    PayLoadLength ＝ 左移 (到整数 (Frame [i]), 24)
    i ＝ i ＋ 1
    PayLoadLength ＝ PayLoadLength ＋ 左移 (到整数 (Frame [i]), 16)
    i ＝ i ＋ 1
    PayLoadLength ＝ PayLoadLength ＋ 左移 (到整数 (Frame [i]), 8)
    i ＝ i ＋ 1
    PayLoadLength ＝ PayLoadLength ＋ 到整数 (Frame [i])
    i ＝ i ＋ 1
.如果真结束
' 获取MaskingKey
.如果真 (mask ≠ 0)
    .计次循环首 (4, n)
        MaskingKey [n] ＝ 到整数 (Frame [i])
        i ＝ i ＋ 1
    .计次循环尾 ()
    ' 对数据进和掩码做异或运算
    .变量循环首 (0, PayLoadLength － 1, 1, n)
        加入成员 (数据, 位异或 (到整数 (Frame [i ＋ n]), MaskingKey [n ％ 4 ＋ 1]))
    .变量循环尾 ()
    ' 调试输出 (Frame)
    ' ’调试输出 (“数据”)
    ' ’调试输出 (数据)
    返回 (toString (数据))
.如果真结束
返回 (“”)

学长大人

  

子程序名	返回值类型	公开	备 注
接收数据解码	文本型		所有收到消息全部通过此函数解码
参数名	类 型	参考	可空	数组	备 注
原数据	字节集
返回数据	字节集

变量名	类 型	静态	数组	备 注
FIN	整数型
opcode	整数型
mask	整数型
MaskingKey	整数型		4
PayLoadLength	整数型
Frame	文本型		0
n	整数型
i	整数型			当前位
数据	整数型		0

字节集_字节集到数组 (原数据, Frame)
i ＝ 1
FIN ＝ 右移 (到整数 (Frame [i]), 7)  ' i=1
opcode ＝ 位与 (到整数 (Frame [i]), 15)
i ＝ i ＋ 1  ' i=2
mask ＝ 右移 (到整数 (Frame [i]), 7)
PayLoadLength ＝ 位与 (到整数 (Frame [i]), 127)  ' 0x7F
i ＝ i ＋ 1
' 处理特殊长度
如果真 (PayLoadLength ＝ 126)
PayLoadLength ＝ 左移 (到整数 (Frame [i]), 8)
i ＝ i ＋ 1
PayLoadLength ＝ PayLoadLength ＋ 到整数 (Frame [i])
i ＝ i ＋ 1
如果真 (PayLoadLength ＝ 127)
i ＝ i ＋ 4
PayLoadLength ＝ 左移 (到整数 (Frame [i]), 24)
i ＝ i ＋ 1
PayLoadLength ＝ PayLoadLength ＋ 左移 (到整数 (Frame [i]), 16)
i ＝ i ＋ 1
PayLoadLength ＝ PayLoadLength ＋ 左移 (到整数 (Frame [i]), 8)
i ＝ i ＋ 1
PayLoadLength ＝ PayLoadLength ＋ 到整数 (Frame [i])
i ＝ i ＋ 1
' 获取MaskingKey
如果真 (mask ≠ 0)
计次循环首 (4, n)
MaskingKey [n] ＝ 到整数 (Frame [i])
i ＝ i ＋ 1
计次循环尾 ()
' 对数据进和掩码做异或运算
变量循环首 (0, PayLoadLength － 1, 1, n)
加入成员 (数据, 位异或 (到整数 (Frame [i ＋ n]), MaskingKey [n ％ 4 ＋ 1]))
变量循环尾 ()
' 调试输出 (Frame)
' ’调试输出 (“数据”)
' ’调试输出 (数据)
返回 (toString (数据))
返回 (“”)

.版本 2<br /> <br /> .子程序 接收数据解码, 文本型, 公开, 所有收到消息全部通过此函数解码<br /> .参数 原数据, 字节集, 可空<br /> .参数 返回数据, 字节集, 可空<br /> .局部变量 FIN, 整数型<br /> .局部变量 opcode, 整数型<br /> .局部变量 mask, 整数型<br /> .局部变量 MaskingKey, 整数型, , "4"<br /> .局部变量 PayLoadLength, 整数型<br /> .局部变量 Frame, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型, , , 当前位<br /> .局部变量 数据, 整数型, , "0"<br /> <br /> 字节集_字节集到数组 (原数据, Frame)<br /> i ＝ 1<br /> FIN ＝ 右移 (到整数 (Frame <i>), 7)  ' i=1<br /> opcode ＝ 位与 (到整数 (Frame <i>), 15)<br /> i ＝ i ＋ 1  ' i=2<br /> mask ＝ 右移 (到整数 (Frame <i>), 7)<br /> PayLoadLength ＝ 位与 (到整数 (Frame <i>), 127)  ' 0x7F<br /> i ＝ i ＋ 1<br /> ' 处理特殊长度<br /> .如果真 (PayLoadLength ＝ 126)<br />     PayLoadLength ＝ 左移 (到整数 (Frame <i>), 8)<br />     i ＝ i ＋ 1<br />     PayLoadLength ＝ PayLoadLength ＋ 到整数 (Frame <i>)<br />     i ＝ i ＋ 1<br /> .如果真结束<br /> .如果真 (PayLoadLength ＝ 127)<br />     i ＝ i ＋ 4<br />     PayLoadLength ＝ 左移 (到整数 (Frame <i>), 24)<br />     i ＝ i ＋ 1<br />     PayLoadLength ＝ PayLoadLength ＋ 左移 (到整数 (Frame <i>), 16)<br />     i ＝ i ＋ 1<br />     PayLoadLength ＝ PayLoadLength ＋ 左移 (到整数 (Frame <i>), 8)<br />     i ＝ i ＋ 1<br />     PayLoadLength ＝ PayLoadLength ＋ 到整数 (Frame <i>)<br />     i ＝ i ＋ 1<br /> .如果真结束<br /> ' 获取MaskingKey<br /> .如果真 (mask ≠ 0)<br />     .计次循环首 (4, n)<br />         MaskingKey [n] ＝ 到整数 (Frame <i>)<br />         i ＝ i ＋ 1<br />     .计次循环尾 ()<br />     ' 对数据进和掩码做异或运算<br />     .变量循环首 (0, PayLoadLength － 1, 1, n)<br />         加入成员 (数据, 位异或 (到整数 (Frame [i ＋ n]), MaskingKey [n ％ 4 ＋ 1]))<br />     .变量循环尾 ()<br />     ' 调试输出 (Frame)<br />     ' ’调试输出 (“数据”)<br />     ' ’调试输出 (数据)<br />     返回 (toString (数据))<br /> .如果真结束<br /> 返回 (“”)

丿Mrs°戮默

加入成员 (数据, 位异或 (到整数 (Frame [i ＋ n]), MaskingKey [n ％ 4 ＋ 1]))     目测 这个 Frame [i ＋ n] 数组越界了

学长大人

丿Mrs°戮默 发表于 2025-8-1 09:25
加入成员 (数据, 位异或 (到整数 (Frame ), MaskingKey [n ％ 4 ＋ 1]))     目测 这个 Frame  数组越界了 ...

概率性出现越界

学长大人

求大佬 帮忙优化一下

学长大人

yang670555064

最后一个循环前面加这个   调试输出(PayLoadLength , 取数组成员数(Frame))
PayLoadLength 观察这个变量, 应该是超过数组Frame的下标了

学长大人

yang670555064 发表于 2025-8-1 10:52
最后一个循环前面加这个   调试输出(PayLoadLength , 取数组成员数(Frame))
PayLoadLength 观察这个变量,  ...

是这个地方有问题，解码没解开，是一串乱码