Probleme beim Konvertieren (C > Delphi)

[himitsu]

Hallo ihr,

ich versuche eine Funktion zu erstellen, mit der ein Hash (für KaZaA) erstellt wird.
Siehe "sig2dat://|File:%20surprise.mp3|Length:5845871Bytes|UUHash:=1LDYkHDl65OprVz37xN1VSo9b00=/"
Eine Funktion also, der ich einen Dateiname übergebe und von der ich den Hash zurückbekomme.

Hab allerdings nur den Source zu sig2dat (Kazaa lite-Tool) gefunden, in dem anscheinend auch dieser Hash berechnet wird.
Ich kenn' mich aber leider nicht so gut mit C aus und finde mich in dem Code nicht zuecht.

Wenn also jemand Tipps, Beispiele oder auch Links zu diesem Thema kennt, würde ich mich freuen.

[mirage228]

das ganze sieht verdächtig nach nem MD5 Hash aus; da gibts für Delphi bereits ne Menge fertiger Implementierungen. Versuchs mal mit denen.

mfG
mirage228

[himitsu]

Das da etwas vom MD5 Hash drin steckt, hab ich schon entdeckt.
Ist aber dennoch keiner.


KaZaA: "sig2dat:///|File:AVIPreview.exe|Length:195584 Bytes, 191KB|UUHash:=eC5k5obfyzOLZrZjHc0MzP8D/f8=|"

eMule: "ed2k://|file|AVIPreview.exe|195584|ab493bf3cf8766ca15a96512b9465068|/"

Beispiel für MD5: "2ed8ba416fb42b17fd291302c87972e2"

Im Vergleich (die beiden ersten sind von der selben Datei):

Delphi-Quellcode:

eC5k5obfyzOLZrZjHc0MzP8D/f8
ab493bf3cf8766ca15a96512b9465068
2ed8ba416fb42b17fd291302c87972e2

eMule scheint mit MD5 zu arbeiten, aber Kazaa wandelt diesen vermutlich noch etwas ab.

Edit:
-MD5 sind 32 Byte (alphanummerische Zeichen, keine Unterscheidung zwischen Gross-/Kleinschreibung)
-Kazaa sind 24 Byte (alphanummerische Zeichen) + 2 Byte (Checksumme, vermutlich Hexadezimal)

[himitsu]

Meine Fortschritte beim übersetzen werde ich hier mal mit posten.

Falls jemand noch Tipps fürs übersetzen hat oder andere Quellen zum Aufbau des Hash's bei Kazaa kennt, würde ich mich natürlich immer noch über eine Mittrbeit freuen.

Für einige Sachen bauche ich wohl keine Hilfe mehr, aber vor allem bei den Variablentypen, Array's und anderen Dingen brauch ich noch 'ne Menge.

das bearbeite ich gerade / ist fertig:
for ...
if ... else
switch case
! not
== =
!= <>
&& and
|| or
/* ... */ und // ... Komentar
i += X i := i + X

(letztet Stand der KaZaA-Hash.pas siehe Zuletzt bearbeitet...)