kbmMW TkbmMWHashSHA256与Delphi 10.2 THashSHA2算出相同的结果

procedure TForm2.Button3Click(Sender: TObject); var hashed:string; begin hashed:=TkbmMWHashSHA256.HashAsString('mypassword','somesaltvalue'); Label1.Caption:='TkbmMWHashSHA256='+hashed; end; procedure TForm2.Button4Click(Sender: TObject); var hashed:string;   LSHA2: THashSHA2; begin LSHA2 := THashSHA2.Create;//(SHA256);
  LSHA2.Update('somesaltvalue'); LSHA2.Update('mypassword'); hashed:=LSHA2.HashAsString; Label2.Caption:='Delphi LSHA2.HashAsString='+hashed.ToUpper; end; end.

自Delphi 10.2,在System.Hash单元中,新增了HashSHA256等支持,而在最新的kbmMW 5.06 beta版中,在kbmMWCipherHash单元中,也进一步完善对Hash256等支持,有何不一样呢?加密

例以下面这行代码,直接将给定字符串加salt后获得加密结果,若是基于Delphi原生hash256怎么实现?spa

hashed:=TkbmMWHashSHA256.HashAsString('mypassword','somesaltvalue');

困扰了半天,最终在xalion帮助下,才知道如何实现。code

 LSHA2: THashSHA2; begin LSHA2 := THashSHA2.Create;//(SHA256);
  LSHA2.Update('somesaltvalue'); LSHA2.Update('mypassword'); hashed:=LSHA2.HashAsString; Label2.Caption:='Delphi LSHA2.HashAsString='+hashed.ToUpper; end;

仍是kbmMW实现的好,一行代码换成Delphi原生要写这么多句。下图是运行结果:orm

环境:Delphi 10.2.3+kbmMW 5.06.01 beta.blog

相关文章
相关标签/搜索