Java Prozeduren nach Delphi übersetzen

[geskill]

Hi,
ich habe 7 Java (danke DeddyH) an Prozeduren welche ich momentan versuche
in Delphi zu übersetzen, jedoch habe ich bisher nur in delphi/php programmiert
und das übersetzen ist viel schwerer als ich es gedacht habe!

Hätte ich wenigstens eine Entwicklungsumgebung, dann könnte ich den Code
dort testen und mit der Hilfe arbieten.
Ich hatte kurz MS Visual Studio 2005 installiert, dass brachte mich auch
nicht viel weiter, weil die Version die ich installiert hatte nur C++ unter-
stützte.

Probleme habe ich auch mit dem "byte" Variablentyp,
ich habe jetzt String genutzt.

//Orginal

Code:

private static String HashString(String s)
{
String s1;
MessageDigest messagedigest = MessageDigest.getInstance("md5");
byte abyte0[] = messagedigest.digest(s.getBytes());
s1 = "";
byte abyte1[];
int j = (abyte1 = abyte0).length;
for(int i = 0; i < j; i++)
{
byte byte0 = abyte1[i];
String s2 = Integer.toHexString(byte0 & 0xff);
s1 = (new StringBuilder(String.valueOf(s1))).append(s2.length()
>= 2 ? s2 : (new StringBuilder("0")).append(s2).toString()).toString();
}
return s1;
}

// ich habe es mal ein bischen versucht.

Delphi-Quellcode:

FUNCTION HashString(S:String):String;
  VAR abyte0,abyte1,s2:String; I,J:Integer;
  BEGIN
    result := '';

    abyte0 := GetMD5(s);

    J := length(abyte0);
    abyte1 := abyte0;

    FOR I := 0 TO J -1
      DO BEGIN
        abyte0 := abyte1[I];

        s2 := IntToHex(StrToInt(abyte0) AND $ff);

        //s1 = (new StringBuilder(String.valueOf(s1))).append(s2.length()
        //>= 2 ? s2 : (new StringBuilder("0")).append(s2).toString()).toString();
        result := result + ???
      END;
  END;

Davon habe ich noch 5 weitere, wobei die noch "schlimmer", schwieriger aussehen.

[DeddyH]

Das ist kein C, sondern Java. Hilft Dir zwar jetzt nicht weiter, aber ich wollte das mal richtigstellen.