调出

aq425518860

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

输出调试文本 (Decode (“0000000000”))
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
Decode	文本型
参数名	类 型	参考	可空	数组	备 注
cipher	文本型

变量名	类 型	静态	数组	备 注
str	文本型
hex	文本型
i	整数型
val	文本型
loc	文本型
pre	整数型		2
tail	整数型		2

str ＝ 取文本右边 (cipher, 取文本长度 (cipher) － 4)
hex ＝ 取文本左边 (cipher, 4)
变量循环首 (取文本长度 (hex), 1, -1, i)
val ＝ val ＋ 取文本中间 (hex, i, 1)
变量循环尾 ()
loc ＝ 到文本 (进制_十六到十 (val))
计次循环首 (4, i)
如果 (i ≤ 2)
pre [i] ＝ 到整数 (取文本中间 (loc, i, 1))
tail [i － 2] ＝ 到整数 (取文本中间 (loc, i, 1))

计次循环尾 ()
str ＝ pro (str, pre)
tail [1] ＝ 取文本长度 (str) － tail [1] － tail [2]
返回 (到文本 (编码_BASE64解码 (pro (str, tail))))

子程序名	返回值类型	公开	备 注
pro	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
val	整数型

变量名	类 型	静态	数组	备 注
loc1	文本型
loc2	文本型

loc1 ＝ 取文本左边 (str, val [1])
loc2 ＝ 取文本中间 (str, val [1] ＋ 1, val [2])
返回 (loc1 ＋ 子文本替换 (取文本右边 (str, 取文本长度 (str) － val [1]), loc2, , , , 真))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 输出调试文本 (Decode (“0000000000”))<br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> <br /> .子程序 Decode, 文本型, 公开<br /> .参数 cipher, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 hex, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 val, 文本型<br /> .局部变量 loc, 文本型<br /> .局部变量 pre, 整数型, , "2"<br /> .局部变量 tail, 整数型, , "2"<br /> <br /> str ＝ 取文本右边 (cipher, 取文本长度 (cipher) － 4)<br /> hex ＝ 取文本左边 (cipher, 4)<br /> .变量循环首 (取文本长度 (hex), 1, -1, i)<br />     val ＝ val ＋ 取文本中间 (hex, i, 1)<br /> .变量循环尾 ()<br /> <br /> loc ＝ 到文本 (进制_十六到十 (val))<br /> <br /> .计次循环首 (4, i)<br />     .如果 (i ≤ 2)<br />         pre <i> ＝ 到整数 (取文本中间 (loc, i, 1))<br />     .否则<br />         tail [i － 2] ＝ 到整数 (取文本中间 (loc, i, 1))<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> str ＝ pro (str, pre)<br /> tail [1] ＝ 取文本长度 (str) － tail [1] － tail [2]<br /> <br /> 返回 (到文本 (编码_BASE64解码 (pro (str, tail))))<br /> <br /> <br /> .子程序 pro, 文本型<br /> .参数 str, 文本型<br /> .参数 val, 整数型, 数组<br /> .局部变量 loc1, 文本型<br /> .局部变量 loc2, 文本型<br /> <br /> loc1 ＝ 取文本左边 (str, val [1])<br /> loc2 ＝ 取文本中间 (str, val [1] ＋ 1, val [2])<br /> 返回 (loc1 ＋ 子文本替换 (取文本右边 (str, 取文本长度 (str) － val [1]), loc2, , , , 真))

谁帮我看看 怎么弄成  按钮1_被单击输出调试文本 (Decode (“0000000000”))  改成调编辑1内容

人善帝王心

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

输出调试文本 (Decode (编辑框1.内容))

子程序名	返回值类型	公开	备 注
Decode	文本型
参数名	类 型	参考	可空	数组	备 注
cipher	文本型

变量名	类 型	静态	数组	备 注
str	文本型
hex	文本型
i	整数型
val	文本型
loc	文本型
pre	整数型		2
tail	整数型		2

str ＝ 取文本右边 (cipher, 取文本长度 (cipher) － 4)
hex ＝ 取文本左边 (cipher, 4)
变量循环首 (取文本长度 (hex), 1, -1, i)
val ＝ val ＋ 取文本中间 (hex, i, 1)
变量循环尾 ()
loc ＝ 到文本 (进制_十六到十 (val))
计次循环首 (4, i)
如果 (i ≤ 2)
pre [i] ＝ 到整数 (取文本中间 (loc, i, 1))
tail [i － 2] ＝ 到整数 (取文本中间 (loc, i, 1))

计次循环尾 ()
str ＝ pro (str, pre)
tail [1] ＝ 取文本长度 (str) － tail [1] － tail [2]
返回 (到文本 (编码_BASE64解码 (pro (str, tail))))

子程序名	返回值类型	公开	备 注
pro	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
val	整数型

变量名	类 型	静态	数组	备 注
loc1	文本型
loc2	文本型

loc1 ＝ 取文本左边 (str, val [1])
loc2 ＝ 取文本中间 (str, val [1] ＋ 1, val [2])
返回 (loc1 ＋ 子文本替换 (取文本右边 (str, 取文本长度 (str) － val [1]), loc2, , , , 真))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 输出调试文本 (Decode (编辑框1.内容))<br /> <br /> <br /> <br /> .子程序 Decode, 文本型, 公开<br /> .参数 cipher, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 hex, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 val, 文本型<br /> .局部变量 loc, 文本型<br /> .局部变量 pre, 整数型, , "2"<br /> .局部变量 tail, 整数型, , "2"<br /> <br /> str ＝ 取文本右边 (cipher, 取文本长度 (cipher) － 4)<br /> hex ＝ 取文本左边 (cipher, 4)<br /> .变量循环首 (取文本长度 (hex), 1, -1, i)<br />     val ＝ val ＋ 取文本中间 (hex, i, 1)<br /> .变量循环尾 ()<br /> <br /> loc ＝ 到文本 (进制_十六到十 (val))<br /> <br /> .计次循环首 (4, i)<br />     .如果 (i ≤ 2)<br />         pre <i> ＝ 到整数 (取文本中间 (loc, i, 1))<br />     .否则<br />         tail [i － 2] ＝ 到整数 (取文本中间 (loc, i, 1))<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> str ＝ pro (str, pre)<br /> tail [1] ＝ 取文本长度 (str) － tail [1] － tail [2]<br /> <br /> 返回 (到文本 (编码_BASE64解码 (pro (str, tail))))<br /> <br /> <br /> .子程序 pro, 文本型<br /> .参数 str, 文本型<br /> .参数 val, 整数型, 数组<br /> .局部变量 loc1, 文本型<br /> .局部变量 loc2, 文本型<br /> <br /> loc1 ＝ 取文本左边 (str, val [1])<br /> loc2 ＝ 取文本中间 (str, val [1] ＋ 1, val [2])<br /> 返回 (loc1 ＋ 子文本替换 (取文本右边 (str, 取文本长度 (str) － val [1]), loc2, , , , 真))

SeeYouAgain

编辑框1.内容=Decode (“0000000000”)

aq425518860

SeeYouAgain 发表于 2017-2-27 03:29
编辑框1.内容=Decode (“0000000000”)

不是 直接改成 按钮1_被单击  输出调试文本 (Decode =_启动窗口.编辑框1.内容)

aq425518860

SeeYouAgain 发表于 2017-2-27 03:29
编辑框1.内容=Decode (“0000000000”)

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击	整数型

输出调试文本 (Decode ＝ 编辑框1.内容)
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
Decode	文本型		By无语 QQ2816813070
参数名	类 型	参考	可空	数组	备 注
cipher	文本型

变量名	类 型	静态	数组	备 注
str	文本型
hex	文本型
i	整数型
val	文本型
loc	文本型
pre	整数型		2
tail	整数型		2

str ＝ 取文本右边 (cipher, 取文本长度 (cipher) － 4)
hex ＝ 取文本左边 (cipher, 4)
变量循环首 (取文本长度 (hex), 1, -1, i)
val ＝ val ＋ 取文本中间 (hex, i, 1)
变量循环尾 ()
loc ＝ 到文本 (进制_十六到十 (val))
计次循环首 (4, i)
如果 (i ≤ 2)
pre [i] ＝ 到整数 (取文本中间 (loc, i, 1))
tail [i － 2] ＝ 到整数 (取文本中间 (loc, i, 1))

计次循环尾 ()
str ＝ pro (str, pre)
tail [1] ＝ 取文本长度 (str) － tail [1] － tail [2]
返回 (到文本 (编码_BASE64解码 (pro (str, tail))))

子程序名	返回值类型	公开	备 注
pro	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
val	整数型

变量名	类 型	静态	数组	备 注
loc1	文本型
loc2	文本型

loc1 ＝ 取文本左边 (str, val [1])
loc2 ＝ 取文本中间 (str, val [1] ＋ 1, val [2])
返回 (loc1 ＋ 子文本替换 (取文本右边 (str, 取文本长度 (str) － val [1]), loc2, , , , 真))

.版本 2<br /> <br /> .子程序 _按钮1_被单击, 整数型<br /> <br /> 输出调试文本 (Decode ＝ 编辑框1.内容)<br /> <br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> <br /> .子程序 Decode, 文本型, 公开, By无语 QQ2816813070<br /> .参数 cipher, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 hex, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 val, 文本型<br /> .局部变量 loc, 文本型<br /> .局部变量 pre, 整数型, , "2"<br /> .局部变量 tail, 整数型, , "2"<br /> <br /> str ＝ 取文本右边 (cipher, 取文本长度 (cipher) － 4)<br /> hex ＝ 取文本左边 (cipher, 4)<br /> .变量循环首 (取文本长度 (hex), 1, -1, i)<br />     val ＝ val ＋ 取文本中间 (hex, i, 1)<br /> .变量循环尾 ()<br /> <br /> loc ＝ 到文本 (进制_十六到十 (val))<br /> <br /> .计次循环首 (4, i)<br />     .如果 (i ≤ 2)<br />         pre <i> ＝ 到整数 (取文本中间 (loc, i, 1))<br />     .否则<br />         tail [i － 2] ＝ 到整数 (取文本中间 (loc, i, 1))<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> str ＝ pro (str, pre)<br /> tail [1] ＝ 取文本长度 (str) － tail [1] － tail [2]<br /> <br /> 返回 (到文本 (编码_BASE64解码 (pro (str, tail))))<br /> <br /> <br /> .子程序 pro, 文本型<br /> .参数 str, 文本型<br /> .参数 val, 整数型, 数组<br /> .局部变量 loc1, 文本型<br /> .局部变量 loc2, 文本型<br /> <br /> loc1 ＝ 取文本左边 (str, val [1])<br /> loc2 ＝ 取文本中间 (str, val [1] ＋ 1, val [2])<br /> 返回 (loc1 ＋ 子文本替换 (取文本右边 (str, 取文本长度 (str) － val [1]), loc2, , , , 真))

11.rar (123.39 KB, 下载次数: 0)

2017-2-27 03:46 上传

点击文件名下载附件