My Memory: [Delphi] Make Hash string : MD5, SHA1

2017년 2월 7일 화요일

uses IdGlobal, IdHash, IdHashMessageDigest, IdHashSha1;

function gGetMd5HashString(value: string): string;

var

hashMessageDigest5 : TIdHashMessageDigest5;

begin

hashMessageDigest5 := nil;

try

hashMessageDigest5 := TIdHashMessageDigest5.Create;

Result := IdGlobal.IndyLowerCase ( hashMessageDigest5.HashStringAsHex ( value ) );

finally

hashMessageDigest5.Free;

end;

function gGetSha1HashString(value: string): string;

var

SHA1: TIdHashSHA1;

begin

SHA1 := TIdHashSHA1.Create;

try

Result := SHA1.HashStringAsHex(value);

finally

SHA1.Free;

end;