THashSHA1 funktioniert nicht mehr in 10.2(.1)?

[Whookie]

Na toll, extra auf 10.2.1 gewartet damit die ärgsten Scharten ausgewetzt sind und nun funktioniert die Hashfunktion, die bisher klagslos ihren Dienst versehen hat, nicht mehr?

Ich hab eine kleine Demo angehängt, unter 10.1 Berlin kann man sie compilieren, eine Datei öffnen und eine SHA1 berechnen lassen. Macht man das mit der selben Datei mehrmals kommt auch immer die selbe Prüfsumme heraus.

Das selbe Programm unter 10.2.1 compiliert lässt sich im günstigsten Fall als Zufallsgenerator verwenden ("kleine" Dateien bringen bei jedem öffnen einen neuen Wert) oder man kriegt eine Zugriffsverletzung um die Ohren gehauen ("große" Dateien?)...

Kann das jemand nachvollziehen?

Edit: Geht auch mit Anhang.

[mkinzler]

Anhang fehlt

[TiGü]

Nach dem Studium und Vergleich der Quelltexte zwischen Berlin und Tokyo...probiere es mal ab Tokyo so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text :=  THashSHA1.GetHashStringFromFile(OpenDialog1.FileName);
  end;
end;

[gammatester]

Sicher, daß das je richtig gelaufen ist? IMO gibt es (laut Hilfe) kein Overlay für TMemoryStream. Dein Code bringt auch unter 10.2 falsche Ergebnis. Ich vermute, es wird der Zweig für

Delphi-Quellcode:

 Update(const AData; ALength: Cardinal); overload;

verwendet.

[TiGü]

Zitat:

Zitat von gammatester (Beitrag 1379367)

Sicher, daß das je richtig gelaufen ist? IMO gibt es (laut Hilfe) kein Overlay für TMemoryStream. Dein Code bringt auch unter 10.2 falsche Ergebnis. Ich vermute, es wird der Zweig für

Delphi-Quellcode:

 Update(const AData; ALength: Cardinal); overload;

verwendet.

Also Whookie verwendet diesen Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  LSHA1: THashSHA1;
  LFile: TMemoryStream;
begin
  if OpenDialog1.Execute then
  begin
    LFile := TMemoryStream.Create;
    try
      LFile.LoadFromFile(OpenDialog1.FileName);

      LSHA1 := THashSHA1.Create;
      LSHA1.Update(LFile.Memory, LFile.Size);
      Edit1.Text := LSHA1.HashAsString;
    finally
      LFile.Free;
    end;

  end;
end;

Da wird der Zeiger auf den internen Buffer und die Größe übergeben. Er übergibt NICHT LFile direkt.

[Whookie]

Zitat:

Zitat von TiGü (Beitrag 1379364)

Delphi-Quellcode:

    Edit1.Text :=  THashSHA1.GetHashStringFromFile(OpenDialog1.FileName);

Das geht mal, leider habe ich den TMemoryStream in Verwendung, weil meine "Dateien" nicht wirklich aus dem Dateisystem stammen, sondern syntetisch entstehen (und auch zum Teil sehr groß sind).

Ich bin mir auch nicht sicher ob das ein Problem von THashSHA1 ist oder ob es nicht eher ein Compiler-Problem ist?
Soweit ich das jetzt sehe wird die "falsche" Update-Methode aufgerufen...

Mit

Delphi-Quellcode:

  LSHA1.Update(TBytes(LFile.Memory), LFile.Size);

kann man die richtige Methode erzwingen ... aber so ein Hardcast an dieser Stelle ist doch extrem unschön?

[Whookie]

Zitat:

Zitat von gammatester (Beitrag 1379367)

Sicher, daß das je richtig gelaufen ist? IMO gibt es (laut Hilfe) kein Overlay für TMemoryStream. Dein Code bringt auch unter 10.2 falsche Ergebnis. Ich vermute, es wird der Zweig für

Delphi-Quellcode:

 Update(const AData; ALength: Cardinal); overload;

verwendet.

Ja sicher, ich hab hier beide Versionen am laufen ...

[TiGü]

Zitat:

Zitat von Whookie (Beitrag 1379369)

Das geht mal, leider habe ich den TMemoryStream in Verwendung, weil meine "Dateien" nicht wirklich aus dem Dateisystem stammen, sondern syntetisch entstehen (und auch zum Teil sehr groß sind).

Ich bin mir auch nicht sicher ob das ein Problem von THashSHA1 ist oder ob es nicht eher ein Compiler-Problem ist?
Soweit ich das jetzt sehe wird die "falsche" Update-Methode aufgerufen...

Mit

Delphi-Quellcode:

  LSHA1.Update(TBytes(LFile.Memory), LFile.Size);

kann man die richtige Methode erzwingen ... aber so ein Hardcast an dieser Stelle ist doch extrem unschön?

Vergleich doch mal, ob LFile.Size und Length(TBytes(LFile.Memory)) exakt gleich groß sind.
Da hab ich jetzt irgendwie mit einen Auge Unterschiede beim Debuggen gesehen.

Alternativ TBytesStream verwenden? Dann mit LFile.Bytes (von Typ TBytes) übergeben?

[Whookie]

Zitat:

Zitat von TiGü (Beitrag 1379373)

Vergleich doch mal, ob LFile.Size und Length(TBytes(LFile.Memory)) exakt gleich groß sind.

Das ist ja interessant, die sind tatsächlich unterschiedlich???!

Beispiel:
Dateigröße im System: 296759
LFile.Size: 296759
Length(TBytes(LF..)): 327684

Zitat:

Zitat von TiGü (Beitrag 1379373)

Alternativ TBytesStream verwenden? Dann mit LFile.Bytes (von Typ TBytes) übergeben?

Mit TByteStream und

Delphi-Quellcode:

LSHA1.Update(LFile.Bytes, LFile.Size);

Scheint es zu funktionieren, auch hier ist

Delphi-Quellcode:

Length(LFiles.Bytes) <> LFile.Size

, aber soweit ich das verstehe entspricht Length(LFiles.Bytes) LFiles.Capacity und die kann natürlich größer sein!

Das erklärt dann auch gleich die Zahlen im ersten Fall! Ich nehme sogar an, das im ersten Fall (casten) ein TArray<Byte> erzeugt wird und die Daten dahin umkopiert werden, bevor die Updatemethode aufgerufen wird.

Bleibt noch festzuhalten, dass unter 10.1 die folgende Methode aufgerufen wurde:

Delphi-Quellcode:

procedure THashSHA1.Update(const AData: TBytes; ALength: Cardinal = 0);
var
  Len: Integer;
begin
  if ALength = 0 then
    Len := Length(AData)
  else
    Len := ALength;
  Update(PByte(AData), Len);
end;

Und in 10.2.1 diese:

Delphi-Quellcode:

procedure THashSHA1.Update(const AData; ALength: Cardinal);
begin
  Update(PByte(@AData), ALength);
end;

und mit dem PByte(@AData) greifen wir nicht mehr auf unseren Buffer zu, sondern auf den Speicher wo AData liegt...

[Fritzew]

Ich habe es gerade auch mal durchgespielt, zur Sicherheit auch noch die System.Hash von Tokio ins Projekt
kopiert und zu test.Hash umbenannt .

Berlin und Tokio rufen unterschiedliche Funktionen auf.

Das ist gar nicht schön....

Code:

Berlin: 
   procedure THashSHA1.Update(const AData: PByte; ALength: Cardinal);
 
Tokio: 
 procedure THashSHA1.Update(const AData; ALength: Cardinal);

Wobei beide jetzt gegen test.Hash kompiliert haben.