Delphi 2007 升级到Delphi xe2时，遇到aes加密中chr函数问题，两个版本返回的数据不一致

[violetlength]

高版本中，需要怎么调整？如下转换函数，在两个版本的Delphi中，返回的数据不一致；
并且，高版本中按照如下这两种AnsiChar和chr  ，打印后获取的值也不一致；

LogToFile(IntToStr(I)+'=='+AnsiChar(StrToInt('0x' + Copy(Value, I, 2))), True);

LogToFile(IntToStr(I)+'++'+Chr(StrToInt('0x' + Copy(Value, I, 2))), True);

 

比如 '0xE2'  前者是？，后者是a

==?
++a
--0xE2

再比如：'0xC9'  前者返回是？，后者是é

==?
++é
--0xC9

 

这样升级Delphi版本后，就不能通用了；那么，这种情况，高版本中如何替换Chr函数，能够实现一致的返回值呢？还是说无解？

 

具体的函数如下：

function HexToStr(Value: string): string;
  var
    I: Integer;
  begin
    Result := '';
    LogToFile('=='+IntToStr(Length(Value)), True);
    for I := 1 to Length(Value) do
    begin
      if ((I mod 2) = 1) then
      begin
        LogToFile(IntToStr(I)+'=='+AnsiChar(StrToInt('0x' + Copy(Value, I, 2))), True);
        LogToFile(IntToStr(I)+'++'+Chr(StrToInt('0x' + Copy(Value, I, 2))), True);

//        LogToFile(IntToStr(I)+'--'+'0x' + Copy(Value, I, 2), True);
        Result := Result + Chr(StrToInt('0x' + Copy(Value, I, 2)));
      end;
    end;
    LogToFile('=='+Result, True);
  end;

 

[周芷弱不弱]

🔗ChatGPT、AI绘图在线体验
🔗Admin、Vue、Vite、Node、Midway、uniapp、Iot、外包、小程序
🔗Cool-Admin、快速开发、CRUD、权限管理系统