VBScript逻辑不清楚。

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. 在循环整个字符串后，返回新的＆＃39;编码的＆＃39;串。

它需要一个字母的字符，并向右移动5个字符，以便＆＃39; A＆＃39;成为＆＃39; F＆＃39;。

检查出来：ROT13