[fpc-pascal] SHA1 of a TMemoryStream

[Jorge Aldo G. de F. Junior]

I need to perform a Hash of data stored at a TMemoryStream...

But unfortunately, the following program spits out different results
if i run it in sucession... Note that the file being read (test6.pas)
never changes.

Uses
        Classes,
        SHA1;

Var
        Data : TMemoryStream;
        Hash : TSHA1Digest;

Begin
        Data := TMemoryStream.Create;
        Data.LoadFromFile('test6.pas');
        Hash := SHA1Buffer(Data.Memory, Data.Size);
        WriteLn(SHA1Print(Hash));
        Data.Free;
End.

Am i doing (probably) anything wrong ?

Thanks in advance.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal