寻C++、Delphi双修高手（10.01.14）

哪位高手帮忙把C翻译成delphi，多谢

static void encipher(unsigned int *const v, const unsigned int *const k, unsigned int *const w)
{
register unsigned int
y    = ntohl(v[0]),
z    = ntohl(v[1]),
a    = ntohl(k[0]),
b    = ntohl(k[1]),
c    = ntohl(k[2]),
d    = ntohl(k[3]),
n    = 0x10,      /* do encrypt 16 (0x10) times */
sum  = 0,
delta = 0x9E3779B9; /*  0x9E3779B9 - 0x100000000 = -0x61C88647 */

while (n-- > 0) {
sum += delta;
y += ((z < < 4) + a) ^ (z + sum) ^ ((z >> 5) + b);
z += ((y < < 4) + c) ^ (y + sum) ^ ((y >> 5) + d);
}

w[0] = htonl(y); w[1] = htonl(z);
}

static void decipher(unsigned int *const v, const unsigned int *const k, unsigned int *const w)
{
register unsigned int
y    = ntohl(v[0]),
z    = ntohl(v[1]),
a    = ntohl(k[0]),
b    = ntohl(k[1]),
c    = ntohl(k[2]),
d    = ntohl(k[3]),
n    = 0x10,
sum  = 0xE3779B90,
/* why this ? must be related with n value*/
delta = 0x9E3779B9;

/* sum = delta < <5, in general sum = delta *