|
发表于 2018-6-11 19:38:33
|
显示全部楼层
福建省*
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
文本 = “<?phpecho pack(” + #引号 + “C3” + #引号 + “,80,72,80);?>”
' 文本 = “,80,72,80)”
调试输出 (文本)
调试输出 (pack (文本))
.子程序 pack, 文本型
.参数 文本, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 m, 整数型
.局部变量 结果, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
a = 寻找文本 (文本, “,”, , 假)
b = 倒找文本 (文本, “)”, , 假)
文本 = 取文本中间 (文本, a + 1, b - a - 1)
调试输出 (文本)
数组 = 分割文本 (文本, “,”, )
.如果真 (取数组成员数 (数组) = 0)
返回 (“”)
.如果真结束
调试输出 (取数组成员数 (数组))
.计次循环首 (取数组成员数 (数组), m)
结果 = 结果 + 字符 (到字节 (数组 [m]))
.计次循环尾 ()
返回 (结果)
|
|