\'Qwerty()如果QWERTY对应ABCDEF的话，那么其他字母的对应关系就是分别按照键盘顺序和字母顺序排列……
FunctionQwerty(ByValstr,ByValmode)
DimsSrc,sDes,arrSrc(),arrDes(),arrOut(),sTmp,a,b
sSrc= abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
sDes= qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM
Ifmode 0ThensTmp=sSrc:sSrc=sDes:sDes=sTmp
ReDimarrSrc(Len(sSrc)):ReDimarrDes(Len(sDes)):ReDimarrOut(Len(str))
Fora=0ToLen(sSrc)-1
arrSrc(a)=Mid(sSrc,a+1,1):arrDes(a)=Mid(sDes,a+1,1)
Next
Forb=0ToLen(str)-1
arrOut(b)=Mid(str,b+1,1)
Fora=0ToLen(sSrc)-1
IfarrOut(b)=arrSrc(a)ThenarrOut(b)=arrDes(a):ExitFor
Next
Next
Qwerty=Join(arrOut, )
EndFunction
回复
2012年2月9日如果QWERTY 对应 ABCDEF 的话,那么其他字母的对应关系就是分别按照键盘顺序和字母顺序排列。 QWERTYUIOPASDFGHJKLZXCVBNM <=> ABCDEFGHIJKLMNOPQRSTUV...QWERTY密码：加密与解密