Mit LockBox10 für XE7 Hashstring erzeugen

[Klaus01]

.. dann vielleicht getDigest?

Delphi-Quellcode:

 TLbSHA1 = class(TLbHash)
  strict private
    FDigest : TSHA1Digest;
  public
    procedure GetDigest(var Digest : TSHA1Digest);

    procedure HashBuffer(const Buf; BufSize : Cardinal); override;
    procedure HashFile(const AFileName: string); override;
    procedure HashStream(AStream: TStream); override;
    procedure HashString(const AStr: string); override;
  end;

Grüße
Klaus