一个关于网址参数编码的解码算法 求救啊~~~~~~~~~

Question

编码如下
%E6%82%B2%E6%AD%8C
请问如何解密出来是“悲歌” 两个字

Answer 1

UTF-8编码的字符串, 写个函数来解码就行了:
function UTF8StringDecode(S: String): String;
var
  U : UTF8String;
  i : Integer;
begin
  SetLength (U, Length(S) div 3);
  for i := 1 to Length(U) do
    U[i] := chr(StrToInt('$' + copy(S, i * 3 - 1, 2)));
  Result := UTF8Decode(U);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage (UTF8StringDecode('%E6%82%B2%E6%AD%8C'));
end;