asp加密解密求解决求大神来啊。。。
 这是解密的执行代码出现,
a = "6々66々85々21々69々4々87々82々65々3々75々74々64々"
    这行里面的内容是6-66-粘贴上来就变这样了,解密以后页面显示空白。
 a = "6-66-85-21-69-4-87-82-65-3-75-74-64-"


==================================================================================
<%
Function EnCodeY(sText)
Dim arrCode()
Dim sCode
sCode = Request.Cookies("ddd")("Qmxanman")

arrData = split(sText, CHR(-24151))

cntData = UBOUND(arrData) - 1
cntCode = Len(sCode) - 1

Redim arrCode(cntCode)

For i = 0  To cntCode
arrCode(i) = Mid(sCode, i + 1, 1)
Next

flag = 0
strResult = ""
For i = 0 To cntData
strResult = strResult & CHR(Cint(arrData(i)) XOR ASC(arrCode(flag)))
IF flag = cntCode Then
flag = 0
Else
flag = flag + 1
End IF
Next

EnCodeY = strResult
End Function

a = "6々66々85々21々69々4々87々82々65々3々75々74々64々"
response.write EnCodeY(a)&"<br>"

%>
==================================================================================

2个回答

没有解决问题啊。。。。。

sCode = Request.Cookies("ddd")("Qmxanman") 这一行可能读到的数据是空的

qq_36257233
qq_36257233 而且在Function EnCodeY(sText)里面?response.write EnCodeY(a)&"<br>" 这里调用fun执行解密以后,但是显示空白!
2 年多之前 回复
qq_36257233
qq_36257233 这行不是读取cookies吗?
2 年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问