求: 16进制字符串到转中英文字符串函数

[HacKer_27849587]

原文字符串 = "简介123456"

16进制字符串 = "BCF2BDE9313233343536"

我想用16进制字符串到反过来把明文输出.

Function StrToHex(x)
For i=1 to Len(x)
StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))
Next
End Function
Response.Write StrToHex("简介123456") & "<br/>"

Function HexToStr(x)
For i=1 to Len(x)/2
HexToStr = HexToStr & Chr("&H" & Mid(X,i*2-1,2))
Next
End Function
Response.Write HexToStr("BCF2BDE9313233343536")

我这样写是错误的..

我知道中文是2个字节,我不知道怎么写了

请求哪个大哥给我完整的Asp代码.

[hookee]

Function StrToHex(x)
    For i=1 to Len(x)
        StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))
    Next
End Function
Response.Write StrToHex("简介123456") & "<br/>"

Function HexToStr(x)
    Dim t, s, c
    s = ""
    For i=1 to Len(x) Step 2
        t = Mid(x,i,2)
        If Eval("&H"+t)>127 Then
            t = Mid(x,i,4)
            i = i + 2
        End If
        s = s & Chr("&H"+t)
    Next
    HexToStr = s
End Function
Response.Write HexToStr("BCF2BDE9313233343536")

[mokson]

没有学过.

[HacKer_27849587]

Function StrToHex(x)
    For i=1 to Len(x)
        StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))
    Next
End Function
Response.Write StrToHex("简介123" & vbcrlf & "456") & "<br/>"

Function HexToStr(x)
    Dim t, s, c
    s = ""
    For i=1 to Len(x) Step 2
        t = Mid(x,i,2)
        If Eval("&H"+t)>127 Then
            t = Mid(x,i,4)
            i = i + 2
        End If
        s = s & Chr("&H"+t)
    Next
    HexToStr = s
End Function
Response.Write HexToStr("BCF2BDE9313233DA343536")

要是这样加入 vbcrlf 还是反回来是错误的,这个要怎么处理呢?

[HacKer_27849587]

没有人知道吗? 这么久了?

[mocom]

是你的StrToHex函数有问题
Function StrToHex(x)
For i=1 to Len(x)
h = Hex(Asc(Mid(X,i,2)))
If Len(h) < 2 Then StrToHex = StrToHex & "0"
StrToHex = StrToHex & h
Next
End Function