该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
.版本 2
.支持库 spec
.程序集 窗口程序集_窗口1
.子程序 _按钮_明文_清空_被单击
编辑框_明文.内容 = “”
.子程序 _按钮_暗文_清空_被单击
编辑框_暗文.内容 = “”
.子程序 _按钮_明文_确定_被单击
.局部变量 参数1, 文本型, , , 明文内容
.局部变量 参数2, 文本型, , , 明文内容赋值到数组中的媒介
.局部变量 参数1长度, 整数型
.局部变量 A, 整数型, , , 计次循环计数值
.局部变量 参数3, 整数型, , , 明文转换判断值 1成功 0失败
参数1 = 编辑框_明文.内容
参数1长度 = 取文本长度 (参数1)
调试输出 (参数1长度)
重定义数组 (明文数组, 假, 参数1长度)
A = 0
.计次循环首 (参数1长度, A)
参数2 = 取文本左边 (参数1, A)
明文数组 [A] = 取文本右边 (参数2, 1)
.计次循环尾 ()
.计次循环首 (参数1长度, A)
调试输出 (明文数组 [A])
.计次循环尾 ()
参数3 = 子程序_明转暗 (参数1)
.子程序 _按钮_暗文_确定_被单击
.局部变量 参数1, 文本型, , , 暗文内容
.局部变量 参数2, 文本型, , , 暗文分块中介
.局部变量 参数3, 文本型, , , 明文内容
.局部变量 数据长度, 整数型, , , 明文的实际长度
.局部变量 A, 整数型, , , 计次循环次数
参数1 = 编辑框_暗文.内容
数据长度 = 取文本长度 (参数1)
数据长度 = 数据长度 ÷ 2
重定义数组 (明文数组, 假, 数据长度)
参数3 = “”
.计次循环首 (数据长度, A)
参数2 = 取文本中间 (参数1, 2 × A - 1, 2)
调试输出 (参数2)
.判断开始 (参数2 = “)!”)
明文数组 [A] = “A”
.判断 (参数2 = “)@”)
明文数组 [A] = “B”
.判断 (参数2 = “)#”)
明文数组 [A] = “C”
.判断 (参数2 = “)$”)
明文数组 [A] = “D”
.判断 (参数2 = “)%”)
明文数组 [A] = “E”
.判断 (参数2 = “)^”)
明文数组 [A] = “F”
.判断 (参数2 = “!)”)
明文数组 [A] = “G”
.判断 (参数2 = “!!”)
明文数组 [A] = “H”
.判断 (参数2 = “!@”)
明文数组 [A] = “I”
.判断 (参数2 = “!#”)
明文数组 [A] = “J”
.判断 (参数2 = “!$”)
明文数组 [A] = “K”
.判断 (参数2 = “!%”)
明文数组 [A] = “L”
.判断 (参数2 = “!^”)
明文数组 [A] = “M”
.判断 (参数2 = “@)”)
明文数组 [A] = “N”
.判断 (参数2 = “@!”)
明文数组 [A] = “O”
.判断 (参数2 = “@@”)
明文数组 [A] = “P”
.判断 (参数2 = “@#”)
明文数组 [A] = “Q”
.判断 (参数2 = “@$”)
明文数组 [A] = “R”
.判断 (参数2 = “@%”)
明文数组 [A] = “S”
.判断 (参数2 = “@^”)
明文数组 [A] = “T”
.判断 (参数2 = “#)”)
明文数组 [A] = “U”
.判断 (参数2 = “#!”)
明文数组 [A] = “V”
.判断 (参数2 = “#@”)
明文数组 [A] = “W”
.判断 (参数2 = “##”)
明文数组 [A] = “X”
.判断 (参数2 = “#$”)
明文数组 [A] = “Y”
.判断 (参数2 = “#%”)
明文数组 [A] = “Z”
.判断 (参数2 = “#^”)
明文数组 [A] = “,”
.判断 (参数2 = “$)”)
明文数组 [A] = “.”
.判断 (参数2 = “$!”)
明文数组 [A] = “!”
.判断 (参数2 = “$@”)
明文数组 [A] = “?”
.判断 (参数2 = “$#”)
明文数组 [A] = “ ”
.默认
.判断结束
.如果真 (明文数组 [A] = “”)
信息框 (“暗文错误!”, 0, “提示”, )
跳出循环 ()
.如果真结束
调试输出 (明文数组 [A])
参数3 = 参数3 + 明文数组 [A]
.计次循环尾 ()
编辑框_结果.内容 = 参数3
.子程序 _按钮_转换结果_复制_被单击
置剪辑板文本 (编辑框_结果.内容)
信息框 (“复制成功!”, 0, “提示:”, )
.子程序 子程序_明转暗, 整数型
.参数 参数_明文, 文本型
.局部变量 A, 整数型
.局部变量 暗文参数, 文本型
调试输出 (参数_明文)
重定义数组 (暗文数组, 假, 2, 取数组成员数 (明文数组))
.计次循环首 (取数组成员数 (明文数组), A)
.判断开始 (明文数组 [A] = “A” 或 明文数组 [A] = “a”)
调试输出 (“找到了A”)
暗文数组 [1] [A] = “)”
暗文数组 [2] [A] = “!”
.判断 (明文数组 [A] = “B” 或 明文数组 [A] = “b”)
调试输出 (“找到了B”)
暗文数组 [1] [A] = “)”
暗文数组 [2] [A] = “@”
.判断 (明文数组 [A] = “C” 或 明文数组 [A] = “c”)
调试输出 (“找到了C”)
暗文数组 [1] [A] = “)”
暗文数组 [2] [A] = “#”
.判断 (明文数组 [A] = “D” 或 明文数组 [A] = “d”)
调试输出 (“找到了D”)
暗文数组 [1] [A] = “)”
暗文数组 [2] [A] = “$”
.判断 (明文数组 [A] = “E” 或 明文数组 [A] = “e”)
调试输出 (“找到了E”)
暗文数组 [1] [A] = “)”
暗文数组 [2] [A] = “%”
.判断 (明文数组 [A] = “F” 或 明文数组 [A] = “f”)
调试输出 (“找到了F”)
暗文数组 [1] [A] = “)”
暗文数组 [2] [A] = “^”
.判断 (明文数组 [A] = “G” 或 明文数组 [A] = “g”)
调试输出 (“找到了G”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “)”
.判断 (明文数组 [A] = “H” 或 明文数组 [A] = “h”)
调试输出 (“找到了H”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “!”
.判断 (明文数组 [A] = “I” 或 明文数组 [A] = “i”)
调试输出 (“找到了I”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “@”
.判断 (明文数组 [A] = “J” 或 明文数组 [A] = “j”)
调试输出 (“找到了J”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “#”
.判断 (明文数组 [A] = “K” 或 明文数组 [A] = “k”)
调试输出 (“找到了K”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “$”
.判断 (明文数组 [A] = “L” 或 明文数组 [A] = “l”)
调试输出 (“找到了L”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “%”
.判断 (明文数组 [A] = “M” 或 明文数组 [A] = “m”)
调试输出 (“找到了M”)
暗文数组 [1] [A] = “!”
暗文数组 [2] [A] = “^”
.判断 (明文数组 [A] = “N” 或 明文数组 [A] = “n”)
调试输出 (“找到了N”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “)”
.判断 (明文数组 [A] = “O” 或 明文数组 [A] = “o”)
调试输出 (“找到了O”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “!”
.判断 (明文数组 [A] = “P” 或 明文数组 [A] = “p”)
调试输出 (“找到了P”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “@”
.判断 (明文数组 [A] = “Q” 或 明文数组 [A] = “q”)
调试输出 (“找到了Q”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “#”
.判断 (明文数组 [A] = “R” 或 明文数组 [A] = “r”)
调试输出 (“找到了R”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “$”
.判断 (明文数组 [A] = “S” 或 明文数组 [A] = “s”)
调试输出 (“找到了S”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “%”
.判断 (明文数组 [A] = “T” 或 明文数组 [A] = “t”)
调试输出 (“找到了T”)
暗文数组 [1] [A] = “@”
暗文数组 [2] [A] = “^”
.判断 (明文数组 [A] = “U” 或 明文数组 [A] = “u”)
调试输出 (“找到了U”)
暗文数组 [1] [A] = “#”
暗文数组 [2] [A] = “)”
.判断 (明文数组 [A] = “V” 或 明文数组 [A] = “v”)
调试输出 (“找到了V”)
暗文数组 [1] [A] = “#”
暗文数组 [2] [A] = “!”
.判断 (明文数组 [A] = “W” 或 明文数组 [A] = “w”)
调试输出 (“找到了W”)
暗文数组 [1] [A] = “#”
暗文数组 [2] [A] = “@”
.判断 (明文数组 [A] = “X” 或 明文数组 [A] = “x”)
调试输出 (“找到了X”)
暗文数组 [1] [A] = “#”
暗文数组 [2] [A] = “#”
.判断 (明文数组 [A] = “Y” 或 明文数组 [A] = “y”)
调试输出 (“找到了Y”)
暗文数组 [1] [A] = “#”
暗文数组 [2] [A] = “$”
.判断 (明文数组 [A] = “Z” 或 明文数组 [A] = “z”)
调试输出 (“找到了Z”)
暗文数组 [1] [A] = “)#”
暗文数组 [2] [A] = “%”
.判断 (明文数组 [A] = “,”)
调试输出 (“找到了,”)
暗文数组 [1] [A] = “#”
暗文数组 [2] [A] = “^”
.判断 (明文数组 [A] = “.”)
调试输出 (“找到了.”)
暗文数组 [1] [A] = “$”
暗文数组 [2] [A] = “)”
.判断 (明文数组 [A] = “!”)
调试输出 (“找到了!”)
暗文数组 [1] [A] = “$”
暗文数组 [2] [A] = “!”
.判断 (明文数组 [A] = “?”)
调试输出 (“找到了?”)
暗文数组 [1] [A] = “$”
暗文数组 [2] [A] = “@”
.判断 (明文数组 [A] = “ ”)
调试输出 (“找到了空格”)
暗文数组 [1] [A] = “$”
暗文数组 [2] [A] = “#”
.默认
.判断结束
.计次循环尾 ()
暗文参数 = “”
.计次循环首 (取数组成员数 (明文数组), A)
暗文参数 = 暗文参数 + 暗文数组 [1] [A] + 暗文数组 [2] [A]
.计次循环尾 ()
调试输出 (到字节集 (暗文参数))
编辑框_结果.内容 = 暗文参数
返回 (1)