.版本 2
.子程序 HTTP过滤显示, 文本型
.参数 bin, 字节集
.局部变量 tmp头, 字节集
.局部变量 str, 文本型
.局部变量 bin_z, 字节集, , "2"
.局部变量 len, 整数型
.局部变量 i, 整数型
.局部变量 局_代码, 字节型
tmp头 = 取字节集左边 (bin, 5)
' HTTP/
' GET /
' POST
' * 字节集:5{72,84,84,80,47}
' * 字节集:5{71,69,84,32,47}
' * 字节集:5{80,79,83,84,32}
.判断开始 (tmp头 = { 72, 84, 84, 80, 47 }) ' 解码
bin_z = 分割字节集 (bin, { 13, 10, 13, 10 }, 2)
.判断开始 (取数组成员数 (bin_z) = 2)
str = str + 到文本 (bin_z [1]) + #换行符 + #换行符 + 编码_utf8到gb2312 (到文本 (bin_z [2]))
.默认
str = str + 到文本 (bin_z [1]) + #换行符 + #换行符
.判断结束
.判断 (tmp头 = { 71, 69, 84, 32, 47 } 或 tmp头 = { 80, 79, 83, 84, 32 }) ' 编码
bin_z = 分割字节集 (bin, { 13, 10, 13, 10 }, 2)
.判断开始 (取数组成员数 (bin_z) = 2)
str = str + 到文本 (bin_z [1]) + #换行符 + #换行符 + 编码_URL编码 (到文本 (bin_z [2]), 真, 真)
.默认
str = str + 到文本 (bin_z [1]) + #换行符 + #换行符
.判断结束
.默认
str = 编码_utf8到gb2312 (到文本 (bin))
.判断结束
返回 (str)
vs 2017 会的直接发出来吧,哈
|