- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在使用 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==
但是您报告了不同的行为,那么原因可能是什么?我可以想到以下可能的解释:
TEncoding.UTF8.GetBytes
有缺陷。TIdHashMessageDigest5.HashBytes
有缺陷。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/
是否有任何库或框架旨在促进从另一种成熟的编程语言中构建项目? 在 C++、java 等编程语言中指定逻辑、集合和复杂规则非常容易,但在 Makefile 中完成这些事情似乎是一场艰苦的战斗。我还没有深
我有这段代码可以用 clang 编译得很好(即使使用 -Weverything),但是 gcc 会发出错误。 #include #include #include using namespace
我有以下 block 头文件 BKE_mesh.h: /* Connectivity data */ typedef struct IndexNode { struct IndexNode *
我在我的一个项目中遇到了一个奇怪的问题。我的代码库依赖于一个外部库,其中包含一个名为 Dataset 的类. Dataset类私有(private)继承自 std::vector (其中 Sample
当使用 gcc、g++ 或 make 在终端中编译一个小型 C 或 C++ 项目时,我收到以下错误: /tmp/ccG1caGi.o: In function `main': main.c:(.tex
我正在尝试从 CVS 为 Windows 上的 Emacs 23.1.50 编译 CEDET,但在“第 6 步:打开 EDE...”时出现错误:“defvar:作为变量的符号值是无效的:cedet-m
我正在(重新)学习编程,我从 C 开始。我的 IDE(如果我可以这么说)是 Windows7 上的 cygwin(32 位)和 Visual-Studio 2010。我总是编译我用 gcc (cygw
我喜欢在模板类中使用本地类来执行类似“static if”的构造。但是我遇到了 gcc 4.8 不想编译我的代码的问题。但是 4.7 可以。 这个例子: #include #include #in
我有一个项目,必须仅使用 java 1.4 进行编译。但我计划使用mockito 编写一些单元测试。我想要一种在 pom 中指定的方法,以便 src/main/java 使用 jdk 1.4 编译,但
我想了解 PHP 编译过程是如何工作的。 假设我有一个名为funcs.php 的文件并且这个文件有三个函数,如果我include 或require 它,所有的在文件加载期间编译三个函数?或者源代码会被
编译工具链 我们写程序的时候用的都是集成开发环境 (IDE: Integrated Development Environment),集成开发环境可以极大地方便我们程序员编写程序,但是配置起来
当我编写一些 Scala 代码时,在尝试编译代码时收到一条奇怪的错误消息。我将代码分解为一个更简单的代码(从语义的角度来看这完全没有意义,但仍然显示了错误)。 scala> :paste // Ent
我正在编译一个 SCSS 文件,它似乎删除了我的评论。我可以使用什么命令来保留所有评论? >SASS input.scss output.css 我在 SCSS 中看到两种类型的注释。 // Comm
这是我的代码: #include typedef struct { const char *description; float value; int age; } swag
当您编译 grails war 时,我知道 .groovy 代码被编译为字节码类文件,但我不明白容器(例如 tomcat)如何在请求 GSP 时知道如何编译它们。容器了解 GSP 吗?安装在服务器上的
我正在努力将多个文件编译成一个通用程序。我收到一个错误: undefined reference to 'pi' 这是我的代码和 Makefile 的框架。我做错了什么?谢谢! 文件:calcPi.c
我尝试使用 LD_PRELOAD 来 Hook sprintf function ,所以我将打印到缓冲区的结果: #define _GNU_SOURCE #include #include int
我正在寻找最简单的方法来自动将 CoffeeScript 重新编译为 JS。 阅读documentation但仍然很难得到我想要的东西。 我需要它来监视文件夹 src/ 中的任何 *.coffee 文
我想使用定制waveformjs 。我发现this on SO但是,我不知道如何编译/安装波形来开始。我从 GitHub 克隆它并进行了更改,但是我不知道如何将其转换为 .js 文件。 最佳答案 为了
很难说出这里问的是什么。这个问题是含糊的、模糊的、不完整的、过于宽泛的或修辞性的,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开它,visit the help center 。 已关
我是一名优秀的程序员,十分优秀!