[问题求助] [已解决]VBS加密解密字符串的问题

328612167

这是我在网上找的一段加密解密字符串的代码，但有些问题搞不定
问题1：会出错
问题2：终端代码的解密原理是什么

s="1862332/*-+."’这是要加密的字符串
s=ChgStr(s,1):msgbox s,,"加密后" 
s=ChgStr(s,0):msgbox s,,"解密后" 

Function ChgStr(str,flag)'flag:1为加密，非1为解密
    s1="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/*-+.~!@#$%^&*()_{}|:"<>?=[];',.\"
    s2="SGk7B4arX8UFecwJ9O6y2ihWMNKDp1ZE0gsmlTAQ5HYLjVIzqfuobvCxtPR3nd"
    If Not flag=1 Then t=s1:s1=s2:s2=t
    For i=1 To Len(str)
        before=Mid(str,i,1)
        For j=1 To 62
        after=Replace(before,Mid(s1,j,1),Mid(s2,j,1))
        If Not before=after Then ChgStr=ChgStr&after:Exit For
        Next
    Next
End Function
复制代码

328612167

回复 2# CrLf


    我的目的是想加密一段字符串（这个字符串包含所有字符），在运行时又解密，不知怎样做才好

328612167

回复 5# yu2n

特殊字符不能处理

0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/*-+.~!@#$%^&*()_{}|:"<>?=[];',.\
复制代码

328612167

回复 2# CrLf


我的目的是想加密一段字符串（这个字符串可能包含以下所有字符）

0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/*-+.~!@#$%^&*()_{}|:"<>?=[];',.\
复制代码

不知有没有别的加密方式，还得解密

328612167

回复 9# yu2n


    你这个很完善。我之前是在我的那个代码上改的，所以出错了。多谢大神指点