使用 PHP 解譯 javascript escape() 編碼過的字串

最新推荐文章于 2025-04-25 16:12:41 发布

coolbaby

最新推荐文章于 2025-04-25 16:12:41 发布

阅读量1.5k

点赞数

文章标签： javascript php vbscript function integer encoding

本文链接：https://blog.youkuaiyun.com/coolbaby/article/details/503877

版权

使用 PHP 解譯 javascript escape() 編碼過的字串

PHP 跟 Javascript 都有 HTML encoding 的函式，編碼過的結果雖然類似，但是還是有些微的不同，所以不能互轉。

二者的差異可以可參考:
http://web.archive.org/web/20030811181238/http://php.weblogs.com/php_jscript_vbscript_1

節錄如下:

PHP:
urlencode( ) All punctuation, accented characters, and any other non-ASCII characters are replaced with %xx encoding. Spaces converted to +.

urldecode( )All punctuation, accented characters, and any other non-ASCII characters are replaced with %xx encoding. Spaces converted to +.

Javascript:
escape(str) All spaces, punctuation, accented characters, and any other non-ASCII characters are replaced with %xx encoding

那要如何用 PHP 來讀取 escape() 編碼過的字串呢?

可以用以下的方式來讀取 (範例為 Unicode 解譯為 big5)

修改自:http://web.archive.org/web/20041031225806/http://vivian.stripper.jp/index.php?itemid=100

$str = uniDecode($str,'big-5');

function uniDecode($str,$charcode){

  $text = preg_replace_callback("/%u[0-9A-Za-z]{4}/",toUtf8,$str);

  return mb_convert_encoding($text, $charcode, 'utf-8');

}

function toUtf8($ar){

  foreach($ar as $val){

    $val = intval(substr($val,2),16);

    if($val < 0x7F){        // 0000-007F

        $c .= chr($val);

    }elseif($val < 0x800) { // 0080-0800

        $c .= chr(0xC0 | ($val / 64));

        $c .= chr(0x80 | ($val % 64));

    }else{                // 0800-FFFF

        $c .= chr(0xE0 | (($val / 64) / 64));

        $c .= chr(0x80 | (($val / 64) % 64));

        $c .= chr(0x80 | ($val % 64));

    }

  }

  return $c;

}

附上delphi对escape的处理代码：

function Escape(const StrToEscape:WideString):String;
var
i:Integer;

w:Word;
begin
Result:='';

for i:=1 to Length(StrToEscape) do
begin
w:=Word(StrToEscape[i]);

if w in [Ord('0')..Ord('9'),Ord('A')..Ord('Z'),Ord('a')..Ord('z')] then
Result:=Result+Char(w)
else if w<=255 then
Result:=Result+'%'+IntToHex(w,2)
else
Result:=Result+'%u'+IntToHex(w,4);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=Escape('aA 中文0 Bb');
end;

function Unescape(const StrEscaped:String):WideString;
function UnescapeUncodeChar(const s:String):WideChar;
var
r:Array [0..1] of Byte;
begin
HexToBin(
PChar(LowerCase(s)),
@r,
SizeOf(r)
);
Result:=WideChar((r[0] shl 8) or r[1]);
end;
function UnescapeAnsiChar(const s:String):Char;
begin
HexToBin(
PChar(LowerCase(s)),
@Result,
SizeOf(Result)
);
end;
var
i:Integer;

c:Integer;
begin
c:=1;
SetLength(Result,Length(StrEscaped));

i:=1;
while i<=Length(StrEscaped) do
begin
if StrEscaped[i]='%' then
begin
if (i<Length(StrEscaped)) and (StrEscaped[i+1]='u') then
begin
Result[c]:=UnescapeUncodeChar(
Copy(
StrEscaped,i+2,4
)
);//Do with '%uxxxx'
Inc(i,6);
end
else
begin
Result[c]:=WideChar(
UnescapeAnsiChar(
Copy(StrEscaped,i+1,2)
)
);//Do with '%xx'
Inc(i,3);
end;
end
else
begin
Result[c]:=WideChar(StrEscaped[i]);

Inc(i);
end;

Inc(c);
end;

SetLength(Result,c-1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=Unescape('aA%65%u4E2D%u6587%64Bb');
end;