在Delphi中编译为32位或64位时,MD5 base64哈希是不同的 – 我怎

我正在使用Delphi XE2和以下代码创建一个MD5 base64哈希,用于亚马逊MWS.如果我为32位 Windows编译它,它可以工作,但如果我为64位窗口编译,则返回哈希值会发生变化.造成这种情况的原因是什么？我如何更改它以便它们返回相同的哈希值？

function getMd5HashString(value: string): string;
var
  MessageDigest: TIdHashMessageDigest5;
  Content: TBytes;
begin
  Content := TEncoding.UTF8.GetBytes(value);
  MessageDigest:=TIdHashMessageDigest5.Create;
  Result:=Data.Cloud.CloudAPI.EncodeBytes64(MessageDigest.HashBytes(Content));
end;

Thansk提前.

编辑：

我在以下测试中使用上述功能;

procedure Button1Click(Sender: TObject);
begin
  Edit2.Text := getMd5HashString(Edit1.Text);
end;

我过世了

<?xml version="1.0" encoding="utf-8"?>

作为字符串,只是为了测试.如果我使用Windows 32位目标平台编译程序,则返回的哈希是;

I3pK / R hpYOKY1IQRviZbQ ==

然而,如果我使用Windows 64位目标平台编译程序,我会得到;

bmkkAOXGhLdDFCUuNBuSxw ==

我希望大卫回答你？

Edit2：David建议的完整程序;

unit ContentHashTest;

interface

uses
  Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Data.Cloud.CloudAPI,IdGlobal,IdHash,IdHashMessageDigest,IdCoder,IdCoderMIME,Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    function getMd5HashString(value: string): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := getMd5HashString(Edit1.Text);
end;

function TForm1.getMd5HashString(value: string): string;
var
  MessageDigest: TIdHashMessageDigest5;
  Content: TBytes;
begin
  Content := TEncoding.UTF8.GetBytes(value);
  MessageDigest:=TIdHashMessageDigest5.Create;
  Result:=Data.Cloud.CloudAPI.EncodeBytes64(MessageDigest.HashBytes(Content));
end;

end.

那是我的开始尝试.大卫的建议在下面我把它改成了;

unit ContentHashTest;

interface

uses
  Winapi.Windows,Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    function getMd5HashString(value: string): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := getMd5HashString(Edit1.Text);
end;

function TForm1.getMd5HashString(value: string): string;
var
  MessageDigest: TIdHashMessageDigest5;
  Content: TIdBytes;
begin
  Content := TIdTextEncoding.UTF8.GetBytes(value);
  MessageDigest := TIdHashMessageDigest5.Create;
  try
    Result := TIdEncoderMIME.EncodeBytes(MessageDigest.HashBytes(Content));
  finally
    MessageDigest.Free;
  end;
end;

end.

不幸的是,结果不同.

Win32 = I3pK / R hpYOKY1IQRviZbQ ==

Win64 = bmkkAOXGhLdDFCUuNBuSxw ==

{$APPTYPE CONSOLE}

uses
  SysUtils,IdHashMessageDigest;

function getMd5HashString(value: string): string;
var
  MessageDigest: TIdHashMessageDigest5;
  Content: TIdBytes;
begin
  //Content := TIdTextEncoding.UTF8.GetBytes(value); // for older versions of Indy
  Content := IndyTextEncoding_UTF8.GetBytes(value);
  MessageDigest := TIdHashMessageDigest5.Create;
  try
    Result := TIdEncoderMIME.EncodeBytes(MessageDigest.HashBytes(Content));
  finally
    MessageDigest.Free;
  end;
end;

begin
  Writeln(getMd5HashString('<?xml version="1.0" encoding="utf-8"?>'));
  Readln;
end.