Hilfe bei Portierung

RodbarFY · 21.01.12, 20:09

Hallo,

ich versuche gerade ActionS*****-Code zu Delphi zu portieren.
Der Code sieht wie folgt aus:

Code:

import com.hurlant.crypto.*;
import com.hurlant.crypto.hash.*;
import com.hurlant.crypto.symmetric.*;
import com.hurlant.util.*;
import flash.utils.*;

var str1:String ="blncjsdfj/jhj/mJdfldfs";
var str2:String ="kJd94kfjs93";

str3 = Hex.fromArray(new MD5().hash(Hex.toArray(Hex.fromString(String(str1 +  str2))))).toUpperCase();

str3 ergibt dann

Code:

3A06062CFD4C4391FCAB062A6F7E3BFA

Ich nutze Delphi XE2 und habe das Delphi Encryption Compendium (DEC) von [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ] heruntergeladen.

Folgenden Code habe ich geschrieben:

Code:

str3 := THash_MD5.CalcBinary(TFormat_HEX.Encode(str1+str2), TFormat_Hex));

Doch leider erhalte ich dort nicht dasselbe Ergebnis. Ich erhalte dann immer

Code:

FB7D857208174506BD7D85AC5FF06421

als Ergebnis.

Kann jemand mir helfen, den Code richtig übersetzen.

Danke