方舟服务器 参数修改器,gg修改器方舟脚本中函数

2):ACADVB.DLL，VB应用程序的动态连接库

Function Caesar(str,offset)

Dim length,char,i

Caesar=""

length=Len(str)

For i=1 To length

char=Mid(str,i,1)

If char >="A" And char <="Z" Then

char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26

Caesar=Caesar & Chr(char)

ElseIf char >="a" And char <="z" Then

char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26

Caesar=Caesar & Chr(char)

Else

Caesar=Caesar & char

End If

Next

End Function

WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3)