频道分类

Delphi计算MD5

作者:admin 来源: 日期:2020/11/12 10:08:00 人气: 标签:

 
Delphi计算MD5
在密码学中,MD5(消息摘要算法5,消息摘要算法5)是一种128位密码减少算法,是当今使用最广泛的算法之一。

最常用的用途之一是检查文件是否尚未修改。

使用它的最好的例子之一是,当我们从互联网上下载文件时,分发者会给我们提供MD5哈希值,以便在下载后对其进行检查并确认其没有更改。

的MD5散列是128位长,但一般是在其32位的十六进制值读取。

Delphi中的MD5功能
Delphi不被豁免为一种编程语言,而是能够创建一个计算文件的MD5的函数。

要执行此功能,我们将需要三个单元,分别是IdHashMessageDigest, idHash和IdGlobal。

在这种情况下,我们执行两个类似的功能,一个功能以字符串形式计算MD5,另一个功能以文件形式计算MD5。

uses IdGlobal, IdHash, IdHashMessageDigest;
 
function getFileMd5HashString(const vFileName: string): string;
var
  vHashMD5: TIdHashMessageDigest5;
  vFile: TFileStream;
begin
  vFile := TFileStream.Create(vFileName, fmOpenRead OR fmShareDenyWrite);
  vHashMD5 := nil;
  try
    vHashMD5 := TIdHashMessageDigest5.Create;
    Result := IdGlobal.IndyLowerCase(vHashMD5.HashStreamAsHex(vFile));
  finally
    vHashMD5.Free;
  end;
end;
 
function getMd5HashString(const vValue: string): string;
var
  vHashMD5: TIdHashMessageDigest5;
begin
  vHashMD5 := nil;
  try
    vHashMD5 := TIdHashMessageDigest5.Create;
    Result := IdGlobal.IndyLowerCase(vHashMD5.HashStringAsHex(vValue));
  finally
    vHashMD5.Free;
  end;
end;
其使用形式如下:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Calcula el MD5 de una cadena
  showmessage(getMd5HashString('cadena de texto'));
 
  // Calcula el MD5 de un archivo
  showmessage(getFileMd5HashString('c:\file.xxx'));
end;

上一篇:Delphi Android权限下一篇:没有资料