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

[afu45]

编码如下

%E6%82%B2%E6%AD%8C

请问如何解密出来

是“悲歌” 两个字

[jadeluo]

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;

[bdmh]

[Quote=引用 1 楼 jadeluo 的回复:]
UTF-8编码的字符串, 写个函数来解码就行了:


Delphi(Pascal) code
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 (UTF8Str…
[/Quote]

楼上正解