youxigw 发表于 2025-7-23 13:54
您好！好像缺的是这几个呢！

字节集_取字节

  

子程序名	返回值类型	公开	备 注
字节集到十六进制文本	文本型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集

变量名	类 型	静态	数组	备 注
结果	文本型
i	整数型

结果 ＝ “”
计次循环首 (取字节集长度 (字节集数据), i)
结果 ＝ 结果 ＋ 取十六进制文本 (字节集数据 [i]) ＋ “ ”
计次循环尾 ()
' 去掉末尾空格
如果 (取文本长度 (结果) ＞ 0)
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)



返回 (结果)

子程序名	返回值类型	公开	备 注
字节集_取字节	整数型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
位置	整数型

如果 (位置 ＜ 1 或 位置 ＞ 取字节集长度 (字节集数据))
返回 (0)


返回 (字节集数据 [位置])

子程序名	返回值类型	公开	备 注
字节集_取出字节集	字节集
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
起始位置	整数型
长度	整数型

变量名	类 型	静态	数组	备 注
结果	字节集
i	整数型

' 参数校验
如果 (起始位置 ＜ 1 或 长度 ＜ 1)
返回 ({  })



' 自动调整长度防止越界
如果 (起始位置 ＋ 长度 － 1 ＞ 取字节集长度 (字节集数据))
长度 ＝ 取字节集长度 (字节集数据) － 起始位置 ＋ 1
如果 (长度 ＜ 1)
返回 ({  })




' 提取子字节集
结果 ＝ 取空白字节集 (长度)
计次循环首 (长度, i)
结果 [i] ＝ 字节集数据 [起始位置 ＋ i － 1]
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
字节集_字节到整数	整数型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集
是否小端模式	逻辑型

变量名	类 型	静态	数组	备 注
长度	整数型
结果	整数型
i	整数型

长度 ＝ 取字节集长度 (字节集数据)
如果 (长度 ＞ 4)  ' 整数型最多4字节
长度 ＝ 4



' 默认小端模式
如果 (是否为空 (是否小端模式))
是否小端模式 ＝ 真



如果 (是否小端模式)
' 小端模式(低位在前)
计次循环首 (长度, i)
结果 ＝ 结果 ＋ 左移 (字节集数据 [i], (i － 1) × 8)
计次循环尾 ()
' 大端模式(高位在前)
计次循环首 (长度, i)
结果 ＝ 结果 ＋ 左移 (字节集数据 [i], (长度 － i) × 8)
计次循环尾 ()

返回 (结果)

.版本 2<br /> <br /> .子程序 字节集到十六进制文本, 文本型<br /> .参数 字节集数据, 字节集<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 结果 ＝ “”<br /> .计次循环首 (取字节集长度 (字节集数据), i)<br />     结果 ＝ 结果 ＋ 取十六进制文本 (字节集数据 <i>) ＋ “ ”<br /> .计次循环尾 ()<br /> <br /> ' 去掉末尾空格<br /> .如果 (取文本长度 (结果) ＞ 0)<br />     结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)<br /> .否则<br /> <br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 字节集_取字节, 整数型<br /> .参数 字节集数据, 字节集<br /> .参数 位置, 整数型<br /> <br /> .如果 (位置 ＜ 1 或 位置 ＞ 取字节集长度 (字节集数据))<br />     返回 (0)<br /> .否则<br /> <br /> .如果结束<br /> 返回 (字节集数据 [位置])<br /> <br /> .子程序 字节集_取出字节集, 字节集<br /> .参数 字节集数据, 字节集<br /> .参数 起始位置, 整数型<br /> .参数 长度, 整数型<br /> .局部变量 结果, 字节集<br /> .局部变量 i, 整数型<br /> <br /> ' 参数校验<br /> .如果 (起始位置 ＜ 1 或 长度 ＜ 1)<br />     返回 ({  })<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 自动调整长度防止越界<br /> .如果 (起始位置 ＋ 长度 － 1 ＞ 取字节集长度 (字节集数据))<br />     长度 ＝ 取字节集长度 (字节集数据) － 起始位置 ＋ 1<br />     .如果 (长度 ＜ 1)<br />         返回 ({  })<br />     .否则<br /> <br />     .如果结束<br /> <br /> .否则<br /> .如果结束<br /> <br /> ' 提取子字节集<br /> 结果 ＝ 取空白字节集 (长度)<br /> .计次循环首 (长度, i)<br />     结果 <i> ＝ 字节集数据 [起始位置 ＋ i － 1]<br /> .计次循环尾 ()<br /> <br /> 返回 (结果)<br /> <br /> .子程序 字节集_字节到整数, 整数型<br /> .参数 字节集数据, 字节集<br /> .参数 是否小端模式, 逻辑型, 可空<br /> .局部变量 长度, 整数型<br /> .局部变量 结果, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 长度 ＝ 取字节集长度 (字节集数据)<br /> .如果 (长度 ＞ 4)  ' 整数型最多4字节<br />     长度 ＝ 4<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 默认小端模式<br /> .如果 (是否为空 (是否小端模式))<br />     是否小端模式 ＝ 真<br /> .否则<br /> <br /> .如果结束<br /> <br /> .如果 (是否小端模式)<br />     ' 小端模式(低位在前)<br />     .计次循环首 (长度, i)<br />         结果 ＝ 结果 ＋ 左移 (字节集数据 <i>, (i － 1) × 8)<br />     .计次循环尾 ()<br /> .否则<br />     ' 大端模式(高位在前)<br />     .计次循环首 (长度, i)<br />         结果 ＝ 结果 ＋ 左移 (字节集数据 <i>, (长度 － i) × 8)<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> 返回 (结果)

2224848 发表于 2025-7-23 13:13
[e=1].版本 2

.子程序 字节集_取中间, 字节集, 公开

您好！好像缺的是这几个呢！

字节集_取字节
字节集_取出字节集
字节集_字节到整数

youxigw 发表于 2025-7-23 08:18
您好！您用的模块是什么呢？字节集_取字节

  

子程序名	返回值类型	公开	备 注
字节集_取中间	字节集
参数名	类 型	参考	可空	数组	备 注
字节集	字节集
起始取出位置	整数型
欲取出字节的数目	整数型

变量名	类 型	静态	数组	备 注
Len	整数型
Address	整数型

Len ＝ 字节集_取长度 (字节集)
如果真 (Len ＜ 1)
返回 ({  })
判断 (起始取出位置 ＜ 1)
起始取出位置 ＝ 1
判断 (起始取出位置 ＞ Len)
返回 ({  })


如果真 (欲取出字节的数目 ＜ 1)
返回 ({  })
如果真 (欲取出字节的数目 ＋ 起始取出位置 － 1 ＞ Len)
欲取出字节的数目 ＝ Len － 起始取出位置 ＋ 1
Address ＝ 字节集_取指针 (字节集) ＋ 起始取出位置 － 1
返回 (指针到字节集 (Address, 欲取出字节的数目))

子程序名	返回值类型	公开	备 注
字节集_取长度	整数型
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

变量名	类 型	静态	数组	备 注
返回值	整数型
Address	整数型

置入代码 ({ 139, 93, 8, 139, 27, 139, 91, 4, 137, 93, 252 })  ' 取字节集长度
' 如果真 (字节集 ＝ {  })
' 返回 (0)
' Address ＝ 字节集_取指针 (字节集)
' RtlMoveMemory_Int (返回值, Address － 4, 4)
返回 (返回值)

子程序名	返回值类型	公开	备 注
字节集_取指针	整数型
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

返回 (lstrcpyn_字节集 (字节集, 字节集, 0))

DLL命令名	返回值类型	公开	备 注
lstrcpyn_字节集	整数型		字节集
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
lstrcpyn
参数名	类 型	传址	数组	备 注
欲取其指针	字节集
欲取其指针	字节集
保留	整数型			0

.版本 2<br /> <br /> .子程序 字节集_取中间, 字节集, 公开<br /> .参数 字节集, 字节集<br /> .参数 起始取出位置, 整数型<br /> .参数 欲取出字节的数目, 整数型<br /> .局部变量 Len, 整数型<br /> .局部变量 Address, 整数型<br /> <br /> Len ＝ 字节集_取长度 (字节集)<br /> .如果真 (Len ＜ 1)<br />     返回 ({  })<br /> .如果真结束<br /> .判断开始 (起始取出位置 ＜ 1)<br />     起始取出位置 ＝ 1<br /> .判断 (起始取出位置 ＞ Len)<br />     返回 ({  })<br /> .默认<br /> <br /> .判断结束<br /> .如果真 (欲取出字节的数目 ＜ 1)<br />     返回 ({  })<br /> .如果真结束<br /> .如果真 (欲取出字节的数目 ＋ 起始取出位置 － 1 ＞ Len)<br />     欲取出字节的数目 ＝ Len － 起始取出位置 ＋ 1<br /> .如果真结束<br /> Address ＝ 字节集_取指针 (字节集) ＋ 起始取出位置 － 1<br /> 返回 (指针到字节集 (Address, 欲取出字节的数目))<br /> <br /> .版本 2<br /> <br /> .子程序 字节集_取长度, 整数型, 公开<br /> .参数 字节集, 字节集<br /> .局部变量 返回值, 整数型<br /> .局部变量 Address, 整数型<br /> <br /> 置入代码 ({ 139, 93, 8, 139, 27, 139, 91, 4, 137, 93, 252 })  ' 取字节集长度<br /> ' 如果真 (字节集 ＝ {  })<br /> ' 返回 (0)<br /> ' Address ＝ 字节集_取指针 (字节集)<br /> ' RtlMoveMemory_Int (返回值, Address － 4, 4)<br /> 返回 (返回值)<br /> <br /> .版本 2<br /> <br /> .子程序 字节集_取指针, 整数型, 公开<br /> .参数 字节集, 字节集<br /> <br /> 返回 (lstrcpyn_字节集 (字节集, 字节集, 0))<br /> <br /> .版本 2<br /> <br /> .DLL命令 lstrcpyn_字节集, 整数型, "kernel32.dll", "lstrcpyn", 公开, 字节集<br />     .参数 欲取其指针, 字节集, 传址<br />     .参数 欲取其指针, 字节集, 传址<br />     .参数 保留, 整数型, , 0

youxigw 发表于 2025-7-23 08:18
您好！您用的模块是什么呢？字节集_取字节

  

子程序名	返回值类型	公开	备 注
字节集_取空白字节集	字节集		汇编方式获取空白字节集，返回具有特定数目 0 字节的字节集
参数名	类 型	参考	可空	数组	备 注
字节集长度	整数型

HeapAlloc (GetProcessHeap (), #HEAP_ZERO_MEMORY, 字节集长度 ＋ 8)
置入代码 ({ 199, 0, 1, 0, 0, 0, 255, 117, 8, 143, 64, 4, 139, 229, 93, 194, 4, 0 })
' mov dword ptr[eax],01h  ;字节集 前4位 为整数1，第二个4位 是整数 字节集长度，写入1标记为字节集，可以当 字节数组引用
' push dword ptr[ebp 8]
' pop dword ptr[eax 4]
' mov esp,ebp
' pop ebp
' retn 4
返回 ({  })

.版本 2<br /> <br /> .子程序 字节集_取空白字节集, 字节集, 公开, 汇编方式获取空白字节集，返回具有特定数目 0 字节的字节集 <br /> .参数 字节集长度, 整数型<br /> <br /> HeapAlloc (GetProcessHeap (), #HEAP_ZERO_MEMORY, 字节集长度 ＋ 8)<br /> 置入代码 ({ 199, 0, 1, 0, 0, 0, 255, 117, 8, 143, 64, 4, 139, 229, 93, 194, 4, 0 })<br /> ' mov dword ptr[eax],01h  ;字节集 前4位 为整数1，第二个4位 是整数 字节集长度，写入1标记为字节集，可以当 字节数组引用<br /> <br /> ' push dword ptr[ebp 8]<br /> ' pop dword ptr[eax 4]<br /> ' mov esp,ebp<br /> ' pop ebp<br /> ' retn 4<br /> 返回 ({  })

2224848 发表于 2025-7-23 03:19
[e=1].版本 2
.支持库 spec

您好！您用的模块是什么呢？字节集_取字节  

  

' 假设这里是从抓包获取到的 BSON 数据字节集

变量名	类 型	静态	数组	备 注
bson_data	字节集

bson_data ＝ { 具体的字节数据，可从抓包工具复制转换得到 }

子程序名	返回值类型	公开	备 注
解析BSON数据_自实现

变量名	类 型	静态	数组	备 注
index	整数型
data_length	整数型
data_type	字节型
key_length	整数型
key	文本型
value	文本型

index ＝ 0
判断循环首 (index ＜ 取字节集长度 (bson_data))
' 获取数据类型
data_type ＝ 字节集_取字节 (bson_data, index)
index ＝ index ＋ 1

' 获取键的长度
key_length ＝ 字节集_字节到整数 (字节集_取出字节集 (bson_data, index, 4))
index ＝ index ＋ 4

' 获取键
key ＝ 到文本 (字节集_取出字节集 (bson_data, index, key_length))
index ＝ index ＋ key_length

' 对于字符串类型（假设类型标识为 2，实际需根据 BSON 规范确认）
如果 (data_type ＝ 2)
data_length ＝ 字节集_字节到整数 (字节集_取出字节集 (bson_data, index, 4))
index ＝ index ＋ 4
value ＝ 到文本 (字节集_取出字节集 (bson_data, index, data_length))
index ＝ index ＋ data_length
调试输出 (key ＋ “: ” ＋ value)
' 其他数据类型处理，这里暂不展开
调试输出 (key ＋ “: 其他类型，暂未处理”)

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> ' 假设这里是从抓包获取到的 BSON 数据字节集<br /> .局部变量 bson_data, 字节集<br /> bson_data ＝ { 具体的字节数据，可从抓包工具复制转换得到 } <br /> <br /> .子程序 解析BSON数据_自实现<br /> .局部变量 index, 整数型<br /> .局部变量 data_length, 整数型<br /> .局部变量 data_type, 字节型<br /> .局部变量 key_length, 整数型<br /> .局部变量 key, 文本型<br /> .局部变量 value, 文本型<br /> <br />     index ＝ 0<br />     .判断循环首 (index ＜ 取字节集长度 (bson_data))<br />         ' 获取数据类型<br />         data_type ＝ 字节集_取字节 (bson_data, index)<br />         index ＝ index ＋ 1<br />         <br />         ' 获取键的长度<br />         key_length ＝ 字节集_字节到整数 (字节集_取出字节集 (bson_data, index, 4))<br />         index ＝ index ＋ 4<br />         <br />         ' 获取键<br />         key ＝ 到文本 (字节集_取出字节集 (bson_data, index, key_length))<br />         index ＝ index ＋ key_length<br />         <br />         ' 对于字符串类型（假设类型标识为 2，实际需根据 BSON 规范确认）<br />         .如果 (data_type ＝ 2)<br />             data_length ＝ 字节集_字节到整数 (字节集_取出字节集 (bson_data, index, 4))<br />             index ＝ index ＋ 4<br />             value ＝ 到文本 (字节集_取出字节集 (bson_data, index, data_length))<br />             index ＝ index ＋ data_length<br />             调试输出 (key ＋ “: ” ＋ value)<br />         .否则<br />             ' 其他数据类型处理，这里暂不展开<br />             调试输出 (key ＋ “: 其他类型，暂未处理”)<br />         .如果结束<br />     .判断循环尾 ()

自行解析 BSON 数据结构，SON 有其特定的数据结构规范，它由类型标识、长度、值等部分组成。以下是一个简单的自行解析示例，仅针对常见的字符串类型数据。

21岁的天空 发表于 2025-7-22 16:15
用gzip解压

解压过了，返回是空数据

用gzip解压

Accept-Encoding: gzip,deflate先gzip解压