base64 解码

[zqycn]

/wEPDwULLTExNDgzODY2MzkPZBYCAgMPZBYEAgMPZBYUZg9kFgICBQ8WAh4HVmlzaWJsZWdkAgEPFgIfAGhkAgIPFgIfAGcWBgIBDxYCHwBnZAIDDxYCHwBnZAIFDxYCHwBnZAIDDxYCHwBnFgYCAQ8WAh8AZ2QCAw8WAh8AZ2QCBQ8WAh8AZ2QCBA8WAh8AZ2QCBQ8WAh8AZxYEAgEPFgIfAGdkAgMPFgIfAGdkAgYPFgIfAGcWBAIBDxYCHwBnZAIDDxYCHwBnZAIHDxYCHwBnFggCAQ8WAh8AZ2QCAw8WAh8AZ2QCBQ8WAh8AZ2QCBw8WAh8AZ2QCCA8WAh8AZxYEAgEPFgIfAGdkAgMPFgIfAGdkAgkPFgIfAGcWCgIBDxYCHwBnZAIDDxYCHwBnZAIFDxYCHwBnZAIHDxYCHwBnZAIJDxYCHwBnZAIRDxYCHgtfIUl0ZW1Db3VudGZkZMeEYAYWTq5WZERLpVErIC9+bEwxiSsyS7UtDEBzwOTZ
请问这个是 base64位的，怎么解码，我有解了一些 但是中文全部是乱码？
这是 asp.net 的 __VIEWSTATE 中的数据

[堕落恶魔_Delphi]

先问清楚了, 里面的内容是使用哪种编码(UTF-8? ANSI? 还是其他什么)

[doloopcn]

BASE64一般不会乱码，应该是没有问清楚源码是哪种编码，所以才出现乱码

[zqycn]

UTF-8 编码

[BlueStorm]

你这个Base64字符串，不论用那种编码都无法解码成普通的字符串。

procedure TForm1.Decode;
var
  Str: String;
  Buffer: TBytes;
begin
  Str := '/wEPDwULLTExNDgzODY2MzkPZBYCAgMPZBYEAgMPZBYUZg9kFgICBQ8WAh4HVmlzaWJ'+
         'sZWdkAgEPFgIfAGhkAgIPFgIfAGcWBgIBDxYCHwBnZAIDDxYCHwBnZAIFDxYCHwBnZA'+
         'IDDxYCHwBnFgYCAQ8WAh8AZ2QCAw8WAh8AZ2QCBQ8WAh8AZ2QCBA8WAh8AZ2QCBQ8WA'+
         'h8AZxYEAgEPFgIfAGdkAgMPFgIfAGdkAgYPFgIfAGcWBAIBDxYCHwBnZAIDDxYCHwBn'+
         'ZAIHDxYCHwBnFggCAQ8WAh8AZ2QCAw8WAh8AZ2QCBQ8WAh8AZ2QCBw8WAh8AZ2QCCA8'+
         'WAh8AZxYEAgEPFgIfAGdkAgMPFgIfAGdkAgkPFgIfAGcWCgIBDxYCHwBnZAIDDxYCHw'+
         'BnZAIFDxYCHwBnZAIHDxYCHwBnZAIJDxYCHwBnZAIRDxYCHgtfIUl0ZW1Db3VudGZkZ'+
         'MeEYAYWTq5WZERLpVErIC9+bEwxiSsyS7UtDEBzwOTZ';
  Buffer := TNetEncoding.Base64.DecodeStringToBytes(Str);
  Str := TEncoding.UTF8.GetString(Buffer);
end;

[武稀松]

解出来你有编码兼容吗,Unicode,GBK?