gpt4 book ai didi

delphi - MD5 base64 哈希在 Delphi 中编译为 32 位或 64 位时是不同的 - 我怎样才能使它们相同?

转载 作者:行者123 更新时间:2023-12-03 15:08:50 48 4
gpt4 key购买 nike

我正在使用 Delphi XE2 和以下代码创建 MD5 base64 哈希以与 Amazon MWS 一起使用。如果我为 32 位 Windows 编译它,它会起作用,但如果我为 64 位 Windows 编译,返回哈希会发生变化。是什么导致了这个问题,我该如何改变这个问题,以便它们返回相同的哈希值?

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;

提前致谢。

编辑:

我在下面的测试中使用上述函数;

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==

我希望这能回答你,大卫?

编辑2:大卫建议的完整程序;

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, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, 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: 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,
IdGlobal,
IdCoderMIME,
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.

我使用 Indy 执行所有转换:文本到 UTF-8 字节、MD5 散列和 Base64 编码。但您应该为此使用任何库,因为它们都应该提供相同的输出。

该程序为 32 位和 64 位生成相同的输出,正如预期的那样:

I3pK/R+hpYOKY1IQRviZbQ==

但是您报告了不同的行为,那么原因可能是什么?我可以想到以下可能的解释:

  1. 实际上,您并未将相同的输入值传递给两个版本中的函数。
  2. TEncoding.UTF8.GetBytes 有缺陷。
  3. TIdHashMessageDigest5.HashBytes 有缺陷。
  4. Data.Cloud.CloudAPI.EncodeBytes64 有缺陷。

无论如何,我认为使用 Data.Cloud.CloudAPI 执行 Base64 编码没有任何意义,尽管我没有理由相信它不起作用。由于您已经在使用 Indy 库,因此统一执行此操作更有意义。

从这里我无法判断上述哪种解释是您报告的原因。您应该能够进一步调试以找出答案。查看流程中每个步骤的输出,找出行为变化的地方。

<小时/>

更新:我现在已经成功重现该错误,但只能使用 XE2 附带的 Indy 版本。我在最初的实验中使用了更新版本的 Indy。

问题似乎出在我列表中的第 3 项。这在 x64 编译器下给出了不正确的结果。

您应该通过寻找不同的 MD5 实现来解决问题。我的建议是通过升级 Indy 来做到这一点。

关于delphi - MD5 base64 哈希在 Delphi 中编译为 32 位或 64 位时是不同的 - 我怎样才能使它们相同?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43042815/

48 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com