Uses IdHashMessageDigest;
var
AMD5:TIdHashMessageDigest5;
begin
try
AMD5:=TIdHashMessageDigest5.Create;
edt1.Text:=AMD5.HashStringAsHex('123456');
finally
AMD5.Free;
end;Uses IdHashMessageDigest;
var
AMD5:TIdHashMessageDigest5;
begin
try
AMD5:=TIdHashMessageDigest5.Create;
edt1.Text:=AMD5.HashStringAsHex('123456');
finally
AMD5.Free;
end;