sha1 checksum in delphi

Question

I have the following code written in delphi.

with TIdHashMessageDigest5.Create do begin
    st2.Position := 0;
    Digest := HashValue( st2 );
    SetLength( Hash, 16 );
    Move( Digest, Hash[1], 16);
    Free;
end;

I need to convert that to use SHA1 hash. I couldn't find SHA1 type in the library. Can anyone help? I have looked for help on the internet but couldn't find any.

1

sha1 is not secure – David Heffernan Aug 12 '16 at 05:49

score 4 · Answer 1 · edited May 23 '17 at 12:24

See here:

https://sergworks.wordpress.com/2014/10/25/high-performance-hash-library/

SHA1 hashing in Delphi XE

https://sourceforge.net/projects/sha1implementat/

http://www.colorfultyping.com/generating-a-sha-1-checksum-for-a-given-class-type/

BTW, you didn't mention your Delphi version. If you are using a modern version (XE onwards), I suppose that its standard libraries should support SHA-1, MD5, etc.

You could do it like this:

uses IdHashSHA;

function SHA1FromString(const AString: string): string;
var
  SHA1: TIdHashSHA1;
begin
  SHA1 := TIdHashSHA1.Create;
  try
    Result := SHA1.HashStringAsHex(AString);
  finally
    SHA1.Free;
  end;
end;

Answers containing nothing but off-site links are not acceptable here. — Ken White, Aug 12 '16 at 00:52

score 1 · Answer 2 · answered Oct 26 '22 at 07:44

1

Just in case, in latest Delphi versions You can try:

uses
  System.Hash;

...

function getHashCode(const s : string) : string;
begin
  Result := THashSHA1.GetHashString(s);
end;

answered Oct 26 '22 at 07:44

deda911

51
2

score 0 · Accepted Answer · answered Aug 12 '16 at 00:19

You appear to be using Indy 9, which does not support SHA1. SHA1 (and a few other hashes, including several other SHAs) was added in Indy 10. The interface for TIdHash was also re-written in Indy 10. Amongst other changes, the HashValue() method was replaced with new Hash...() and Hash...AsHex() methods (HashString(AsHex), HashStream(AsHex), HashBytes(AsHex)), eg:

uses
  ..., IdHash, IdHashMessageDigest;

var
  Hash: TIdBytes;
begin
  with TIdHashMessageDigest5.Create do
  try
    st2.Position := 0;
    Hash := HashStream( st2 );
  finally
    Free;
  end;
  // use Hash as needed...
end;

uses
  ..., IdHash, IdHashSHA;

var
  Hash: TIdBytes;
begin
  with TIdHashSHA1.Create do
  try
    st2.Position := 0;
    Hash := HashStream( st2 );
  finally
    Free;
  end;
  // use Hash as needed...
end;

Hi Remy, Thanks for your time. I will use it and see how it works for me. I am using Delphi 2005. Can you suggest from where do I fetch IdGlobal.pas as the one I have generate lot of "Undeclared Identifier" errors? — MKK, Aug 17 '16 at 11:51
@MKK such as? it is not enough to just get a newer IdGlobal.pas by itself, you need to get a newer ersion of the entire Indy library as a whole. — Remy Lebeau, Aug 17 '16 at 14:58

score 0 · Answer 4 · answered Aug 12 '16 at 07:48

Two more options:

http://www.spring4d.org

unit Spring.Cryptography.SHA;

TSHA1 = class(THashAlgorithmBase, ISHA1)

http://lockbox.seanbdurkin.id.au/HomePage

unit LbProc;
procedure StreamHashSHA1(var Digest : TSHA1Digest; AStream : TStream);
procedure FileHashSHA1(var Digest : TSHA1Digest; const AFileName : string);

score 0 · Answer 5 · answered Dec 23 '22 at 15:55

In older versions also (tested in maXbox4):

 function SHA1FromFile(const filename: string): string;
 var SHA1: TIdHashSHA1;  
 fs: TFileStream;
 begin
   SHA1:= TIdHashSHA1.Create;
   fs:= TFileStream.Create(fileName, fmOpenRead or fmShareDenyWrite);
   try
     result:= SHA1.AsHex(SHA1.hashvalue1((fs),0,fs.size));
   finally
     SHA1.Free;
     fs.Free;
   end;
 end;

sha1 checksum in delphi

5 Answers5

Linked

Related