- 按键认证大神
- 2699998
- 3587
- 11
- 2173 朵
- 7386 个
- 1021 个
- 91120
- 2014-08-23
|
1#
t
T
发表于 2022-05-02 13:06
|
|只看楼主
题目描述 我们今天的任务是实现一个简单的ascii加密算法,具体的要求是: 给定一个纯英文的字符串,将其中的每一个字母 加上各自的索引,最终得到ascii编码表中的最新字符。
【示例】 输入:“AAAA” 输出:“AAAA” 解释:AAAA的索引分别是’0,1,2,3’,而A的ascii编号是65,所以增量后是’65,66,67,68’,对应字符为’ABCD’
题目难度:简单 题目来源:CodeWars-ASCII Shift Encryption/Decryption 题目交流: 584781753
|
- Import "SmAssert.dll"
- Function 移位加密(字符串)
- // 您的代码写在这里
- End Function
- SmAssert 移位加密("AAAA") = "ABCD"
- SmAssert 移位加密("PASSWORD") = "PBUV[TXK"
- SmAssert 移位加密("0123456789") = "02468:<>@B"
- SmAssert 移位加密("SMWH") = "SNYK"
复制代码 参考题解- Import "SmAssert.dll"
- Function 移位加密(字符串)
-
- '【作者】:神梦无痕
- '【QQ】:1042207232
- '【Q群】:584781753
-
- Dim 返回值, 字符, 字码
- Dim i
-
- For i = 1 To Len(字符串)
- 字符 = Mid(字符串, i, 1)
- 字码 = Asc(字符) + (i - 1)
- 返回值 = 返回值 & Chr(字码)
- Next
- 移位加密 = 返回值
- End Function
- SmAssert 移位加密("AAAA") = "ABCD"
- SmAssert 移位加密("PASSWORD") = "PBUV[TXK"
- SmAssert 移位加密("0123456789") = "02468:<>@B"
- SmAssert 移位加密("SMWH") = "SNYK"
复制代码 插件下载【插件】神梦断言插件 SmAssert.dll,帮助开发者发现业务逻辑错误
|