uses System.Hash
procedure TForm1.btn1Click(Sender: TObject);
var
data, key: string;
begin
data := 'XXXXX';
key := 'key';
mmo1.Text:=THashSHA1.Create.GetHMAC(data, key);
end;
uses System.Hash
procedure TForm1.btn1Click(Sender: TObject);
var
data, key: string;
begin
data := 'XXXXX';
key := 'key';
mmo1.Text:=THashSHA1.Create.GetHMAC(data, key);
end;