DEC 5.2 erzeug auf einmal einen Integer überlauf

[PhilmacFLy]

Moin DP'ler

folgender Code hat bis heute funktioniert. Nachdem ich heute das Programm neu erzeugt hab erzeugt mir DEC 5.2 einen Integerüberlauf (DECCipher.pas Zeile: 1645):

Delphi-Quellcode:

function EncodeString(const Text: String): string;
begin
  with TCipher_Twofish.Create do
    try
      Init('zufallsstring');
      Result := EncodeBinary(Text, TFormat_Copy); // verschlüsselt Strings
    finally
      Free;
    end;
end;

function String2Hex(const Buffer: Ansistring): string;
begin
  SetLength(Result, 2 * Length(Buffer));
  BinToHex(@Buffer[1], PWideChar(@Result[1]), Length(Buffer));
end;

function getsavestring(input: string): string;
begin
  Result := String2Hex(EncodeString(input));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
regist: TRegistry;
iniid, regid: string;
begin
regist := TRegistry.Create;
    try
      regist.RootKey := HKEY_CURRENT_USER;
      regist.OpenKey('Software\pfad\zum\key', false);
      regid := getsavestring(regist.ReadString('ID'));
      regist.CloseKey;
      regist.OpenKey('Software\pfad\zum\anderen-key', false);
      iniid := getsavestring(regist.ReadString('ID'));
      regist.CloseKey;
    finally
      regist.Free;
    end;
end;

Wie ihr sehen könnt hab ich das ganze in ein extra Projekt nochmal kopiert um zu testen obs dann geht und siehe da es funktioniert.
Jetzt frag ich mich woran kann das liegen das es in meinem anderen großen Projekt nicht geht.

[himitsu]

Du hast nicht zufällig die Überlaufprüfung in deinen Projektoptionen aktiviert? :stupid:

[gammatester]

Die Zeile muß einen Überlauf bilden, da ja mod 2^32 gerechnet werden soll. Wahrscheinlich hast Du aus Versehen Range/Overflow-Check eingeschaltet.

[PhilmacFLy]

Zitat:

Zitat von himitsu (Beitrag 1273392)

Du hast nicht zufällig die Überlaufprüfung in deinen Projektoptionen aktiviert? :stupid:

Mhh ja hab ich, aber sollte es nicht trotzdem funktionieren? Bzw. warum funktionierts mit Überlaufüberprüfung nicht?

[DeddyH]

Weil AFAIK im Krypto-Bereich oft ganz bewusst mit Überläufen gerechnet wird. Da ist dann die Überlaufprüfung kontraproduktiv.

[PhilmacFLy]

Zitat:

Zitat von DeddyH (Beitrag 1273395)

Weil AFAIK im Krypto-Bereich oft ganz bewusst mit Überläufen gerechnet wird. Da ist dann die Überlaufprüfung kontraproduktiv.

Alles klar wenns so einfach ist dann mach ichs wieder aus.
Spiel Bereichsüberprüfung auch eine Rolle?

[DeddyH]

Ich bin kein Krypto-Experte, glaube aber eher nicht.

[gammatester]

Wenn Du den Quellcode nicht geändert hast, steht doch dort schon {$RANGECHECKS OFF} in Zeile 29 oder so.

[PhilmacFLy]

Zitat:

Zitat von gammatester (Beitrag 1273398)

Wenn Du den Quellcode nicht geändert hast, steht doch dort schon {$RANGECHECKS OFF} in Zeile 29 oder so.

Ja steht da aber hat erst wieder funktioniert wie ichs in den Projektoptionen ausgeschaltet hab