Base64解码西里尔用户名转码异常：部分转换失败求排查方案

核心问题 #

1. 转换逻辑错误：你当前的代码执行的是UTF8 → WIN1251 → UTF8的无效转换，而正确的反向流程需要还原设备的错误编码路径：
   设备错误流程：原始UTF8字节 → 被当作WIN1251解码为Unicode字符串 → 重新UTF8编码 → Base64
   正确反向流程：Base64解码 → UTF8字节解码为Unicode字符串 → WIN1251编码得到原始UTF8字节 → UTF8解码为正确用户名

2. 字符集不匹配：部分用户名包含乌克兰语特有的字符（如і，U+0456），这些字符不在WIN1251字符集中，默认转换会抛出No mapping for the Unicode character exists in the target multi-byte code page异常。

修复后的代码 #

方案1：WIN1251+容错处理 #

此方案兼容大部分场景，对无法映射的字符进行替换或忽略：

procedure TForm3.Button1Click(Sender: TObject);

  function Convert(ABase64String : string) : string;
  var
    Win1251: TEncoding;
    DecodedUTF8Bytes: TBytes;
    DecodedUnicodeStr: string;
    OriginalUTF8Bytes: TBytes;
  begin
    Win1251 := TEncoding.GetEncoding(1251);
    try
      // 设置容错替换，避免无法映射的字符抛出异常
      Win1251.EncoderFallback := TEncoderReplacementFallback.Create('?'); // 用?替换无法映射的字符
      Win1251.DecoderFallback := TDecoderReplacementFallback.Create('?');

      // 1. Base64解码得到设备错误编码后的UTF8字节
      DecodedUTF8Bytes := TNetEncoding.Base64.DecodeBytes(ABase64String);
      // 2. 用UTF8解码得到设备错误解码后的Unicode字符串
      DecodedUnicodeStr := TEncoding.UTF8.GetString(DecodedUTF8Bytes);
      // 3. 用WIN1251编码，还原原始UTF8字节
      OriginalUTF8Bytes := Win1251.GetBytes(DecodedUnicodeStr);
      // 4. UTF8解码得到正确用户名
      Result := TEncoding.UTF8.GetString(OriginalUTF8Bytes);
    finally
      Win1251.Free;
    end;
  end;

const
  s1 = '0KDRmtCg0ZHQodCD0KHQi9Cg0ZQg0KDRmtCg0ZHQoNGU0KDRldCgwrvQoMKwIA==';
  s2 = '0KDigJjQodGT0KDCttCg0ZHQoNCF0KHQitCh0IPQoNGU0KHigJMg0KDRmtCh4oCT0KE=';
begin
  ShowMessage(Convert(s1));
  ShowMessage(Convert(s2));
end;

方案2：乌克兰语专用编码（KOI8-U） #

如果设备当初使用的是乌克兰语专用编码KOI8-U（代码20866），替换编码类型即可完美支持所有乌克兰语字符：

// 将TEncoding.GetEncoding(1251)替换为：
Win1251 := TEncoding.GetEncoding(20866); // KOI8-U编码

旧程序正常工作的原因 #

旧程序的UTF8->WIN操作本质是执行了正确的反向转换流程，并且默认启用了字符容错替换机制，不会因无法映射的字符抛出异常，因此能处理所有用户名。

内容的提问来源于stack exchange，提问作者Oleksandr Morozevych