Kann mir jemand diesen C++ Code in Delphi umwandeln?

[Pseudemys Nelsoni]

hoi,

um diesen code geht es:

Delphi-Quellcode:

#include <string.h>

void main(void)
{
   char pass[] = "12345678";
   char apgard[9];

   apgar(pass, apgard);
}

void apgar(char v[], char *outbuf)
{
        char w[9];
        int i;  

        for (i = 0; i < 8; i++)
        {
                int a = v[i];
                w[i = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./"([a & 1 ? a << (a & 1) & v[8 - i] : a ^ v[8 - i]) & 0x3f];
        }
        w[8] = 0;
        strcpy(outbuf, w);
        return;
}

ich hatte schon angefangen, aber sicher falsch, so sah meins aus *g*:

Delphi-Quellcode:

procedure apgar(pw, apg: string);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  pass: string;
  apgard: string[9];
begin
  pass := Edit1.text;
  apgar(pass, apgard);
end;

also wäre echt nett wenn jemand diesen C Source s.o in delphi source umwandeln könnte. Ich les jetzt erstmal luckies DLL Tutorial, bis später