28,391
社区成员
发帖
与我相关
我的任务
分享
'[in]blnEncode=true为加密,false为解密
'[in]strData为输入数据
'[out]encode为处理后数据
Function encode(strData,blnEncode)
Dim i,j,k,a
Dim aTable,strRet
aTable=Array("abcdefghijklmnopqrstuvwxyz","gmpidusfjtblyehqxkcanorzwv")
For i=1 To Len(strData)
a=lcase(Mid(strData,i,1))
If a<"z" And a>"a" Then
If blnEncode Then
a=Mid(aTable(1),InStr(aTable(0),a),1)
Else
a=Mid(aTable(0),InStr(aTable(1),a),1)
End If
End If
strRet=strRet & a
Next
encode=strRet
End Function