delphi 获取MD5

行路之马

获取MD5

代码

uses
  System.Hash;

procedure TForm1.Button1Click(Sender: TObject);
var
  vStream: TMemoryStream;
  vBytes: TBytes;
  I: Integer;
begin
  //获取字符串的MD5值
  Memo1.Lines.Add(THashMD5.GetHashString('测试数据'));
  //获取文件的MD5值
  Memo1.Lines.Add(THashMD5.GetHashStringFromFile('C:\Users\Administrator\Desktop\ceshi.db'));
  //获取流的MD5值
  vStream := TMemoryStream.Create;
  try
    vStream.LoadFromFile('C:\Users\Administrator\Desktop\ceshi.db');
    Memo1.Lines.Add(THashMD5.GetHashString(vStream));
  finally
    vStream.Free;
  end;
  //获取字符串的MD5字节数组
  Memo1.Lines.Add('----------------');
  vBytes := THashMD5.GetHashBytes('测试数据');
  for I := Low(vBytes) to High(vBytes) do
    Memo1.Lines.Add(vBytes[I].ToHexString);
end;

方法

System.Hash.THashMD5.GetHashStringFromFile

class function GetHashStringFromFile(const AFileName: TFileName): string;

unit

System.Hash

从指定的文件创建哈希摘要，并将创建的摘要的值作为十六进制的字符串返回。

System.Hash.THashMD5.GetHashString

class function GetHashString(const AString: string): string;
class function GetHashString(const AStream: TStream): string;

unit

System.Hash

从指定的输入值创建哈希摘要，并将创建的摘要的值作为十六进制的字符串返回。

System.Hash.THashMD5.GetHashBytes

class function GetHashBytes(const AData: string): TBytes;
class function GetHashBytes(const AStream: TStream): TBytes;

unit

System.Hash

从指定的输入值创建哈希摘要，并将创建的摘要的值返回为字节数组。

System.Hash.THashMD5.GetHashBytesFromFile

class function GetHashBytesFromFile(const AFileName: TFileName): TBytes;

unit

System.Hash

从指定的文件创建哈希摘要，并将创建的摘要的值返回为字节数组。

来源：https://www.cnblogs.com/txgh/p/17428771.html