28,390
社区成员
发帖
与我相关
我的任务
分享
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")
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")
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")