凯撒位移

我晕1661384346

之前需要写个凯撒位移的解题工具，在论坛找到两源码。都有问题。
凯撒位移是不应该处理特殊符号和汉字等输入值的。
下面贴上自己写的代码。

  

窗口程序集名	保 留	保 留	备 注
程序集			CTF常用小工具之凯撒位移解题工具

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
输入	文本型
Temp	文本型
计次	整数型
位移量	整数型
输出	文本型
总长度	整数型
asc	整数型

' code by Only_zombie E-mail [email]1661384346@qq.com[/email]
' 小写字母asc码范围:97-122
' 大写字母asc码范围:65-90
标准输出 (, “输入需要做凯撒位移的字符串：” ＋ #换行符 )
输入 ＝ 标准输入 ()
总长度 ＝ 取文本长度 (输入)
计次循环首 (26, 位移量) ' 遍历26种结果
计次循环首 (总长度, 计次) ' 逐个取出字符串位移
Temp ＝ 取文本中间 (输入, 计次, 1) ' 逐位取出输入的字符
asc ＝ 取代码 (Temp, ) ' 取出当前字符的asc码
判断 (asc ≥ 97 且 asc ≤ 122) ' 判断当前字符是否为小写字母
如果 (asc ＋ 位移量 ＞ 26) ' 如果位移溢出
asc ＝ asc ＋ 位移量
asc ＝ asc － 26

asc ＝ asc ＋ 位移量 ' 没有发生位移溢出则直接加上位移量


判断 (asc ≥ 65 且 asc ≤ 90) ' 判断当前字符是否为大写字母
如果 (asc ＋ 位移量 ＞ 26) ' 如果位移溢出
asc ＝ asc ＋ 位移量
asc ＝ asc － 26

asc ＝ asc ＋ 位移量


' 不是大小写字母不做处理

输出 ＝ 输出 ＋ 字符 (asc)
计次循环尾 ()
标准输出 (, “位移完成，结果为：” ＋ #换行符 )
标准输出 (, 输出 ＋ #换行符 )
标准输出 (, “该结果位移了” ＋ 到文本 (位移量) ＋ #换行符 )
输出 ＝ “”
计次循环尾 ()
标准输入 ()
返回 (0)

.版本 2<br /> <br /> .程序集 程序集, , , CTF常用小工具之凯撒位移解题工具<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 输入, 文本型<br /> .局部变量 Temp, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 位移量, 整数型<br /> .局部变量 输出, 文本型<br /> .局部变量 总长度, 整数型<br /> .局部变量 asc, 整数型<br /> <br /> ' code by Only_zombie E-mail <a href="mailto:1661384346@qq.com" rel="nofollow">1661384346@qq.com</a><br /> ' 小写字母asc码范围:97-122<br /> ' 大写字母asc码范围:65-90<br /> 标准输出 (, “输入需要做凯撒位移的字符串：” ＋ #换行符)<br /> 输入 ＝ 标准输入 ()<br /> <br /> 总长度 ＝ 取文本长度 (输入)<br /> <br /> .计次循环首 (26, 位移量) ' 遍历26种结果<br /> <br /> .计次循环首 (总长度, 计次) ' 逐个取出字符串位移<br /> <br /> Temp ＝ 取文本中间 (输入, 计次, 1) ' 逐位取出输入的字符<br /> asc ＝ 取代码 (Temp, ) ' 取出当前字符的asc码<br /> <br /> .判断开始 (asc ≥ 97 且 asc ≤ 122) ' 判断当前字符是否为小写字母<br /> .如果 (asc ＋ 位移量 ＞ 26) ' 如果位移溢出<br /> asc ＝ asc ＋ 位移量<br /> asc ＝ asc － 26<br /> <br /> .否则<br /> asc ＝ asc ＋ 位移量 ' 没有发生位移溢出则直接加上位移量<br /> .如果结束<br /> <br /> <br /> .判断 (asc ≥ 65 且 asc ≤ 90) ' 判断当前字符是否为大写字母<br /> .如果 (asc ＋ 位移量 ＞ 26) ' 如果位移溢出<br /> asc ＝ asc ＋ 位移量<br /> asc ＝ asc － 26<br /> <br /> .否则<br /> asc ＝ asc ＋ 位移量<br /> .如果结束<br /> <br /> <br /> .默认<br /> ' 不是大小写字母不做处理<br /> .判断结束<br /> <br /> 输出 ＝ 输出 ＋ 字符 (asc)<br /> .计次循环尾 ()<br /> 标准输出 (, “位移完成，结果为：” ＋ #换行符)<br /> 标准输出 (, 输出 ＋ #换行符)<br /> 标准输出 (, “该结果位移了” ＋ 到文本 (位移量) ＋ #换行符)<br /> 输出 ＝ “”<br /> .计次循环尾 ()<br /> <br /> <br /> 标准输入 ()<br /> 返回 (0)

我晕1661384346

慕浟佳 发表于 2015-8-21 12:04
我还审判天使呢

你是大猴子请来的吗。

慕浟佳

我还审判天使呢

158125957

哎  我学了这么就易语言 结果还是个菜鸟