怎么执行出错。。解密以后我要的是数字,怎么解密后是乱码呢?
Function EnxCodeX(sText)
Dim arrxData()
Dim arrxCode()
cntData = Len(sText) - 1
cntCode = Len(HhaCode) - 1
Redim arrxData(cntData)
Redim arrxCode(cntCode)
For enxI = 0 To cntData
arrxData(enxI) = Mid(sText, enxI + 1, 1)
Next
For enxI = 0 To cntCode
arrxCode(enxI) = Mid(HhaCode, enxI + 1, 1)
Next
flag = 0
strResult = ""
For enxI = 0 To cntData
strResult = strResult & ((ASC(arrxData(enxI)) XOR ASC(arrxCode(flag)))) & CHR("-")
IF flag = cntCode Then
flag = 0
Else
flag = flag + 1
End IF
Next
EnxCodeX = strResult
End Function
a="68-4-70-31-11-88-67-7-26-8-85-92-72-"
response.write EnxCodeX(a)&"<br>"