procedure TForm1.Button1Click(Sender: TObject);
var
d: TMd5Digest;
s: string;
n: integer;
begin
self.LbMD51.HashString(‘abc’);
self.LbMD51.GetDigest(d);
s := ‘’;
for n := Low(d) to High(d) do
begin
s := s + inttohex(d[n]);
end;
showmessage(s);
end;
delphi lbmd5使用
于 2023-03-12 23:31:45 首次发布