zoukankan html css js c++ java

system.hash.pas

转载

https://www.cnblogs.com/hnxxcxg/p/14276734.html

system.hash.pas

delphi xe8开始提供system.hash.pas。

xe10.4.1版本，提供有几个记录：

THash = record

THashBobJenkins = record

THashMD5 = record

THashSHA1 = record

THashSHA2 = record

uses  System.Hash;
 
function md5_hmac(const val, key: string): string;
begin
  var md5: THashMD5 := THashMD5.Create;
  Result := md5.GetHMAC(val, key);
end;
 
function md5_utf8(const val: string): string;
begin
  var md5: THashMD5 := THashMD5.Create;
  md5.Update(TEncoding.UTF8.GetBytes(val));
  Result := md5.HashAsString;
end;
 
function sha1_utf8(const val: string): string;
begin
  var sha1: THashSHA1 := THashSHA1.Create;
  sha1.Update(TEncoding.UTF8.GetBytes(val));
  Result := sha1.HashAsString;
end;
 
function sha2_utf8(const val: string): string;
begin
  var sha2: THashSHA2 := THashSHA2.Create;
  sha2.Update(TEncoding.UTF8.GetBytes(val));
  Result := sha2.HashAsString;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(md5_utf8('咏南中间件'));         //ce33960c8f97c85161a8b28b7000b3c6
  Memo1.Lines.Add(sha1_utf8('咏南中间件'));        //2566ca7678fcdb309846eabef3911dc6e5f8814d
  Memo1.Lines.Add(sha2_utf8('咏南中间件'));        //f3bbbfaf81071d67f02fd519553789c671c7e0514045885e5bd8faa80d66792f
  Memo1.Lines.Add(md5_hmac('咏南中间件', '钥匙')); //0796b66fa3180024cb5e49cba66dbf58
end;

--------------------------------------------------------========================

uses System.Hash;

function GetStrHashMD5(Str: String): String;

var

HashMD5: THashMD5;

begin

HashMD5 := THashMD5.Create;

HashMD5.GetHashString(Str);

result := HashMD5.GetHashString(Str);

end;

function GetStrHashSHA1(Str: String): String;

var

HashSHA: THashSHA1;

begin

HashSHA := THashSHA1.Create;

HashSHA.GetHashString(Str);

result := HashSHA.GetHashString(Str);

end;

function GetStrHashSHA224(Str: String): String;

var

HashSHA: THashSHA2;

begin

HashSHA := THashSHA2.Create;

HashSHA.GetHashString(Str);

result := HashSHA.GetHashString(Str,SHA224);

end;

function GetStrHashSHA256(Str: String): String;

var

HashSHA: THashSHA2;

begin

HashSHA := THashSHA2.Create;

HashSHA.GetHashString(Str);

result := HashSHA.GetHashString(Str,SHA256);

end;

function GetStrHashSHA384(Str: String): String;

var

HashSHA: THashSHA2;

begin

HashSHA := THashSHA2.Create;

HashSHA.GetHashString(Str);

result := HashSHA.GetHashString(Str,SHA384);

end;

function GetStrHashSHA512(Str: String): String;

var

HashSHA: THashSHA2;

begin

HashSHA := THashSHA2.Create;

HashSHA.GetHashString(Str);

Result := HashSHA.GetHashString(Str,SHA512);

end;

function GetStrHashSHA512_224(Str: String): String;

var

HashSHA: THashSHA2;

begin

HashSHA := THashSHA2.Create;

HashSHA.GetHashString(Str);

Result := HashSHA.GetHashString(Str,SHA512_224);

end;

function GetStrHashSHA512_256(Str: String): String;

var

HashSHA: THashSHA2;

begin

HashSHA := THashSHA2.Create;

HashSHA.GetHashString(Str);

Result := HashSHA.GetHashString(Str,SHA512_256);

end;

function GetStrHashBobJenkins(Str: String): String;

var

Hash: THashBobJenkins;

begin

Hash := THashBobJenkins.Create;

Hash.GetHashString(Str);

Result := Hash.GetHashString(Str);

end;

Examples calculating file hashes:

function GetFileHashMD5(FileName: WideString): String;

var

HashMD5: THashMD5;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashMD5 := THashMD5.Create;

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashMD5.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashMD5.HashAsString;

end;

function GetFileHashSHA1(FileName: WideString): String;

var

HashSHA: THashSHA1;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA1.Create;

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashSHA224(FileName: WideString): String;

var

HashSHA: THashSHA2;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA2.Create(SHA224);

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashSHA256(FileName: WideString): String;

var

HashSHA: THashSHA2;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA2.Create(SHA256);

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashSHA384(FileName: WideString): String;

var

HashSHA: THashSHA2;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA2.Create(SHA384);

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashSHA512(FileName: WideString): String;

var

HashSHA: THashSHA2;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA2.Create(SHA512);

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashSHA512_224(FileName: WideString): String;

var

HashSHA: THashSHA2;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA2.Create(SHA512_224);

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashSHA512_256(FileName: WideString): String;

var

HashSHA: THashSHA2;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

HashSHA := THashSHA2.Create(SHA512_256);

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

HashSHA.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashSHA.HashAsString;

end;

function GetFileHashBobJenkins(FileName: WideString): String;

var

Hash: THashBobJenkins;

Stream: TStream;

Readed: Integer;

Buffer: PByte;

BufLen: Integer;

begin

Hash := THashBobJenkins.Create;

BufLen := 16 * 1024;

Buffer := AllocMem(BufLen);

try

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

while Stream.Position < Stream.Size do

begin

Readed := Stream.Read(Buffer^, BufLen);

if Readed > 0 then

begin

Hash.update(Buffer^, Readed);

end;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := Hash.HashAsString;

end;

查看全文

相关阅读:
LeetCode题解 | [简单-数组] 485.最大连续1的个数
 PAT乙级真题 | 1032 挖掘机技术哪家强
 [leetcode]两个列表的最小索引总和
 【leetCode】两个数组的交集
 手写hashMap（非红黑树）
Redis 删除数据后不能自动释放内存的问题
 Spring @Async/@Transactional 失效的原因及解决方案
 完全平方数问题
 用队列实现栈
 memcached安装踩坑

原文地址：https://www.cnblogs.com/xionda/p/15324114.html