关于 Delphi 7 中文MD5的问题

玥阳勤峰 發表於 2020-4-11 11:53:00

使用Indy自带的md5算法，代码如下：
<div class="cnblogs_code">
<pre>uses IdHash, IdHashMessageDigest;

function GetStringMD5(const AInPut: string): string;
var
MD5: TIdHashMessageDigest5;
{$IF CompilerVersion<20.0}
Digest: T4x4LongWordRecord;
{$IFEND}
begin
MD5 := TIdHashMessageDigest5.Create;
try
{$IF CompilerVersion>20.0} // Delphi 2009 +
Result := LowerCase(MD5.HashStringAsHex(AInPut));
{$ELSE}
Digest := MD5.HashValue(AInPut);
Result := LowerCase(MD5.AsHex(Digest));
{$IFEND}
finally
MD5.Free;
end;
end;</pre>
</div>
<img src="https://img2020.cnblogs.com/blog/1013147/202004/1013147-20200417092418590-28894152.png">
我们测试 GetStringMD5(123abc) ，MD5值为：a906449d5769fa7361d7ecc6aa3f6d28 ，和在线MD5得到结果一致。
<div class="cnblogs_code">
<pre>procedure TForm1.btnMD5Click(Sender: TObject);
begin
Edit2.Text := GetStringMD5(Edit1.Text);
end;</pre>
</div>
如果包含中文，比如：GetStringMD5('123abc你好')，则MD5值就不对了。
<img src="https://img2020.cnblogs.com/blog/1013147/202004/1013147-20200417093248466-75179323.png">
其实算法没问题，是编码的问题。一般MD5都是使用UTF8编码，使用的时候需要把字符串转换为UTF8编码：
<div class="cnblogs_code">
<pre>ShowMessage(GetStringMD5(UTF8Encode('123abc你好')));</pre>
</div>
MD5值为：d9926163f751c6c2e6393bc332a5c814
如果使用 Delphi XE8 以上版本的 System.Hash.THashMD5，就不需要UTF8转换了，因为内部已经做了转换：
<div class="cnblogs_code">
<pre>procedure THashMD5.Update(const Input: string);
begin
Update(TEncoding.UTF8.GetBytes(Input));
end;</pre>
</div>
只要这样就可以了：
<div class="cnblogs_code">
<pre>ShowMessage(System.Hash.THashMD5.GetHashString('123abc你好'));</pre>
</div>
为了使用方便，把 GetStringMD5 修改一下，使用的时候就不用UTF8Encode转换了。
<div class="cnblogs_code">
<pre>function GetStringMD5(const AInPut: string): string;
var
MD5: TIdHashMessageDigest5;
{$IF CompilerVersion<20.0}
Digest: T4x4LongWordRecord;
{$IFEND}
begin
MD5 := TIdHashMessageDigest5.Create;
try
{$IF CompilerVersion>20.0} // Delphi 2009 +
Result := LowerCase(MD5.HashStringAsHex(AInPut));
{$ELSE}
Digest := MD5.HashValue(UTF8Encode(AInPut));
Result := LowerCase(MD5.AsHex(Digest));
{$IFEND}
finally
MD5.Free;
end;
end;</pre>
</div>
 
</audio>

</div>
<div id="MySignature" role="contentinfo">
<div id="AllanboltSignature">
<p style="border-top: #e0e0e0 1px dashed; border-right: #e0e0e0 1px dashed; border-bottom: #e0e0e0 1px dashed; border-left: #e0e0e0 1px dashed; padding-top: 5px; padding-right: 10px; padding-bottom: 10px; padding-left: 60px; background: url("https://images.cnblogs.com/cnblogs_com/lloydsheng/239039/o_copyright.gif") #e5f1f4 no-repeat 1% 50%; font-family: 微软雅黑; font-size: 11px" id="PSignature">
 作者：
 oldfarmer
 出处：
 http://www.cnblogs.com/rtcmw/
 欢迎探讨交流 DELPHI 相关技术，QQ:64445322 QQ群：734515869
 本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。
</div>
<div>

</div> 
来源：https://www.cnblogs.com/rtcmw/p/12678595.html

頁: [1]

琼殿技术论坛's Archiver

关于 Delphi 7 中文MD5的问题