Hagens "Delphi Encryption Compendium" für 64-Bit

[Hobbycoder]

Hi,

wird Hagens Delphi Encryption Compendium noch weiterentwickelt? Bzw. hat das jemand so, dass es sich für eine 64-Bit-Windows-Application compilieren läßt? Die letzte mir bekannte Version ist die 5.2.

Ich bekomme in der CRC.pas ab Zeile 138 den Fehler: "Ungültige Kombination von Opcode und Operanden", und das danach folgend für alle PUSH und POP-Befehle.

Delphi-Quellcode:

function CRCSetup(var CRCDef: TCRCDef; Polynomial, Bits, InitVector,
  FinalVector: Cardinal; Inverse: LongBool): Boolean; register;
asm // initialize CRCDef according to the parameters, calculate the lookup table
       CMP   ECX,8
       JB    @@8
       PUSH  EBX   //<---Hier tritt der Fehler auf
       PUSH  EDI

Meine Assamblerkenntnisse sind seit dem 8086/Z80 auf nahezu 0 geschrumpft. Daher ist ein Debuggen für mich unmöglich. Vielleicht hat ja jemand auch einen Tipp, wie ich das für 64-Bit anpassen kann.

[KodeZwerg]

Hallo Hobbycoder,
ich habe es noch nicht getestet aber Beschreibung besagt das diese Version mit Delphi\64bit kompatibel ist.
DelphiEncryptionCompendium

Zitat:

The following environments have been tested:

Delphi XE2 Win32
Delphi 10.2 Win32 & Win64
FPC 2.6.4 Linux x86_64
FPC 3.1.1 Linux ARM
FPC 3.1.1 Win32

Delphi-Quellcode:

function CRCSetup(var CRCDef: TCRCDef; Polynomial, Bits, InitVector,
  FinalVector: Cardinal; Inverse: LongBool): Boolean; {$IFDEF UseASM86}register;{$ENDIF}
{$IFDEF UseASM86}
asm // initialize CRCDef according to the parameters, calculate the lookup table
       CMP   ECX,8
       JB    @@8
       PUSH  EBX
       PUSH  EDI
       PUSH  ESI
       MOV   [EAX].TCRCDef.Polynomial,EDX

So fängt besagte Stelle da an.

[Hobbycoder]

You made my day ;-)

Hatte angenommen, das 5.2 = 5.2 ist. Hatte mir das bei winkelsdorf/DelphiEncryptionCompendium bei Github angeschaut.
Jetzt funzt es aber. Hab vielen Dank.

[KodeZwerg]

Winkelsdorf ist Delphi 2009 build, mein Link ist eigentlich für FreePascal, aber noch Delphi kompatibel.
Viel Spaß und gern geschehen ;)