Copy Code code as follows:
<script type= "Text/vbscript" >
Function STR2ASC (STRSTR)
STR2ASC = Hex (ASC (STRSTR))
End Function
Function Asc2str (ASCASC)
ASC2STR = Chr (ASCASC)
End Function
</script>
Turn VBScript functions into JavaScript for easy use in non-IE browsers
Copy Code code as follows:
function Str2asc (strstr) {
Return ("0" +strstr.charcodeat (0). toString). Slice (-2);
}
function Asc2str (ASCASC) {
Return String.fromCharCode (ASCASC);
}
Copy Code code as follows:
<script type= "Text/javascript" >
/* Here we start UrlEncode and urldecode functions * *
function UrlEncode (str) {
var ret= "";
var strspecial= "!\" #$%& ' () *+,/:;<=>? []^`{|} ~%";
var tt= "";
for (Var i=0;i<str.length;i++) {
var chr = Str.charat (i);
var c=str2asc (CHR);
tt + + chr+ ":" +c+ "n";
if (parseint ("0x" +c) > 0x7f) {
ret+= "%" +c.slice (0,2) + "%" +c.slice (-2);
}else{
if (chr== "")
ret+= "+";
else if (Strspecial.indexof (CHR)!=-1)
ret+= "%" +c.tostring (16);
Else
RET+=CHR;
}
}
return ret;
}
function UrlDecode (str) {
var ret= "";
for (Var i=0;i<str.length;i++) {
var chr = Str.charat (i);
if (Chr = = "+") {
ret+= "";
}else if (chr== "%") {
var asc = str.substring (i+1,i+3);
if (parseint ("0x" +asc) >0x7f) {
Ret+=asc2str (parseint ("0x" +asc+str.substring (i+4,i+6));
i+=5;
}else{
Ret+=asc2str (parseint ("0x" +asc));
i+=2;
}
}else{
ret+= CHR;
}
}
return ret;
}
Alert (UrlDecode ("%c2%d2%c2%eb"));
</script>