vbscript - VBScript Logic 不清楚。

Question

所以我想进入加密。所以我学习了vbscript。我看到一段代码，我可以阅读其中的一半，但我无法阅读另一半。互联网上没有任何地方可以解释这些代码行的含义。谁能告诉我这些代码行的作用：

function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt)+5)
coded = coded & newtxt
Next
encode = coded 
End Function

这是整个代码：

set x = WScript.CreateObject("WScript.shell")
mySecret = inputbox("enter text to be encoded") 
mySecret = StrReverse(mySecret)
x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)

function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt)+5)
coded = coded & newtxt
Next
encode = coded 
End Function

Answer 1

这与其说是加密，不如说是混淆。

1. 循环遍历变量中的每个字符s。
2. 抓取字符串中的下一个字符。
3. 将角色推进 5 步。
4. 将高级字符附加到新字符串。
5. 遍历整个字符串后，返回新的“编码”字符串。

它采用字母表中的一个字符并将其向右移动 5 个字符，以便“A”变为“F”。

看看这个：ROT13