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

HacKer_27849587 2010-12-24 08:36:18
原文字符串 = "简介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代码.
...全文
93 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
mocom 2011-01-04
  • 打赏
  • 举报
回复
是你的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
HacKer_27849587 2011-01-01
  • 打赏
  • 举报
回复
没有人知道吗? 这么久了?
HacKer_27849587 2010-12-25
  • 打赏
  • 举报
回复


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 还是反回来是错误的,这个要怎么处理呢?
mokson 2010-12-25
  • 打赏
  • 举报
回复
没有学过.
hookee 2010-12-24
  • 打赏
  • 举报
回复

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

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧