-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
4. Dez 2013
Ob/wie man VBScripts debuggen kann, weiß ich auch nicht,
aber das Rechenergebnis kann man hiermit testen
http://www.zorc.breitbandkatze.de/crc.html
So wie es aussieht, sollte es eine ganz normale CRC32-Implementierung werden, mit dem Polynom $4C11DB7, aber sie wurde im VBScript fehlerhaft implementiert.
Zumindestens wenn ich mir die ersten Ergebnisse des Delphi-Codes ansehe. Denn die...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
4. Dez 2013
Dann solltest du dringend mal das VBScript reparieren.
((lCRC32 shr 32) And $FFFFFF) ist immer 0, denn lCRC32 ist 32 Bit und wenn man da den Inhalt um 32 Bit verschiebt, dann ist es leer, womit ein Großteil des CRCs verloren geht.
Vermute ich zwar weniger, aber scheint hier nahezuliegen, also im Problemfall könnte SHR auf die 32 allergisch reagieren und da eine Verschiebung von 0 machen.
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
Es gibt ein Problem in der Berechnung der Tabelle und vermutlich das gleiche "Problem" gibt es auch in der CRC-Berechnung.
Meine Vermutlung liegt, erfahrungsgemäß, bei der Vorzeichenbehandlung.
Die Berechnungen selber liesen sich ja "leicht" übersetzen, aber dann müssen hier auch vergleichbare Typen (Anzahl der Bits, mit oder ohne Vorzeichen) und vergleichbare Rechenoperationen vorhanden...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
Dann würde ich vorschlangen es mal mit Integer statt DWord zu probieren. (wobei ich dann eher denken würde, daß VB da falsch rechnet)
Folgendes ans Ende der Funktion hängen. Auch beim VBS. (wobei man es in delphi natürlich auch via Debugger auslesen könnte :angel:)
For i := 0 To 255 do
Result := Result + ' ' + Hex(Crc32Table, 8);
Mal sehen ob schon die Tabelle falsch ist und die...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
- Die erwähnten Punkte, bezüglich der Klammerungen, hast du mal durchprobiert?
Und bei dem DWORD bin ich mir auch nicht sicher.
Was nimmt den VB als Typ, wenn man das so als DIM deklariert?
DWORD/Cardinal oder Integer ... je nach dem, kommt bei $8******* bzw. $F******* (usw.) etwas Anderes raus, wenn man DIV verwendet > mit oder ohne Vorzeichen.
Ich würde dir empfehlen nicht den...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
lCRC32 xor $FFFFFFFF = not lCRC32
Bei (lCRC32 and $FFFFFFFE div 2) fehlt die Klammer um das AND, aber $FFFFFFFE scheint nur dazusein, damit das / einen ganzzahligen Wert liefert.
> ((lCRC32 and $FFFFFFFE) div 2) oder einfach nur lCRC32 div 2, da DIV das ganzzahlige Abrunden schon erledigt.
lCRC32 and $01 <> 0 dürfte dem Odd entsprechen
Und bei (lCRC32 and $FFFFFF00 div $100) bin ich mir...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
Bei Hex mußt du aufpassen, in welcher reihenfolge das Hex die Werte schreibt.
Links groß und rechts klein oder andersrum und zusätzlich könnte es auch nochmal für jedes Byte eingeln gedreht sein, aber das erkennt man ja in einem Vergleichswert.
Wobei du in deiner Beschreibung vergessen hast zu erwähnen was du bekommst und was du erwartest.
=> BinToHex oder ganz einfach Format mit %.8x
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
Ich hab oben noch bissl was dazu-editiert.
Joar, aber scheinbar für 255 Einträge.
0..255 sind allerdings 256. (nja, das kannst du aber auch gleich als statisches Array deklarieren und brauchts kein SetLength)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
3. Dez 2013
Du könntest ja gern auch mal schreiben, was du schon übersetzt hast.
Was macht ReDim Crc32Table(255) eigentlich?
Setzt das die Größe des Arrays auf 255, also 0 bis 254?
Wenn ja, dann hatte der Ooriginale Code schon einen netten Buffer-Overrun eingebaut.
./ entspricht wohl dem DIV?
Und was AscW und Mid macht, wüsste ich jetzt nicht auf Anhieb, bzw. was die Äquivalente in Delphi wären,
