<%Function AscDecrypt(AscDecode)For iDe=1 To Len(AscDecode)DeTexts = DeTexts & Asc(Mid(AscDecode,iDe,2)) & "a"NextDeTexts = Replace(DeTexts,"-","u")AscDecrypt = Left(DeTexts,Len(DeTexts)-1)End FunctionFunction AscEncrypt(AscEncode)AscEncode = Replace(AscEncode,"u","-")EncodeArr = Split(AscEncode,"a")...
|