ASP小技巧：对Server.UrlEncode进行字符反编译_ASP教程_编程技术
2013-12-20 09:06:28
[小 大]
已经帮助：人解决问题
encode|server|编译|技巧
我们这里试输出一段字符：<%response.write Server.UrlEncode("织梦幻影")%>，页面显示结果为：%D6%AF%C3%CE%BB%C3%D3%B0，已成功编译。如果再对其进行反编译处理呢？
'该函数转自互联网
function urldecode(encodestr)
newstr=""
havechar=false
lastchar=""
for i=1 to len(encodestr)
char_c=mid(encodestr,i,1)
if char_c="+" then
newstr=newstr & " "
elseif char_c="%" then
next_1_c=mid(encodestr,i+1,2)
next_1_num=cint("&H" & next_1_c)
if havechar then
havechar=false
newstr=newstr & chr(cint("&H" & lastchar & next_1_c))
else
if abs(next_1_num)<=127 then
newstr=newstr & chr(next_1_num)
else
havechar=true
lastchar=next_1_c
end if
end if
i=i+2
else
newstr=newstr & char_c
end if
next
urldecode=newstr
end function
function urldecode(encodestr)
newstr=""
havechar=false
lastchar=""
for i=1 to len(encodestr)
char_c=mid(encodestr,i,1)
if char_c="+" then
newstr=newstr & " "
elseif char_c="%" then
next_1_c=mid(encodestr,i+1,2)
next_1_num=cint("&H" & next_1_c)
if havechar then
havechar=false
newstr=newstr & chr(cint("&H" & lastchar & next_1_c))
else
if abs(next_1_num)<=127 then
newstr=newstr & chr(next_1_num)
else
havechar=true
lastchar=next_1_c
end if
end if
i=i+2
else
newstr=newstr & char_c
end if
next
urldecode=newstr
end function
最后输出反编译为：<%response.write UrlDecode("%D6%AF%C3%CE%BB%C3%D3%B0")%>
或者：<%response.write UrlDecode(Server.UrlEncode("织梦幻影"))%>
（责任编辑：）
友情链接:联系人：QQ370158739