• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

六级认证,老师是不是改错题目了? [复制链接]

1#
对字符串进行加解密,加密规则为序数加5,例如\"A\"->\"F\",\"a\"->\"f\",\"Z\"->\"E\",\"1\"->\"6\" (加解密),请写出代码(禁止使用第三方插件)    未进行解密
以下是代码


Function 字符串加密(str, num)
Dim i, 转换后数据
Dim 加几, 字符串, 加密后字符串
字符串 = str
加几 = num
加密后的字符串 = ""
For i = 1 To len(字符串)
转换后数据 = Asc(mid(字符串, i, 1)) + 加几
If 转换后数据 >Asc("z") and 转换后数据 <= Asc("z") + 加几 then 转换后数据 = 转换后数据 - 26     
If 转换后数据 >Asc("Z") and 转换后数据 <= Asc("Z") + 加几 Then 转换后数据 = 转换后数据 - 26
If 转换后数据 >Asc("9") And 转换后数据 <= Asc("9") + 加几 then 转换后数据 = 转换后数据 - 10
加密后字符串 = 加密后字符串 + Chr(转换后数据)
Next
字符串加密=加密后字符串
End Function
MsgBox 字符串加密("Aaez9", 5)
最后一行代码不是输出了 Aaez9加密后的字符串吗?为什么说未进行解密

2#

评卷没错呀 题目说了 进行加解密 你加密了 解呢?

发新话题 回复该主题