asp解密问题大神呢？大神

Question

怎么执行出错。。解密以后我要的是数字，怎么解密后是乱码呢？

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>"

Answer 1

cntCode = Len(HhaCode) - 1

你的HhaCode变量在哪里？没有复制就是空，这样cntCode就是-1了，flag越界报错了